ggtext/0000755000176200001440000000000014311057647011564 5ustar liggesusersggtext/NAMESPACE0000644000176200001440000000056214310623726013002 0ustar liggesusers# Generated by roxygen2: do not edit by hand S3method(element_grob,element_markdown) S3method(element_grob,element_textbox) export(GeomRichText) export(GeomRichtext) export(GeomTextBox) export(element_markdown) export(element_textbox) export(element_textbox_simple) export(geom_richtext) export(geom_textbox) import(ggplot2) import(grid) import(gridtext) import(rlang) ggtext/README.md0000644000176200001440000002330314310625353013036 0ustar liggesusers # ggtext: Improved text rendering support for ggplot2 [![R build status](https://github.com/wilkelab/ggtext/workflows/R-CMD-check/badge.svg)](https://github.com/wilkelab/ggtext/actions) [![Coverage Status](https://img.shields.io/codecov/c/github/wilkelab/ggtext/master.svg)](https://codecov.io/github/wilkelab/ggtext?branch=master) [![CRAN status](https://www.r-pkg.org/badges/version/ggtext)](https://cran.r-project.org/package=ggtext) [![Lifecycle: maturing](https://img.shields.io/badge/lifecycle-maturing-blue.svg)](https://lifecycle.r-lib.org/articles/stages.html#maturing) The ggtext package provides simple Markdown and HTML rendering for ggplot2. Under the hood, the package uses the [gridtext](https://CRAN.R-project.org/package=gridtext) package for the actual rendering, and consequently it is limited to the feature set provided by gridtext. Support is provided for Markdown both in theme elements (plot titles, subtitles, captions, axis labels, legends, etc.) and in geoms (similar to `geom_text()`). In both cases, there are two alternatives, one for creating simple text labels and one for creating text boxes with word wrapping. Importantly, the gridtext package that provides the rendering support **implements only an extremely limited subset of Markdown/HTML/CSS.** It currently can make text bold or italics, can change the font, color, or size of a piece of text, can place text as sub- or superscript, and has extremely rudimentary image support. No other features are currently supported. As a general rule, any Markdown, HTML, or CSS feature that isn’t shown in any of the ggtext or gridtext documentation likely doesn’t exist. ## Installation You can install the latest stable release from CRAN via `install.packages()`: ``` r install.packages("ggtext") ``` To install the latest development version of this package, please run the following line in your R console: ``` r remotes::install_github("wilkelab/ggtext") ``` ## Markdown in theme elements The ggtext package defines two new theme elements, `element_markdown()` and `element_textbox()`. Both behave similarly to `element_text()` but render the provided text as markdown/html. `element_markdown()` is meant as a direct replacement for `element_text()`, and it renders text without word wrapping. To start a new line, use the `
` tag or add two spaces before the end of a line. As an example, we can mix regular, italics, and bold text, and we can also apply colors to axis tick labels. This particular example was inspired by [this stackoverflow post.](https://stackoverflow.com/questions/39282293/r-ggplot2-using-italics-and-non-italics-in-the-same-category-label) ``` r library(tidyverse) library(ggtext) library(glue) data <- tibble( bactname = c("Staphylococcaceae", "Moraxella", "Streptococcus", "Acinetobacter"), OTUname = c("OTU 1", "OTU 2", "OTU 3", "OTU 4"), value = c(-0.5, 0.5, 2, 3) ) data %>% mutate( color = c("#009E73", "#D55E00", "#0072B2", "#000000"), name = glue("{bactname} ({OTUname})"), name = fct_reorder(name, value) ) %>% ggplot(aes(value, name, fill = color)) + geom_col(alpha = 0.5) + scale_fill_identity() + labs(caption = "Example posted on **stackoverflow.com**
(using made-up data)") + theme( axis.text.y = element_markdown(), plot.caption = element_markdown(lineheight = 1.2) ) ``` ![](man/figures/README-unnamed-chunk-4-1.png) Very basic support for the `` tag exists, and it can be used, for example, to employ images as axis labels. ``` r labels <- c( setosa = "
*I. setosa*", virginica = "
*I. virginica*", versicolor = "
*I. versicolor*" ) ggplot(iris, aes(Species, Sepal.Width)) + geom_boxplot() + scale_x_discrete( name = NULL, labels = labels ) + theme( axis.text.x = element_markdown(color = "black", size = 11) ) ``` ![](man/figures/README-unnamed-chunk-5-1.png) `element_textbox()` offers support for rendering larger amounts of text that require word wrapping. Unlike `element_markdown()`, it cannot be used for axis tick labels, and it cannot draw text at arbitrary angles, only at fixed orientations corresponding to 0, 90, 180, and 270 degrees. In practice, you will usually want to use `element_textbox_simple()` instead of `element_textbox()`, as it sets useful defaults for many parameters not usually defined in ggplot2 themes. ``` r ggplot(mtcars, aes(disp, mpg)) + geom_point() + labs( title = "Fuel economy vs. engine displacement
Lorem ipsum *dolor sit amet,* consectetur adipiscing elit, **sed do eiusmod tempor incididunt** ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.", x = "displacement (in3)", y = "Miles per gallon (mpg)
A measure of the car's fuel efficiency." ) + theme( plot.title.position = "plot", plot.title = element_textbox_simple( size = 13, lineheight = 1, padding = margin(5.5, 5.5, 5.5, 5.5), margin = margin(0, 0, 5.5, 0), fill = "cornsilk" ), axis.title.x = element_textbox_simple( width = NULL, padding = margin(4, 4, 4, 4), margin = margin(4, 0, 0, 0), linetype = 1, r = grid::unit(8, "pt"), fill = "azure1" ), axis.title.y = element_textbox_simple( hjust = 0, orientation = "left-rotated", minwidth = unit(1, "in"), maxwidth = unit(2, "in"), padding = margin(4, 4, 2, 4), margin = margin(0, 0, 2, 0), fill = "lightsteelblue1" ) ) ``` ![](man/figures/README-unnamed-chunk-6-1.png) Another example, replacing facet strips with text boxes. ``` r library(cowplot) ggplot(mpg, aes(cty, hwy)) + geom_point() + facet_wrap(~class) + theme_half_open(12) + background_grid() + theme( strip.background = element_blank(), strip.text = element_textbox( size = 12, color = "white", fill = "#5D729D", box.color = "#4A618C", halign = 0.5, linetype = 1, r = unit(5, "pt"), width = unit(1, "npc"), padding = margin(2, 0, 1, 0), margin = margin(3, 3, 3, 3) ) ) #> Warning: The `size` argument of `element_line()` is deprecated as of ggplot2 3.4.0. #> Please use the `linewidth` argument instead. #> Warning: The `size` argument of `element_rect()` is deprecated as of ggplot2 3.4.0. #> Please use the `linewidth` argument instead. ``` ![](man/figures/README-unnamed-chunk-7-1.png) ## Geoms The geom `geom_richtext()` provides markdown/html labels. Unlike `geom_label()`, the labels can be rotated. ``` r df <- tibble( label = c( "Some text **in bold.**", "Linebreaks
Linebreaks
Linebreaks", "*x*2 + 5*x* + *C**i*", "Some blue text **in bold.**
And *italics text.*
And some large text." ), x = c(.2, .1, .5, .9), y = c(.8, .4, .1, .5), hjust = c(0.5, 0, 0, 1), vjust = c(0.5, 1, 0, 0.5), angle = c(0, 0, 45, -45), color = c("black", "blue", "black", "red"), fill = c("cornsilk", "white", "lightblue1", "white") ) ggplot(df) + aes( x, y, label = label, angle = angle, color = color, fill = fill, hjust = hjust, vjust = vjust ) + geom_richtext() + geom_point(color = "black", size = 2) + scale_color_identity() + scale_fill_identity() + xlim(0, 1) + ylim(0, 1) ``` ![](man/figures/README-unnamed-chunk-8-1.png) Labels without frame or background are also possible. ``` r ggplot(df) + aes( x, y, label = label, angle = angle, color = color, hjust = hjust, vjust = vjust ) + geom_richtext( fill = NA, label.color = NA, # remove background and outline label.padding = grid::unit(rep(0, 4), "pt") # remove padding ) + geom_point(color = "black", size = 2) + scale_color_identity() + xlim(0, 1) + ylim(0, 1) ``` ![](man/figures/README-unnamed-chunk-9-1.png) The geom `geom_textbox()` can draw boxes with word-wrapped text. It does not support arbitrary rotation angles, only fixed orientations, just like `element_textbox()`. ``` r df <- tibble( label = rep("Lorem ipsum dolor **sit amet,** consectetur adipiscing elit, sed do *eiusmod tempor incididunt* ut labore et dolore magna aliqua.", 2), x = c(0, .6), y = c(1, .6), hjust = c(0, 0), vjust = c(1, 0), orientation = c("upright", "right-rotated"), color = c("black", "blue"), fill = c("cornsilk", "white") ) ggplot(df) + aes( x, y, label = label, color = color, fill = fill, hjust = hjust, vjust = vjust, orientation = orientation ) + geom_textbox(width = unit(0.4, "npc")) + geom_point(color = "black", size = 2) + scale_discrete_identity(aesthetics = c("color", "fill", "orientation")) + xlim(0, 1) + ylim(0, 1) ``` ![](man/figures/README-unnamed-chunk-10-1.png) ## Acknowledgments This project received [financial support](https://www.r-consortium.org/all-projects/awarded-projects) from the [R consortium.](https://www.r-consortium.org) ggtext/man/0000755000176200001440000000000014310623726012333 5ustar liggesusersggtext/man/geom_textbox.Rd0000644000176200001440000001374314310623726015336 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/geom-textbox.R \name{geom_textbox} \alias{geom_textbox} \title{Draw boxes containing text} \usage{ geom_textbox( mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., nudge_x = 0, nudge_y = 0, box.padding = unit(c(5.5, 5.5, 5.5, 5.5), "pt"), box.margin = unit(c(0, 0, 0, 0), "pt"), box.r = unit(5.5, "pt"), width = unit(2, "inch"), minwidth = NULL, maxwidth = NULL, height = NULL, minheight = NULL, maxheight = NULL, na.rm = FALSE, show.legend = NA, inherit.aes = TRUE ) } \arguments{ \item{mapping}{Set of aesthetic mappings created by \code{\link[ggplot2:aes]{aes()}} or \code{\link[ggplot2:aes_]{aes_()}}. If specified and \code{inherit.aes = TRUE} (the default), it is combined with the default mapping at the top level of the plot. You must supply \code{mapping} if there is no plot mapping.} \item{data}{The data to be displayed in this layer. There are three options: If \code{NULL}, the default, the data is inherited from the plot data as specified in the call to \code{\link[ggplot2:ggplot]{ggplot()}}. A \code{data.frame}, or other object, will override the plot data. All objects will be fortified to produce a data frame. See \code{\link[ggplot2:fortify]{fortify()}} for which variables will be created. A \code{function} will be called with a single argument, the plot data. The return value must be a \code{data.frame}, and will be used as the layer data. A \code{function} can be created from a \code{formula} (e.g. \code{~ head(.x, 10)}).} \item{stat}{The statistical transformation to use on the data for this layer, as a string.} \item{position}{Position adjustment, either as a string, or the result of a call to a position adjustment function. Cannot be jointy specified with \code{nudge_x} or \code{nudge_y}.} \item{...}{Other arguments passed on to \code{\link[ggplot2:layer]{layer()}}. These are often aesthetics, used to set an aesthetic to a fixed value, like \code{colour = "red"} or \code{size = 3}. They may also be parameters to the paired geom/stat.} \item{nudge_x, nudge_y}{Horizontal and vertical adjustment to nudge text boxes by. Useful for offsetting text from points, particularly on discrete scales. Cannot be jointly specified with \code{position}.} \item{box.padding}{Unit vector of length four specifying the padding inside the text box.} \item{box.margin}{Unit vector of length four specifying the margin outside the text box.} \item{box.r}{Unit vector of length one specifying the radius of the box.} \item{width, height}{Unit values specifying the width and height of the text box (including margins!). If \code{height = NULL} (the default), the height is chosen automatically to accommodate all the text.} \item{minwidth, maxwidth, minheight, maxheight}{Unit values specifying the minimum and maximum values for \code{width} and \code{height}, respectively. If set to \code{NULL}, are not enforced.} \item{na.rm}{If \code{FALSE}, the default, missing values are removed with a warning. If \code{TRUE}, missing values are silently removed.} \item{show.legend}{logical. Should this layer be included in the legends? \code{NA}, the default, includes if any aesthetics are mapped. \code{FALSE} never includes, and \code{TRUE} always includes. It can also be a named logical vector to finely select the aesthetics to display.} \item{inherit.aes}{If \code{FALSE}, overrides the default aesthetics, rather than combining with them. This is most useful for helper functions that define both data and aesthetics and shouldn't inherit behaviour from the default plot specification, e.g. \code{\link[ggplot2:borders]{borders()}}.} } \value{ A ggplot2 layer that can be added to a plot created with \code{\link[ggplot2:ggplot]{ggplot2::ggplot()}}. } \description{ Draw boxes of defined width and height containing word-wrapped text. Multiple boxes can be drawn at once. Most styling parameters can be used as aesthetics and can be applied separately to each text box drawn. The exception is styling parameters that are specified as grid units (e.g., \code{box.padding} or \code{box.r}), which can only be specified for all text boxes at once. See examples for details. } \section{Aesthetics}{ \code{geom_textbox()} understands the following aesthetics (required aesthetics are in bold; select aesthetics are annotated): \itemize{ \item \strong{\code{x}} \item \strong{\code{y}} \item \strong{\code{label}} \item \code{alpha} \item \code{box.colour} Color of box outline. Overrides \code{colour}. \item \code{box.size} Width of box outline. \item \code{colour} Default color of box text and box outline. \item \code{family} \item \code{fontface} \item \code{fill} Default fill color of box background. \item \code{group} \item \code{halign} Horizontal alignment of text inside box. \item \code{hjust} Horizontal alignment of box. \item \code{lineheight} \item \code{orientation} One of \code{"upright"}, \code{"left-rotated"}, \code{"right-rotated"}, \code{"inverted"}. \item \code{size} Default font size of box text. \item \code{text.colour} Color of box text. Overrides \code{colour}. \item \code{valign} Vertical alignment of text inside box. \item \code{vjust} Vertical alignment of box. } } \examples{ library(ggplot2) df <- data.frame( label = rep("Lorem ipsum dolor **sit amet,** consectetur adipiscing elit, sed do *eiusmod tempor incididunt* ut labore et dolore magna aliqua.", 2), x = c(0, .6), y = c(1, .6), hjust = c(0, 0), vjust = c(1, 0), orientation = c("upright", "right-rotated"), color = c("black", "blue"), fill = c("cornsilk", "white") ) ggplot(df) + aes( x, y, label = label, color = color, fill = fill, hjust = hjust, vjust = vjust, orientation = orientation ) + geom_textbox(width = unit(0.4, "npc")) + geom_point(color = "black", size = 2) + scale_discrete_identity(aesthetics = c("color", "fill", "orientation")) + xlim(0, 1) + ylim(0, 1) } \seealso{ \code{\link[=geom_richtext]{geom_richtext()}}, \code{\link[=element_textbox]{element_textbox()}} } ggtext/man/geom_richtext.Rd0000644000176200001440000001506214310623726015467 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/geom-richtext.R, R/geom-textbox.R \docType{data} \name{geom_richtext} \alias{geom_richtext} \alias{GeomRichText} \alias{GeomRichtext} \alias{GeomTextBox} \title{Richtext labels} \usage{ geom_richtext( mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., nudge_x = 0, nudge_y = 0, label.padding = unit(c(0.25, 0.25, 0.25, 0.25), "lines"), label.margin = unit(c(0, 0, 0, 0), "lines"), label.r = unit(0.15, "lines"), na.rm = FALSE, show.legend = NA, inherit.aes = TRUE ) } \arguments{ \item{mapping}{Set of aesthetic mappings created by \code{\link[ggplot2:aes]{aes()}} or \code{\link[ggplot2:aes_]{aes_()}}. If specified and \code{inherit.aes = TRUE} (the default), it is combined with the default mapping at the top level of the plot. You must supply \code{mapping} if there is no plot mapping.} \item{data}{The data to be displayed in this layer. There are three options: If \code{NULL}, the default, the data is inherited from the plot data as specified in the call to \code{\link[ggplot2:ggplot]{ggplot()}}. A \code{data.frame}, or other object, will override the plot data. All objects will be fortified to produce a data frame. See \code{\link[ggplot2:fortify]{fortify()}} for which variables will be created. A \code{function} will be called with a single argument, the plot data. The return value must be a \code{data.frame}, and will be used as the layer data. A \code{function} can be created from a \code{formula} (e.g. \code{~ head(.x, 10)}).} \item{stat}{The statistical transformation to use on the data for this layer, as a string.} \item{position}{Position adjustment, either as a string, or the result of a call to a position adjustment function. Cannot be jointy specified with \code{nudge_x} or \code{nudge_y}.} \item{...}{Other arguments passed on to \code{\link[ggplot2:layer]{layer()}}. These are often aesthetics, used to set an aesthetic to a fixed value, like \code{colour = "red"} or \code{size = 3}. They may also be parameters to the paired geom/stat.} \item{nudge_x}{Horizontal and vertical adjustment to nudge labels by. Useful for offsetting text from points, particularly on discrete scales. Cannot be jointly specified with \code{position}.} \item{nudge_y}{Horizontal and vertical adjustment to nudge labels by. Useful for offsetting text from points, particularly on discrete scales. Cannot be jointly specified with \code{position}.} \item{label.padding}{Amount of padding around label. Defaults to 0.25 lines.} \item{label.margin}{Unit vector of length four specifying the margin outside the text label.} \item{label.r}{Radius of rounded corners. Defaults to 0.15 lines.} \item{na.rm}{If \code{FALSE}, the default, missing values are removed with a warning. If \code{TRUE}, missing values are silently removed.} \item{show.legend}{logical. Should this layer be included in the legends? \code{NA}, the default, includes if any aesthetics are mapped. \code{FALSE} never includes, and \code{TRUE} always includes. It can also be a named logical vector to finely select the aesthetics to display.} \item{inherit.aes}{If \code{FALSE}, overrides the default aesthetics, rather than combining with them. This is most useful for helper functions that define both data and aesthetics and shouldn't inherit behaviour from the default plot specification, e.g. \code{\link[ggplot2:borders]{borders()}}.} } \value{ A ggplot2 layer that can be added to a plot created with \code{\link[ggplot2:ggplot]{ggplot2::ggplot()}}. } \description{ This geom draws text labels similar to \code{\link[ggplot2:geom_text]{ggplot2::geom_label()}}, but formatted using basic markdown/html. Parameter and aesthetic names follow the conventions of \code{\link[ggplot2:geom_text]{ggplot2::geom_label()}}, and therefore the appearance of the frame around the label is controlled with \code{label.colour}, \code{label.padding}, \code{label.margin}, \code{label.size}, \code{label.r}, even though the same parameters are called \code{box.colour}, \code{box.padding}, \code{box.margin}, \code{box.size}, and \code{box.r} in \code{\link[=geom_textbox]{geom_textbox()}}. Most styling parameters can be used as aesthetics and can be applied separately to each text label drawn. The exception is styling parameters that are specified as grid units (e.g., \code{label.padding} or \code{label.r}), which can only be specified for all text labels at once. See examples for details. } \section{Aesthetics}{ \code{geom_richtext()} understands the following aesthetics (required aesthetics are in bold; select aesthetics are annotated): \itemize{ \item \strong{\code{x}} \item \strong{\code{y}} \item \strong{\code{label}} \item \code{alpha} \item \code{angle} \item \code{colour} Default color of label text and label outline. \item \code{family} \item \code{fontface} \item \code{fill} Default fill color of label background. \item \code{group} \item \code{hjust} \item \code{label.colour} Color of label outline. Overrides \code{colour}. \item \code{label.size} Width of label outline. \item \code{lineheight} \item \code{size} Default font size of label text. \item \code{text.colour} Color of label text. Overrides \code{colour}. \item \code{vjust} } } \examples{ library(ggplot2) df <- data.frame( label = c( "Some text **in bold.**", "Linebreaks
Linebreaks
Linebreaks", "*x*2 + 5*x* + *C**i*", "Some blue text **in bold.**
And *italics text.*
And some large text." ), x = c(.2, .1, .5, .9), y = c(.8, .4, .1, .5), hjust = c(0.5, 0, 0, 1), vjust = c(0.5, 1, 0, 0.5), angle = c(0, 0, 45, -45), color = c("black", "blue", "black", "red"), fill = c("cornsilk", "white", "lightblue1", "white") ) ggplot(df) + aes( x, y, label = label, angle = angle, color = color, fill = fill, hjust = hjust, vjust = vjust ) + geom_richtext() + geom_point(color = "black", size = 2) + scale_color_identity() + scale_fill_identity() + xlim(0, 1) + ylim(0, 1) # labels without frame or background are also possible ggplot(df) + aes( x, y, label = label, angle = angle, color = color, hjust = hjust, vjust = vjust ) + geom_richtext( fill = NA, label.color = NA, # remove background and outline label.padding = grid::unit(rep(0, 4), "pt") # remove padding ) + geom_point(color = "black", size = 2) + scale_color_identity() + xlim(0, 1) + ylim(0, 1) } \seealso{ \code{\link[=geom_textbox]{geom_textbox()}}, \code{\link[=element_markdown]{element_markdown()}} } \keyword{datasets} ggtext/man/figures/0000755000176200001440000000000014310625353013775 5ustar liggesusersggtext/man/figures/README-unnamed-chunk-7-1.png0000644000176200001440000013405714310625352020506 0ustar liggesusersPNG  IHDRz4iCCPkCGColorSpaceGenericRGB8U]hU>+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i_@IDATxVKww ((" "l?**R ()Hw , rwλ~쾷fύ9s̙,JB$@$@$@$@Q"5JiHHHHH@HHHH F7OF$@$@$@$@ @T P*nHHHH (    U< P>$@$@$@$@Q%@4y2    *|HHHHJ {Taх6Eke$9up2e*Ŋz+U-IÚc2erP-ǰo%;gT*_\.oZK֭ Y|]F< 'Ohf5{'uk[ՓB},<ͻ?m${lE3f//hpLH%={Vr}w^-*lE:|,rl9zr喅N@3P rN=۵M*-lپO=6f6RtYɞ-VzzdUi e_Hbb.ɑCU3.\Nʙ3庶 Go |>j$JNq ̀"HcDO>%9g[+.?o.XywҒ E {344Bk[_)I2uZxTT]||S_8[|P)gիr#=/({6ǘ TF M ĄD(л'(Ǹ{CΞ='Sf#U˓݆BUӯ}/~;GV,)/ ErDQxvҪY r-$*?u̚2|\]Ag„@5偞$+%ɦ|ٲgO / ޡKr%;uOVꃆhIf.YteKhij 2%r̥ LWG ]#yu%L;^@8"*/?)UKO-Yf뾣NG> T]@$0lV &]2EZ;w:rc`M˥IRxA,^YF+esҷ{[¡Rr/uS7.2lJU?L YБAUnTTBnԭUNq;(sɳ;OQ#@[J R^/ _8W @ve=.{I|dޢUbtt~o~B~DQq4\%eJeɏM䲆UfUeٳe1jlٹ Kd:yzfgz-*]p EUg?U@7[+c[I}4_I6l+?O^,+ЉLʕ*">2ҲiuA}5zNS7w av;RzRW+o[\֫r|tNrA&ވ}H)Srt-j pֽz⫧*Tkt|$ǎ .ZIEEVHD}u˸Iu eoi3n,PZF<_Fq+E x &ؒ, ]FKn [M*KHxJ9yZV+u-2ɂB4 ֤~9YXtjPʕ."EU%9y2\Tj#.[Pbjܽ8f7(䖎MG;KgG2-WQ_.,JzW~y`s{*?*VlSwAPozQՉ3? F0SA:(C^e'DoR|ֿRK{>>PS:5ۮoM:tL5 iꪇRfخ۴G9XSsJ +p3PlQ;IZ=O]g8; q"\ۦ:ԭYVh[-g,픻\! h[.W!ɠWh JV7ORlm_SZZ7?9 1a3O~d;LǭoVPKzm4e߫z{&Ո+Jl+T0 ~{٩mT OOhT*iseJLٸK>GnU0 (+)˳KZi=oʷr5o8?ê/*?['TBVѸlՐKh.SF/Ԟ4jT3:邥yῆ5?7 4R@n*: P Y\9/<~{6n'7uh|ںc./JkSBתVFW=%%Pb$gbvE|Ĭ]pE-;ke>ZjtZegΉJK;#G3H*Q> n*x2{.qt/wTPB׳˛SuuOT:P_wd5wzں#͠#ut hsN"q/UD<9u詀K =ᢅIjy{V}ݏ /(T@–o {_QTyW{vYȘU̼zGUo(Q LL]'-Q)'OTET D\(?CG܏ *(rqm7۱n4%9?*I.(DP@MkgFU r9p?DUx_w=I yc`~ZQ@T0xoz >.5{^xL!Hd͋ˁ tM5aVQ U9 cTS]ۡ_,󺟯e@|͹̇ˬ7־朱r&ɝTp 2`iAyEj |6K ITw6l*?^Iߔy2jnCM7sxAΜνj7NDש^V.kTEˉ;?v+R'4 @ ׃9Z/UߚuPҬa6{=b[R))/SV5}BmJ?'1Ǩw#X[}k;F(`>Y'}6HgFdLC{iln ..F@XJmU"*L``Fc/O"AhnoGoQ8h[cST`G:jh~^RF<1^֖O4?O*k\0h]I|77;wN-G dt)^aD`lYdѲ:ŕk3@]!5BW/(/kbu n/TM*Dڍ{CEeǔxQ1:,0JV-2kWr"}j;X+v6qyK5=Ryt(& @YEw +lZC&.;pb/F0P &n V=8w~u%EN.:q&g} (LKFWȽݮ'ɧ\78u.xg*/& UC eSu=pv|2$C,Z7h}E T6>!Mɯ SڸQ-AXM t{`ѽ/3dbf'/ҡZ/j-:g]]WΝUsZWaz=& ʤKս<+qyvd|L=Ӟe ͓(=^czޅptq4 nȡ{5Qٵ~RxB<jZ.:7ʏ+XkՈ3tޙ߹sgR\5hz0SRKQSqhfn)vM?MZ$/0ttAD|jd} +=# =Nr}ܹsʀuNVdQ~Lqa?',#PLNz4ǣ| &pORie,C=yrՁKG1bt`?bT W{D J*xN8|O>UU~ hjkgϞQߡ*r}AiևI>Έ4E >[fI>"j?pcGQr.x`*DJ)5턪x=V/ɳc1:ޚHM1'P.ĉr%h9&&'If'ۧOdxá| yzR>q,*a_V_uef='O+@in NԬY5˫R>ꇿy8PxS> LO: ҋ{Ωb7|"T@ >셞x1URde▌K3>}ZR3~9y۔_`/eZ2ߍJ =>s )!@ .q 7dwx%dSxS,E8(`.tݣ=hh=qo( g͔~[Cyz fdL֠NEyRev׷bvywD5&mn洨x($Lm=,GbzojfbRa=v|\D'9 ĂFyywG9k@8u;|Tw 3.l*%׭UALlߕ$+2zH*7b$ BbR_5v)dꭲ]5&XD2&=|r5P$S(bZ    K"bn$@$@$@$@$iӦI\dӦMAq?2 S";Nv ϲpb=8esbN٭,;ko`ة,ޛk'.ex7ԩSA+'N+WQ8erpdRvpZ2 11"6,Ǐ1Г (˙3z eHII Bѣ,k9t.M퓵k>;dͶ(˖-[d!%sOu2>f@$@$+ jժIӦMcU H T@$$@$@%лwo;vݙ,}?8I&RH$@$[Oرcg/Nj @ hf˼F #kC'NLHI = KE$@$@ѢEռpRp3 PayHHxռ2F ^q' }PϽ`IHH ޽{ERF ԩ߿_DŽ#9!M`HH#P@?KģIlCP HHH2*>*IHHH6V $@$@$@$9PWI$@$@$@!34%%Eڶm+sq1ydڵjJFᴏ+$@$@$@$@@G}Tf͚F (.]*ݻw&MH^dС2dȐOW@$@$@$@$ 0LǏŋ bYeҷo_8p\H4(ݬt\&   8"xpeʔ)Ү];'Rk֬q(Ѻuk9plݺUU8vҤI2w\yf yqfπOyo*{fxbkbL[8#=7b+d(V^&l``AN*:t jժU!~üqFRJ̧q}vYV @wm(eI0G\b-[l)X%gΜR|=6=+W Hn:ɝ;+W.مNJ+xRD 51*Е+WJ2eּX G+Vb)مaõ \y a@>(i^$$$IJ(Q.ZJV(pܶmh5ƅ+@΄^5;W^-_zg}6H cKK$@!ի|gڧ355U^xΟ~aHB!.P1- d0~V>Ql(ǏKǎ2 @4PeHlB믿v[ٳg΍$@$ T@#Ay M ,Xmrv;7 @$PUI$@6%0rHɖ-[M6-6n  H)̗H@3m߾]9/B ys%4h<HA h8(2 7J͚5nݺZ|W*QBϟ?/'N.] @0 SH2 "X<]g!zjժҭ[(" 83  4i*& P-aHH?YdIwm$>#)PTR$\/ o H$@ \{:uggLرcG qrܹLNNNwe! ? `͛ш쯽@1 8PN:@s߾}2}t6.ĎرI3g+R.3g O>-s+VLJ,)w;yu]z .\m|0L[lȣ>p# K/GԵ\pARbOcX 8!}]v/hd…ugnZ0ꫯ|˵/ɞ=/^aOo)xOfBBcB۶m/tڌmڴqƕtҥҿi֬<#Z1'O]JVdĈ³ @ЭP>I|&N(÷p?` x8 ''|2݅j]!w{!rļy,Gq1V>|X*`ذa{ҤIի :T +6u|\݈ΊFPTQ9׫WO`m=x)NqK3zA_Aރ^xqx*%?uTO+ ~Rv2eo߾q)RD+ > {6*P:+Hۃ0%٭%:tE&U\RwůZJώ5!w@"i8ʀdӦMr饗`[nO>ĩ B93t7 Jf%45k8Ol@֭[fXh|t!֐? tAK|`ܨђCY`+e ϯЛJ-QB[3@ X?o^G!أF҃*=O<7, WÆ vo\uߧOݭsYo^?;v,"xzۏk#f қ` GS|c)ֺĴ઀f͚U[2ыjsׂA|?[V:`úzhn؏ uH4wgf{=Jg*s•ot'u45Pa B"ψ),f_sfL\/1s c eїXbWF)ꫯ 8p,ͽr[(nDy,QU@ VArFw,hC -ۗ_ #i!d֬Y2zhY6:w+#d_-~Fӳnf{h8Vf', 06 Iys͎x,=y睶Sn0;;AxEXB^x}~xrC 1Ʃ|omQU@z7j(*|6wItG=ѲT$@$#+ QC_f@1?s=6%Tdcw .!` ӵt GARH ƍ Q zs@#+i%e hx饗Bb; l٢C v@~fxrQ_ k*|A "D?qN!;Y('.LDyݹ7)<E 93ar駟)~ @ G_Lwf͚ ~C#F]C@BK2F/]^@v'oq!t,Y2]Fi:uJƺĄ+*= ೦} Pq*X,Xi;WH@䍉'و=Tx}ȝ ^ Kޘ qeuƌM\&/瞓ٳg;ʆ (&qS$ w1>yak/l\K%lP~g I ѷ A&~k=K4\'X@w:\O zir:@h3DpU$qq8*x][sh=B~(S;ngx$UV놁Awdh=ŠV J!NS0jX"P2Uц2wHÆ u#ƻQ?3"<LI!g]^"G\#ڰaC1hs͎뙀mp)LnIwڠ, ؊B@4VLk>6,c.9wi̱؏yWAn "Ui5i_L>S 5=%|qv) |uXLH%4`k /\Ozw|p%o6U`u8?C) E>}Y0`f̘F̞y{?Q ;nAH UֿhѢ^[f@8 >ÐD0UVI8z6 L .]Zw?ں 裏ʾ}AXb%Q$*~@!G}GB$em T\YG!pzX/.SN~aK߾}ez?1ݠAsv $@$@$@$@@TP(fTHafLejOǜؿuV0)[lqLrJ*.埉uR0n,q !%K1ނar#CY#P0AySaeo-tgޙPu߼qޡXs1S*=2b֢$K[)O76 f1)|‘p,Ƿ[ccM(>t+#"%gΜ:(^8- $|B 0@nV |N۸B>F~/B$zDFy H@XzU _ Q+i=< *U|,>1-W(G޽{uxkuG=avk0qe׮]9-W\"۶m/%K ,իW:=x [l٠WBbڱ7급h (&)Vl`3gS R`ij[bE=&SY`&`Xo.X{;_{n]΍9rDGk hRRM-pϞ=ZoCt&(sD}'eԨQ2m4Gx|2[ ]2*(l(Ħ*agAPcrkWb>B0udȚ5kP7LEpdE;p'Բen b1Ś*"ee1F |k]B8?;0KKHqj2 !1|}{ Fu<,%|2w\i2oˀnk)IHHHB#UtтO>D*֮]+, &xhXBT&   *o1ؾ}{Ufѻwo 'o؁@$@$@$@$&Qu44!<8_}PX;{*' O ̗/8    F ] K$@$@$@$T@#Y x&@3!   *,IHHH< D@e$@$@$@$@ P̆{HHHH"@ h2K    zf=$@$@$@$@ @4P% gT@=    ̒HHHH3*p @PTfI$@$@$@$PlHHHH F*$   L g6C$@$@$@$T@#Y x&@3!   *,IHHH< D@e$@$@$@$@ dIUyL:U:t 6lU\ .ٳg%G5kl˹s$!!Ad3)Kbbb8 */0}X X˙3g3={<ܣýAyGYd˖}aՔZݏ֔<@=<̚*KW@qMNN… k x&Pϗ=$@$@$@$@v$>g;aHHHH"J hD2s    WT@]pHHHH F/3'   p%@ԕIHHH"J hD2s    WT@]pHHHH F/3'   p%9\KuL~nٱ>6bOǬI f" J"zN;c=3'hHL!*KFtc=;)=Ѻz~YLH%gf|'wވvQTP&&0zR?-ה7+|KY]@@rzK9t_ ߍ|Hn4ij2y$ʙ[hr\^^G[?vf>yXnqPJ)]=4¢uЫoz.TT@Vͼ >Ҿu]iݼ/[DUW o]@we˦5/ɦm .ZzR0\xnq*)SzǶɏ*~k\vC{Jݵ'~jJt%~RV!%O$alxgN5+:eKu3}%UUEӗcqLAg+~ \a.:S;V+?&y$J;H҅u?БOwUQ a݊:d#emDfW˥IRRY1Q'.^YFz{*?E;nj!jL/Uګ$ϞM{`)x͕uʔY*'Mҩ]Cy۴9y22wgTf;WzK*5MGWDzvBw_jKiܿa"\"rN U6pyz?\9WBȷO̖sˠ~׫Et<zߧVVߨW}9(p5.thS_i*٪AR,UH`3b~U:ANTݥ*ߕzuԫU^5GgHByBҬxU*u<HGnurc',XǫbI :(_,{dpZ4=k{9{rjx~>Rr7 'PAY (ZzSL}lIV!Z =kkҪF;]e;kk>J>S:X ?G`U@Y!xצZ.^ϧz0dU2]6k}߰-E J-, u7?׍BDܡx+?>g[%(vպ]:O(#GS'.{$9C6t+ ]zI}}`-uU@Qe[}@yf95Znvk9IYHFR*CzsS#PQ] QH VЭ]+F~ZD:zLKٳ>1nr:4s>Wf_8XQ& C4 2Y=P|/PKU`oݢE VJ#z߻znزǡ|b#,n+wt+ui(F0[ͪlнyUC=c?\*W(]oU~Xp):뵃;]}ʟ*MPZt;e͒BH?U۪Y lRC dG袇+rp jDtgX%y.~w!*GOmS7䐲y @Qoi\%p][a\'@|AeGoE?v+rw63Xt>ZaLźl&r 2^]TaJ wsq9@zd▀.Ћa nx fB7|KB!5\^[+Q<e\J'ܯܯ>nP|_P̖Y5PD"o \;~J$+y ˩UΫ9w ;CwG.w)}M*_7"S@(}ݸ[ǕKv2ʁb`Ue$5t􍑄գC )CT!_\1fz\.?; f (] R,KFvNL׳Hre5.9 PT!~V]l~[Ӻ ;'fś"go4v*RQIU&Z.YC56tBNJ((߼`dI|%hͣcGBzo뚬rx0k[*?9>/}~&)W)pji ) Q)`ioJZG|2Ç!: ڠN;xjѾXˌiGOh!MBh' dZqv;+pLiʏHD2j< :"qZ| dW7 M%&!RǢۍe؞w*3n'/ I+CSosdz~|OGHPe:$T[Zj'ʆĹFi^S3m2j,[%4&X<\*u>u9ZdQfo{y*ʐOYϫ5 ZO )~N&|18]Hsݳt3TԴr^63pk<:<3X/7PAZDktS" ԽsPs|6pzʬi~Q>&* [UHMkɕiY 7YVEkUOn.@$AhmC)BQ+q HHHH"C}j\IHHH< ի_~r$@$@$@$@v";vG}$_ɓ'eÆ :?Gcǎ鲜WνÇƍc] }~4.mfٳGvel߾]8q, {nrrӦMrСcA|K|ߎ\8ҠA^3$Y*l9 ؈@eￗ ;T)i  @ VWQF`(P Ӑ @&!Zlv t8HHHH(_ԨQiJY D*Vʕ/Ѐp`   |~wmD J-B SAH @@0SLDiӦM@]J$@$@$@$@n TZq@ݒF    [o G$@$@$VXwMf̘]6"IHHH`ҪU+=e.|,>x [bfMIImʜ9s.fҵkW}3Fᴏ+$@$@$@$O.2xO>ݻ7.3ݵL}Ge֬Y(ҥK{ҤIի :T    'sNw99s>.)-vҷo_8p^H4Hrt,WHHHH TZ2\rNm% (Lqڵks͚5;Zn-[JjbÇΝ;/¼ A%K@x!(˹sšw4s:epBPWށG9T{gڼI(, lCY|$Psk.벘o3gb^2Y=]yBBd깣|M^i}ۉ1όGj) Xx|DoAІow}'scz/ϷV\oEMv@]{ҥKG}$7p@a1^8->]# ÇU;aTQ W n/_f+7 TRE0'9vl޼nn' 9rD+h\s5RfM{-ZT-nq>c u ݻZknq&;tW>T]res߿hM޽[ʔ)RwAxqٿTPAed.IVft ZqI[tGOX@+^xHE 1'ܳg^,U_sZkYC *ӢYEY$_|1- *V#<+ @}w]ܻ|Ypp?ڵKK|'\) /҇sѣG|=:tH@ iذ@7uJ:t%JT)xx ݻ 6L ׸qQqÍŇW^]Vj0Xӽ'Okɞ=jFs S׼B] ςʂ#9;T%pGχIw9}'8CTLpBs8@ h 2    C ÆmkO h옒HHH ӕȑ#ҪU+ӧ}͛7O'@4xvLI$@$@$ <ҳgO]rSݻW矗;C˓'=-Cg@iEao N$@$@$,?\XZJ_)Q#oFV\),]T-oI͚5tnyxHHH ^ XKk,\ބQF~W[!>~gs$p x dF]vu(~p1c,Y$3隩IHH2 5\3|CAv_xj߾lR[N]guvg;%  H?ޑСCҸqcǺYfiٳzydŊo;Hc߿4kL߄dnk@ZҊN @L.+RZ믵c}Ȑ!T mC 9ݱctG0 Xbzd+TX@W]u*UJ frڽ{wiҤK*   ٣auѺٳu+V#GH߾}1j<8\f>N[莇,pСd˖MFi_wW_}urٺuTV$ӿkb,Hv(aa~#~^N`xء,,~Lp\K8)euYT[SPs(i}qc`/hZD|a`~mv?n_\|?YTR @k;OdD-be]gș3`5kBB6'|PnV/,&K!Hz]f  0$o޼wh7o;Xz;f͚X+W U#9?^' qǏu늻G#P~} kNj׮5C4MObo-cƌъiӤhѢڇu(k2  WRRaK9q~)-wX >Gծ, _'_U4ʉhy oq|@q 7@ _xrGwZque[i0.`KUN~m9&xZOU3 *DA8V}$`Mݴicɦٰa.U(uٲe!H0]ai[詪ױ>HJU>_+kGƍ:6ȩj`O5Oüsڵ*N_s .;K0u޽%c*UaoR˜kpY)%GE5l P|QJP "8Ϋ,585W\Fݎ?oLUNzJS%iIdT=TT5٩"kVc ׯiɡo9jпW'{O[*ъw >B&}'|"M*hqjZʱ˰+Wα $@$@$@Z1w=5! >$|`$@ɍ;k2z@ ?X4`9 o͵z7j?{WЂC1wUX<oaHHH @lo2NLOAE(/b_qo: =H5# L7X5D@ $@$@$@Ewcmq@ o6?Q!=zo^~8@K   &Dq.\u3@@ +Vz!=;oV|K$@$@$ QʕJ"~an`Zkذ&3sN8!A sUc(I&i_]?}AF“ x%G[n8ap2YSnb> }e b~tE>ƇK0QRU@v1v2LXZHŴ 0JhPHHH2|INz{,W#FVUDzGF|"=lF* Ŕ1 Ο??c^%KM$@$@$L Bv谒z3}ȥzkFԜ:ə3g% Ŗq Ma4h HHH ~ `FDgZ뮻Nw[c)=@y#SBA\p#=zru&'';u[q9cP2ѬYtWXHt۸HHH ~G="}X#Ŏ!qˆ媸^q{4w\{A^z:w\e+mu#hCH۱cW7ٳgU^X$ ^ZCtG0Dl%..N|W0hΩ5kVyui&Y= HL َaN\v] `JT\#`Tѣ7X)EwȠAVZ͹L$@$*݄ ͚5K-ZSe˖U]<)8͂ 0qhܓA%rfkZl. +?g |ׯ/.Aɓ'͑o oo K@*ċfy7BBP.$ws )@<6lhKBtz5k&O!k!@Zhٴ-~HLx}7SGRZ5UK|iV۱BtA%o 1`"E9 9|fN]>c}13RK գS{@nwoSNUq00$_|V,#Hƅ A/EN] D zZ z($`7vNw:wٽ{,YbYB m "5-O՜pr@ D$ Noh^O Bȋs"BS\ZQaY 8n ]ηv >\nuNG\x8qW] }  *5o$@#Vݽ6he˖yq"K[I^YFA%ؘM qy)AF!q-H;jԨp(lʒ%,ۧ-!EƍA)$@@'V][o "UYFT L4e2Rdv&ZJ_1fS1b:/xA.\(_} o^Wт!b3gkG7HLLJk+H4AO 0r^z*g1 FɲQu*tU ÄL+? D2_~YƎ~裏>R (z0@nrέl#$8Gأ mҤ^}70&LF꧁@4q.0eBB @(ܱ0,|3 pշKϹS>ٸqcaJ _'݋n}Pǽ,{TpUH~}Y0qe/-㾏ߐ?I陀}]yѐ҃ܟ~)G#.BtG޼y0Wj_v=p/I5nxɆq w %ݺh_Jeh^mk7&$miт2hSl۶ͷ*UqYnG3Ri%.Qlg3:hަTmkFh^:IwfJնvoѺn& 5T>W|yvCNVjut-X}B$@$6>tH ;1e=nGLыQHc≔x詋ݎ?=#INEHsPHHBWat*5fg 'йsg9sR6Fςnp0H C)b|m269pїIH mD Épl{V@H˚01r$;n%0L$> j? O5hAzbYD$i#a0B0:o# EZW%jQ cXA$@$;ul<@[H@'y1(W`|PD>HͲ#qذaRHLC,gIH &{<Ӫ B$z=l "ZfOUWo)0UY0HI!K˗/WUbzի9pHH tpk1i$2efi &B0} Ԧ ޽{a6m(P}>RJR̰o(^ HH t pmD6a /Q֬Y35UN0}cqhx{ZwׯR2 HH T MWz@믿TnN+O8aٕ~z)TP9͎+hPZd 7z@Q{)qqq~ٵkjJ0A1Xhr׫}n u|5'#P\9֭[2LV  $@4*/;O#0uT6m Y…Y%($@$@$`N$@A#еkWHHjEe$@$@$@$@jZŸ<`B$@$@ .`P1H  ^Z֭k:1%&SHHH =M=KJO4۶m+ *?IHH Mh w"&… UHHREh0q#.9s{˜B$@$@!@4=/ D(eJ2e]5ή^pA^xy[nqq֎9"Ǐ{Lʕ+S֭[>H6ޥK)Zhm01̙32i$ݻ.]:ٲ- };#]w? Ǹ H ֭[{Zj]ύ7ь7-^=/rZv >gϞA=nZ9J%KeShhP{-[nlV`B9tl9Rhk͖m5SX1[}^F"U D nIu"=TʕCAAU+C44/M'k]v%_|.ȟ?n rG(! d˖-F_O(P҄ :`ݺu3~L"SqJ>SǎKk)R˸qdʕ:EA*+)YիW[G36HTD:tgy&UH|2}t={99CoJy_^^ĠvY*TTt߅ @ 9zh,RC;VG>;ǽ0آ -WWΝ;'hI. %Jԩc{-=J. "pe'U||צZ!ePmڴk` cvd͚5̂<&/RkwK7eȥK} 'me۶mHy*cZ1]+ȝv-Uq8ȭ?Fes!%]xb~Stް?]kӠA^{MaRF ٴiR{g}&}U[p$0!??v 2rO+C N<êKݍ5oȺhնz0?-ӵhյe`tY!qf&A]Х+W. O1邩v* ^`KJhIE{ 1c˃q|P]w;(\*xRt#S`V`KJ8ťPBGm۶NIh<.NJ{â{>NS0OզqLJJo! q]DL(.[qFφ)2 hsQЖ.0:O>:/=\)(..Nu9F'\̙3 i;JLqi%n𧋓<4GnX]^uXem,*켧jxA b/҄ ~Nj/qo1HOV?7B F:2oڗ=vˢibb$F!?OLpEV"~(j%WI'$$8.3IzCg#^Y` 9>E|Yb l8p4mTu*^m$Cƃ^h B! OlXRlY5\睘 e7'h胷Iݺ7q]09W:uRqZOz$mzY3-z,;El\pI>b{m[!o~8_b3Ǫ 21Iu/^5SCޗ_%e~ۭ `@Yӂ: F]?nC 1rIیmO.6 Ff_֭7Fa.TRzQ?ke7x 6׹Rc=ET/K.5Bi0oK]z?{w2x`\`;?-S3-ڈ6o? .,Yl#%$Iby9d#~㧆ꐺ[; SzwΝ;U쥾Oh|x)'p0 <&` ķZh 0lyuÓXo߮BTċ  /xxVV-[櫇FL\/R1ʃ.d]B7|%.NswnNʝ>Kȑ#=~0 Y HÄTH ֎{ b]bOϜ9B0)䂮v;1<^qh¹z6-=ktlH dɒU7r㧃x)$I-eDrn^; ߌ3l:ji Zkذ:m<4К6mzKJ; ' 6 0GoJ4GcƌC] \<頗;q[liv =Yϟ-6ߕ?^u Kil,%9Ж[*-* 3Km+h).i;Ô &  H+z@J.-R@nMAw<YS|XB?*6QD7|ú-:c?S @D4.}'wSomwKUKʐƆWdw)t/_YusTx,]Iߜ$@$@$@QD(i=v-kIm~?7U/^ 09D9sd'ϪfJK>wk#lRCNJ U%G$@$@$"5?s/{$K;pާd.YPn^Z6m?(gqՕTg2Eϣ-uouD f:ԾX6lٜ31HHl&qh *dWW2h_K-Cԗ{Z^Uߩ6$;ӗHj%eA'bc3O~O&H鋙:J7q  @%G,;崋[7yAZW2hsdM{ ɇJ劧@ܓHHl&qPzcSt\^BnkG즕 `t9~Z}`6e.j[j6 4@ojz$&%jdh^;t'&&H2Ok?    D(ܣ}rEɔ9VG#r5# yt }?a)R(oHHHjFڭ2e߻6Gƛp9 =V;ʃ F<  h ~.A-R/' #L2J<9WQ}L$@$'   !N>-VF_THHHH?7@a|֫WOK۴AxL @$w[.^tq[s΅*BAD-yfykAHH@vɷ|ǎm ]`-sNP?~Ç}4or4˝HHHMQo m @4WL$@$@$@."|6M$@$@$@Hh4^u3 H4 D#xy$@$@$@$".g$@$@$@$hFU9 hM @4WL$@$@$@."|6M$@$@$@H5ܹsҴiSYl HǎaÆ2qD: ? ~ҥKŵkJ.]vҽ{w7n5ʨ @)̝;W@^Rn]۷>}ڬ,X@:v( 6'zqHHHH 8j:uJ5k&Eˮ]UVE]tڵkKeܸq2j( $@$@$@$@O pBi޼ 2D57o^V8p@/.^zIU}!:`ɜ9-    8}?7Ne޼y#pªlӦMҤIqr1ٽ{Q    &TG'=2,/_.2eK.)Oh$gΜya)_Q>k,+r|ۤvjC)=R]xQv!Nxd޽.HLLTߏP%)))drʕ(&&FJ(%c{$@$@$+(<&M3g*Ctի%K/zѣGe˖-j5>>^}^pA`4]ܷk=VzǹppSBI ` .0CA 5rE&HH 2hvRBڵ 6L:Ah J0IJf*;v2eXNٶm+Wr@Ν۷ Ȗ-[Mm -xV7F><իWSj1gϞJ*8ïlٲR[nU%K)IHH 8{رcw㡾qF3fdA $@$@$@$5@oF>|22E/_~:(?eA::G-={ HHHH h hzڮ];ed"VQ=dժUH7|3P $@$@$@$@OQ 'ŊS]:F @OT8Sgݻ{i D =QC6LOPs1B\R~6 @pj ?Zje?$   t.|32E*+ΘgD$@$@$4N*W`V\ٷ$@$@$@$&4@ӄ-rw:ydU*X@$@$@$@i AHi.`u޴N:ꨛ6m>}Z7nrȑ#6HT5kԋI$@$@$@i&@4B{Gq;H$'N~AFR|/^ɓ'Tg4I$@$@$^O/ݿ[nC̙3C uIN'djTxE1^њ)S&ܹԭ[Wm$@$@$@$^4@K0Dǔ.\d\\fD|.];?Xf̘u @z >=BxߢEʖ-[4LHH J"Ew\yYU\rk&ի72 =FD\hժUE^3&&F)9sfXu]y2ԊHHH ` M_ə3Oh-Z/lذws -o V?~پ}"#RP!B$@$@$@N .q-$knd,    ' uMm!UOK'-ZX AԃqpRJA*;wc"_A~O 8 hI?mϟ?_0F RB|/2H&2d Ht}E$   Wu{p5j1ˑ~9rw}'-[ٳg,YǏ{>$   ' pnv]ڵk'I!   P"܂ %K@}IVx   Uׯ^n6>|lݺՋ͂ cǎҰaC8qWW 2~xUrɎ;T[rHHHBSA*s[WF ٴi"vZҥԮ][w.8H63f`nI˧ 8oܹ%>>^g}V IL2FHHHH  8JeĈ .J*^zIU=f!:`O)0!V={`xü`r1ٶmCRfnpdl   Q0$q.]RFzxFZƍUݻ|ŋ˪U: 45tC_`zJ@;sdbTy睂y}jndٲeUrٳUp95:d]._, fPtyb)$@$@$J5@lNP.(l._\L6~t G6İ4H}ʕ5kVe@YΤ$*9qiU:v>6R;tu ]`CBEHq;  ' hvWLDf̘|p=mѣGȄۂ*Ur[ lٲ|x)YP  z@u!]uUϞ=tw&&&JR]CVZ_+A ( P+ywdŊjT; 0x3j|Z2   G PO{^V+W:xHya(Qk;W֭[F#.F3[ '|ѻV1}I۶m >sHHHsU޼͛7+FyU%0 E<ѣ`;]EQTIC $3a>b3}N:sd*iժʅ WZnm=S2HHHH 8tرj F9R1D!3f̘[HK}P)-s='[lE/.&LHV   wgaÆ- : Ɯ)N6Ubtq" PTK(hf?9xܵk0P YfЍXWFop,'   &ZRiIcv;E #|EbĶ`68ͱꃊ;jNOzjebHHH"]bŊTG͉ajQx:$..ί7n"FW+o1IHHH mVMa _JՓ'OZʐtǎRHHHH jqE ҥKnxnǠ!xO.}OHHH" P+ZvmR1bSC̕+o:g0i-Z*66ֹޓ5   p P a(ȑCD^˰a!Xǔ3޽zwc.{ VBLh6mo $@$@$@$jqPJUrtb>z5k['OYr`QժU%C: @dcqR)a3` 4@-;JCXF$@$@$@$:4@SIm    jI&"C,g! @ `sNR1惷d! @Vc @4vXRw}ײ$@$@$@$@'@ԂUvdԩF  w($@$@$N E]IHHH  >"ρHHHˆ 0XTHHH"@MEoe2{l,X #?b/L"S}Yۃ־@)믿 CYfO8O߹sWw rM:U]5S7NV\ic^nɫ+$@$@$*xby衇d^ubڵkKC}ԨQ^{ş.۶m9s(#gI߾} -ZPm/r!|6m䯿CIIܵk2eآ AI׮];rH8qі\z-?*Wm&MrȑË & $@$@HSqFϣM[;<:m <(= h䍲`.e֬Yjժ9Ǻ=aeoذSzfhI?={\ ѼҞ#FIzG tA;RR%UXK0P=wIժUպ\)λx͛7+fuAM! J L  eQejN5t` UTX<|Q Z0ƌ  fƱe˦GrjFXpamfm.&tA.Pt#10a.]j&u&MR8E?9I`0 㻂ŴzLщB)$@$@$wd |_|٫̉[08iܹdbRK0;ＣA2X&`b Ax_}viٲ-' 7ސ3??bR_|E;m4=.vtGUƦΝ;UlO\wk HSӣ"FI.YFJ.=Vzh^.v|WHHKDqǫGm16e֪UKH96h6ۈA.C\aŊA*0{H dҥB 4LHAA0H?y b]?s挼K@H$ʕ+_][o <88 gB\$ ^>L>#~|z4c̣u={.6EJͻA#mGz =֭[R.idZIhFGy4̣ 8`jtYhGT4G3X=nvȑ#G<ԸZW:*~GAf68W^yţh˗ϣ u\   P$N~= OBa@qn Ǒ: YqR;h V$TX`Y X 2|u D ƀFE) @(W @D$@$@$@Lh(_F$@$@$@Hh^T @@~[t~Sc 64@& [̞=[͂($@$hF x@)$@$-hF˕y N ..N:v&6fR]0+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i_@IDATx T?g涧Ml6J YRRIЏ6H"!J$BTV!)Y9>ә;ޙ{gΝ;sy<9y3>)`!    $<< |# $hBqd$@$@$@$@| $hBqd$@$@$@$@| $@ZBϖ? ;[qA|3OdY^/:]MXIbŰ~0Y:v}(۶7%eRH۷xD,1ϕ\*Z(8@A>k.]: /D˛s&b=>KL A+_gOޥ%KoHG%JrٹsgF.A?V VvڕK{n"bP e{ ښ?<3 JIHHH P{HHH % Byy$@$@$@$(@=L$@$@$@hh   ?Ǟg&   BIPv^4  c3 @$@Z(o;/HHHhIHHHP-M$@$@$@G4$@$@$@$P( P΋&   #Pg|g^??۶mPo%KqHHHH u$L۷=f̘O?#F`ʕڵ+6mdݻ:u‚ 0ydm;HHHH@BO?dݻÒظq#>; 7܀)SӦMC 0h 3.]-    H^i 7TZV-x<~M\N̞=ݰa7o8N}hذa`#Sc%)J:]*VdD5g'Q"@31b% HŜk=nM7.W*j9jePHPAieBaϏ~PL?s.D@wڕ̇BrŖ]˷SA˗/O&,:+Q}_fW24:(?Y>̺3TR.HHHHR@ Pu>RazvZ{~^9szIC1s9C=%   wڳgOhOF[ѭ[7t x㍦͚5CRgm݆vSN \HHHHR%R*΍ӠUsr*zǚ9~W84[jV|uDt9X$f/п+BEn߾zGycǎ;`PBؖsVra͛*\/T9#Bm6    "C)Ċ]%    8@d$@$@$@$@k āh     PFΊ5IHHH@4 @(@#gŚ$@$@$@$@q @lHHHH rbM    8D6A$@$@$@$9 Y& @P"    hXHHHH (@M DN4rVI$@$@$@$q&HHHH"'@9+$    8@d$@$@$@$@k āh     PFΊ5IHHH@4 @(@#gŚ$@$@$@$@q @lHHHH rbM    8D6A$@$@$@$9 Y& @P"    hXHHHH (@M DN4rVI$@$@$@$q&HHHH"'@9+$    8@d$@$@$@$@k āh     PFΊ5IHHH@4 @(@#gŚ$@$@$@$@q @lHHHH rbM    8HCIG~/^^7Ly<C_Y\%Kmr@"E bŊaiiGsc~RTdfBWhQ賅3D&F,+a\r+t޽>8}YRiE"CСC݄Oygɸod| ؋+@J?LɷH&Y>% t<}b0sVdY P\|dNC%꽢 p @ P)$   ȎhvtHHHH (@㎔ dG4;:G$@$@$@$wqGIHHH#P`0ewG$@$@HPH}6.HnO$kFHHH $AEQϡ9&{7jTgqNGCwO#  D`~H<$N뼆JǡT,$PP! H!*>GD3 $LMC@+hA  #,>{ T)=EhH:ܘ(@S$@$@I ^EKhA  't/"%ׂBI^ @A|EkA @Z"HH B|Gk`T? Цu\P˲mgYH("ii8xI >W\4 @B|:: AσUVNDhph$nsR%_MgZ[ns;ck.+%ٞu֡qƘ?wju:/d=dwA`{0qx?(RdIQ~@tYJ(r!ϱT`_lYϾ;~F#>nC ͤV{yA>>9 _Z5ו*˗ =`Gy$|>v9ϖ+ *m&h ɓ'bq %pԑhzXv-jhi`$ș@SsfoW,+`;(P|컡}\!d&xsG2(D}۲W9Btż\}EcU> h D)>M:+_GU4:y,=Py|(f! N4P eyD7CǼB|S?tj[:Ba%0'T3&>-D n"#@|${_|yn :t'7n~e>y̛c^矝a]~#?cM['+W}gx9Uv}г|z?YHH Ȝ7{Z\ykض6O7ޜNN;vic+7%Ҿ|f9hnhX@3M.mX5s=?6E4VsuB-*sBKSmIFNHIvC;oT(\s%pb)Es]8ZegE5\]*O)Ӳʇ$@@ z|%WVvpmU"n@w 񺈎c%H4 DOw~TZB'Q#cefިƳ<(B^; s?TBpuqo΁pNFO;Y Q鸣ޮfcⷭ5-p W`);vcO/W|#,o W$C?teϞpOmz9޽zOEsc[sģ3z}e m؈U?]b~Ihm;ru/vW= cK裏;Mѣ{f`d@"4vIylg׮}8ahhFMਣ*Hr; @^A|<0잽\w-~P뜳y U#z+3 H_۶7cHL[HZ::?:}&5idh]TzC7sm _]+ގ64ykL{**4 /Ǎ_GGKi+R$ 7?֯NhQG. 2lL+ѓP2WѺlc{8ZNq& =tV/t쇆@~cJ{T:u}D(sd C4'YkT?Ο$0g}*{JrYTLG/ ţ߅~tŜ/1m.URbL- ~7CuGS!}~2|4e G}G FeXͥfS뫚@úEvԈx;Λ\ 0Vڒ%K`ʄ9kվDdִcni4.]ݕlʥoa]wt0?lEǩu͊w{ }޼NL<OoV֍pkv.^wROwL|_OY(9&B&Gn=S&3!< _Ël7&:׶=.2G]6HحZ~iаapGMl]]| l]bekZ^7I:ԻJɰZ>RKHt&ԮU5SN0[6 brPe8Z {__leYXշFp}tUgDԖ)S_UNu<06(CZ!ZgP}4E+Cjה%Rvc^;nuIpRږU괆 ^۵4uT sw'S%+CS]yjkVH oI|jts{O};]օ΢Od>'tx &,SRr2M}K.HK)``,U#u{X UةU1UBآgGu5[|]߱c<(Q_哏ǠO|p;v2yֵ_ڻMQǖ(}B1:ZyݢSOt12TO}\{Y3r:j=\meʤ{,6IB 3s,Iahټ΋/3~,լF',4t\H"It3+:q؈tɕ6[bѝV$SkY-X?;dv yrK裳撵2+ux:(S-5 miu}yuBm-XDiZ :U N:UNp9uW-Czee?⢪%5[W++ @. z ?+[oʕ˰=p_~I|N~pKHѯn5m 9amsX'{YK֙UM!NInqd$ľv%Cٲŭ"4,=Oٮmszg V| ] 'q^Wt!/o?go)Y-u+8cc<QO|/ UUkOy/27.7PV!\Hxk4VPGqKXoH{DaˠORK:]-]&V<,w:=ቧݹckqbxx/7фPGN+tʐkxc=,h-FqݝsVH 6 ASaNMi/X;ɯªPO.8KEhlGş%2,֭[vc%.LOERӧ7F=j5TѦaX몵R m3׍t}˖?L,KߙSѐQj MKKisTu>Zd-jM-W.|hˮZ"W+9c7gUj WMyv8ФIhKݒb$5@%}X|#}݁po sŧ{m|64-I@sF|jyJz/S'1Iv!9v) dc.F #<҄!ܱ#1`d.s qtJŠOEb'STԺ*ނŧn+[ħ(RN|~4G#> VXH!OS{dɏkO;7i ?J3l߬BWKeH|7wTh ͉5 м&IHR@>pЌS縗ׄpҺVӁd!pP# @< @HF9uԈOɠgzɞ4ԈO_qfpVvw} ;hN|0O+ƔL_yK@b )b$P|* +`-*>}4$Vr8̃ B6WSy7yoѼiӓY }w>#!SYe#"-`s ,qbtlĭk@J ٲǔk pQN)wa Zҵ^zg$jX|fF|z,kLTyr #Bx )B3zH]%СCG |X3Et+6T+48_i'UVe.#eS$RH|Gv }8+}`M y `u K9+*bTK辛WI W4WbP-=cƍK3c^bH~ƭc14Ʀl2QT)TRKη0hVn8&>C 2O͆Yp~{OWepޟ M 9]tD|rJPzw-(-YQ٢N''pE,ZE7Ml{*ʏŶm]سFШpr"@GCvh߾=uVZ9n?/Btv7jչÇ7G$@$@1P|jNu*<.oҾɻ4'@ϣþa9?5XEPK`$P "4ā@Uo͛7VZH\zUpeܸqY&5jd_йsbƌOXHHH jOGwzuwUTxW/w 8} RKG}Di|1]# B9'44 n@[@O%8͟p)dLطn:Ƃ?_Ƅ Pb@>}`bj- KBX =>=I *$W7>a7AJ7D'u֙!2_aP@ I {=ÆT ή]p^k3*e +2Tg]T +B 23gҌKIXOL4BM۷/c2؇>\*!VgԽ{w K-:Dt[t~:&iQ " yC[A}Dn2g0#ϫ-Cd.А] 4ϱ'R1qgmL?XD|Z~檷w0xzʕ-q55ϺΛtޘnHXoJ^HzC5f\uiA4 iy3ϼ"PߏϿ_P^uk]5FN(_U Dqs,4>DU4CZ?+ɯPߞa׫'tk>\veYgz}q@YK**Tܥ*,XT| fI'?jDD-FF-u/J <Du .W|蔯1x" E;~K$]z'mS ?|{s@KAƛ]O䚡@l#W5j}?=_4=|\r%n @Z od['NM[":]̃#!}uVJkK |~GH;9b\9{ꅷz 7x#ƎҳgO3S7lj)ƵtO*Ν;/:u@XHHH NX,EEǟȜ3&T|Z=z|<2{M!#Έ3Q|9\jB#%\̩S`r2jc=g$ǥj.H-:J82-C0|FZnr1tɉmq>#TOp'>a{|֕yYS`x^lWO֬:+n;xؼ:v-[W^ L^7x)r3|/'[.X@] چ~QE">HH;{a F]{A&G+]ii~}E]0xCsCȜhǎn+]'ͼDKhf"\ω@BhN~   8,^'Þ&e{ O>3 ?U?f,Bmnп[n 9s 9ӦA&`k쯃"4{>ܛhF\# (bkS};ZKͩPD($@$@@@p|sBW=r nsa}4uVJVdd$r4fɓaJaw|w`B@.1BB]P~^< NF&E%B]ZZ>]Xݞ|ԇ󵸖KP'o_u9/_ }nI@]t޽'wYp8>b @4B$@$r%B ?LRtŧr=i ?aZ d/\_1#JZLOr ŧ:ub `)Z^Ɂ^4gI&̂3SE l9_EhΌ C py$@$@Uczq8_/[i _r}__UF `O ejmwj*U"'Eh$ v Ђ}yu$@$@1Y֮Ovw$o <ÆDßz?Z%lD9\/[yh/BuMaH{F)Y`W^ @. *BC?dx^Esx$5JR*34cWbԿ'q*(@ ]5 ą@D5m K˭{M{ǥyۈ{/> O;&PD%&˄RBAPf^$ @!B5ka_tsƌ|VKyg:2eb^܎ӌM97r$С?egÇu>Tp5+tW+(BC3*h[)@  ĝ@nEup.搷ʖյ쉓aIKǽ6<{8Tןɾ#Vf{x"ݢ7n՗.j5?ޟk>\m#B? p v Ђu?y5$@$@yD 7"x&kpg3X ySש|t=cws:۷~||T-KfMyӱ@Mq{.󐻊խ[i=uAv"4;:kh  <$$mgxάaU? I_ :dLvְ|:Oٰ;*pP»i< 1![RjԀ>-IPJ:9I  @< "cO4i)"(*B^=$.,OÒZϖRX24oUzf^ş9{*V4Y~oxDƣI7r|f>g@☴ p= 7' H<#B&aLp6oz{Ə Omjt>p"Ln )]̜T{OJ-VaU;Jj#m^ OAbw  hJ@1)'T)4%o;M$@$\Kh"Y(Y֕2\ ˕3)Ȟ^:ѮxL&u|N: ޅ™t9<[fm?~ǎ~#)&S:. |ٕV>*2Ehh.a+hA  |!j)"[,wǶavӒ.mj<}.3Cή]zXPYEǾg˖z4 jz|^}?G|x b߹35~hN] ԹW) @UZ GwDp'^ ˮLx&jd4?ɧ~nL| H&Hh(OOHzPqTrQQFI&M~T-={WIt> Լo5 @UzF? O[$?}hg~xW/UT|Z΅.wþ8ە<q4L#>j_:pEєÆX)U Z&0>d_j%/^Э_fw> Իg1 @EjjNO;7i ?v3XG*˽r(r^Jρ$Vi%Luкj);Ր*z2P$52vT}N͉PM{Ş $9XDh%9X>U|JP7&XMƯ`N{ 碨G{q/sUk']/s29H~ U|vəA6(] ͖h q4Ѯ> @Z>};sBcajXTt$*"Ue;?uc1O٢Em "4j;ꨣm6ԉ,@IvH8@" Q9 X*/+9w-+9x$X"uq]7O.㹰ήrԇQm,w\uE}#Iwjz  dͷ{A1C4 ^ᕿdj+$zԿU<ϠmY3//}ܾ}{pB|LIh;v$Eb~ Sh IHH 7rc LR|گM7$9o,sЃ~9u,{q'X:js*I)}k$5:U3$i жm9Bv1_TuT]w0k9Uς$e6P̭bGIHR@nD%Ge|om<<O'Qy]8xW-wcΛYدjħxx^zzT40t)Чuk{-^%@˖D׳V$@" ((r#B=0nM3h <_x N0Hr\fV@9?5Ӯ-utOx~F?\T:<#>gOsɽaH&VKl:$L:3T Z Pq*AD&y)@ްg$@$@@nD T!1%7}&ǥ\ dޞwxY#4At]-: ᖍ}1ju% P&aHH \P{i,*>4軺iobXoO)oHf\Q˲[2|.Qナ=tZ|j]~zK~@{K1f(8@Kh2ɷB|=" (r#Bu]&iq&M[jɌd-).xn+VI:t؜cY4EIPM껪-Gԓ5l<Rwŧ [K^1rK**B5Pg,[(@N$@$@@@>隝a5i f xg0" )s?e-SCtM۷o#tX[ѳC#vÉO|jл{eV 'N(i1CcILZapBSϭb+cdgE}4ePENmb2QP5(BóI=p  BG 7"临HLPIٕhħێUZ;5^yɻY.m&s4I$Co!K(BCbIIq   H Vj .{DUv; XJx'qh,3D3!7pƎ3'p9MyQb0w-5;/TZ~_I"Al;dEh|4y>  A 7"4DsM92osٲe3MnonVvS^-*<5SӦ~'N@$nS&li2'RX ?2ICB+dΖO R|(2I\L<1K?{.\Hƫg4 ILOO |C6VԺW_E5":}IѩR򏏀%Y<ύ97g6ޮ-I+ֵ|oI(ScS _q*CW!(Lϐ:#’&kcRbǮ]OWT"y/ 7F»BK+D 8C%QTHs,-[X $,=(PXEhNSOx:*<ŋQ~}5 zkz,/xuP {J @"-*>tvW ]XJϓ!j N9+ZEa++V&K9A&weIS\.M. L G;CEh$S֬YL[+k\uUk6^PsjgH~rcSoo#I[3mg{ۛ9o0]5-<8X@GZ"B-"T$ss@#} $@n愮[X4Qp[Jn{p7?zijœ9s$fit ?SDWlSNF5YoU<7DşDnp%? g$V>f!ZI5}$b4y  @"t&z[ăҥKQjU9SN쏠Zjx'3XU|Θ)eAȢU+`P@3DN< D Vڶm 5uX]=O>d͵ߘC=M.,Ms`_݆\Cj :k19/,HQv@IDAT>TP% B7oaP`h@e$@$@$OP$ɧ~zwꫯG}>o&֯_1cƘC/_5wGn=t MIjTg$wohB9YD~<:4RI-Ob [ǤRashXŧrqF*1l%) +7dۨI&&&υ Gy%d"g .|ID#} ==:[|~ R [ƛanZfRUۭ_ŧ6# M?o ͩaМ~?h  H(šd8;2D;T1^Ծ}{dʕ<餓Oݠ."Cj-87 4~AṙwS$1En 7pe Nw0mڔ-%~h  H8q%z"T炎=Z2DCtX(CDN|H#FrJMɅ["l vNuwrqB:/ЌtbLm}}K. 4i] ЈQE]fB   T# {v6osshOaħ:[x)ܹ:/][5+Eh$`I8r}|i@Ӎ%+@5cYc("fo2?.|۶mŒƃ()d@NQ /8g"cWŎRՔbzb_ǟ0"k'x"j#&L@Nt1"i*VsX -W&,tz^|. J_|iŤCQɓ!HSH}@NNj&"k@Pt*wWWtH,p|YBʭK&B aO ;HHHR UǤ&D<'T/.ƅ޽{QJh ڎTORCj m9%sdS Мq? XE^?2arƍ7"pL5ks=gFyGcոꪫ/Us|PO:!#Dw̳  G,Epo\%u5;zI2^ -*>uџ"4V(@$@$@$:%B5 @)eر=ֈ'N4ﯻ8˿uхdi2W<OuꈶW͔$ժ PtOAJRPFƉHHH % Cjxs<5|@wJ# a4stκАGZK™+H)޷r,t~C*< xt`E%6ŝ$@$@$@H ylb.GܵdUC3iy-*>?suTX$.h&5m {p,UiƒXʖM&.h?ѱT6n gqC;gg<}u͈LJEhV8!PM$@$@$PD+Bk$"5j0|I4*>z|ns ߏ|) }ݕٳWȼS_]O?ej:!sFu^_q$䪫_z)kYB @#-A2.]j$kQ%Kay Bn6h+NF֒g^H|1LH][ҐN |Vppv5vOCUow^zE/X׭ PI(B8`ĺTY1gV&Lřna*ά\3+TY̺7@n9Vovԍ'Aݯ*HRŧի?7 nb ٤C+Ud#v^pU* FFN;:ĮzD֕tU[@5)Թat.ղ9,TnT EΓ XB_yG2axy癘}]`Z3׬Y#3ħVn߾=t_O۶m~Qy%QjIU j,E_:pv ])E->*>TY^-%Ru-a6i7QWY2|& \%  @ 'ڷo_C&T޾mO]9r [˸9ϔ(:ǍٳpBcQuEl I l!}+ڲwBGpIiȴVt߬s?s|7`IV6xA7 Rى6mژv &!yIaf}Ltwׯǀ M}=M"%tȐ!?f]~F[1{xW.ϝd1U {?vh4Q R47%qR|yS%ػ=U$ ٤Yf5V{7<8f(,8~Re+$Ĩ᚞}  `yW.{=y$@$@$@A\?w|PՐu5VVrE U+L[n%Eۺ9 k|)~ep@і=nݲo3{>{)@ipHH 9܈P͆;u^Efp :wGo g1Nu:[(>â #CrcHHHpEh(Ǥ.[_{54mUe]UV0LsBΝ+>;/~{EKh? G8a_+r)&/4!LH93ʱ3!eELHY0RV&ra&Lt 3!ek&-ޒSƤG3f̐4L:/JBu fKK&3~Tɖ и  ZBjh &@c:2]pa8:S$Bİuۡm G43`U? [ f3q_/$*PtHHR@"TkO7gv:߹sbO>]l9~hx$GѢ~Az҉snc yFa@Y`5:߈RKrGR(>#hx6C$@$@$ bÓPJXG_HvgUJćfhB2x[by}F^vV&Ҽյ3F8d V\.>#l3BPQT Q+7"׹․Oj7&#Ű:Kjx- Wĕ)@#FŊ$@$@$@r#B5uwop&MLE[jx={G$M+ab{8ecC6VRpvψ0T)as@IPX [reTZ5dg7m$$UQO?t~|fbrzvXHHH+B<$IW<6CyԵWդ14P9FJ4SOZiI=:?"Xt~?Sro2Q|y/b ]bʕ+ѹsg[;W^yٯu-[f핹 :u‚ 0ydFnC47 DM U`T,wфTNg˖|u)<0<0%" 8PJ,}tc82ğ@?#8 \tEFh¤Պ;FСCQvmoݺuCV$9d'*ׯqI'mM 65ҥKѰa B$@$@$?\%T{ku <;]wWx? @x?f.ѹxP:>W%p|jXEmg}i(>>}:&Nn;t`hճؼy%ŔE~"BL@_ahܸ57g\ݪS t߾}siQ318g_UgpTptY|B-\[]k쯖|qoל}GD7_4$LwVm#6 _8( ?7}[.t_~13sSS>;v|yq*@%Y+ /7zh̘1 ׭[5k4BTiYt>/X ?#tQD ca{(SL벊QעǯZ*xw/k'LIsYH "a$b5`d%Ty:#=`lviP{?Έa@ t^J&=_Xw}g4ݻ4j=Ȃgi I7FJDQbv%b6׹z**W^z߿?zaÆepz% .j,^x&suާKN܆`'#ڲeKfLP!ZUTP<˖{AT (#W>2& 3#}З;QY׮LTh%9;_]HKDTz|X5?HHS]Df}g)|4b2`g@'E=GjFZ4᜚U|+V|KY9 HT/nTT hʔ)f 7xW^y%֬Y뮻ܬG}4p.FԢJWLP::TVEǸEO}0*\/ydΜ9sZd 9GB3 $-1)ZxK,ys}I*(`]r1,QidT z|<Mɹ LS:]P믿6$ix" WN3ly^TP<8PgϞxǍ|۶mq뭷k2d׬Y3|gJ)GqHHH "4ZK%;E~HP8_e.ka,º-ǭݫd[1o8a!%}2ϱ=H5L~WPFIp\fN^޿6Òiy٤ImpzW|8:@5\ߗę,\x>\lI|j[j %>uΟ/q   "ZB7WY,Xmr3SsS|mB{R >PK,0|;ê]P dIHH ,B;YȬ);e<9.QJpe HHHU*7`5:1t" E|8 ' xP6dIieE-|Ioyb  (bDа*Ȝ$g(*ɱ.q   (\uPqLOr g(*ɳ J)DSb!$& $! F*>}Fa 2 Tk3 @=p蜳 sI^JHHH *B]Oԫ P;#  # |ͦM^ @"Lͷhj7HH h<.^< HNx#@z=&  BI`S+w).MǮ @"P(|U)T\P/s@ u @Mn @A%@ZP,HHHhvHHH * Ђzgy]$@$@$@$(@ư[$@$@$@$PP P;"   $%@7"   JY^ $) $1 THHHH I P&aHHHH-w6uA{ｨ^:TMbÆ l F$8hԨ{'Ey(MP$? hH" "B HQ)RDz|f-w;{zgf;gcΝ;g^f zh޼y]4/ H@BP hTٳ}vO{ մ$  H@[@%a%| Ο?Bׯߊ \,̛7/sl>gQʽ7SDt].X$&M&(Qi&x,(\E u#F$  (WC5kěoՇѧ/(RMM U$  H@0"иqcSzw )x* H@PLX_`p`|eXYekX$ ,47;^|'^Ə~%p\ 0*ܽ"۞0z4ysdho H@TCsQ`wMGD)3e# H@@R 4s1||U9 |0apK9|nh6znFہ}<ȶi0y3w7SXΛԱcv%'к}Ώ<%  H@$%J t1[VHdS$KŋF4 aZԮ {/p}-`:QQ#lY;\kL2?z;w={ŒWo5e-Z\w|<}0 8m+b@yMMWm:+׾:С|e;]_1a*V222iճ=FJE#xv #V p^pLMx%^.= @8{1X"?n@!ÇL`P9_G7݈OXi @Y3u. ]ڇfv#*<rӳaZ5``N{/ہJeN w\ŋ+zȾ́3 }&XGj9Q:oJ@as,YKzƿ}Y[쟙W&b%2eGz9qH%m["Lp:J,ʗ~ڞ] Zf;ܰf!{y&)SN]k2:֭{Okk԰v]Z[^%  H@$gT,&Eg`y/df%k a`7h̷{{?*trq-86N.O bYtt~c:y^=uJu3w@.vzW]lW H@ 4]V-ϰaRRÜ?. r> 28A쥗>;UܥNjg5u, H@@nPߝ\~n/hw45/Z+q/=x G7G$  H a,9$  H@I&${CsƎ8 t̜7h*y=3{otrЙ<lY ǤgrOs3/^ \y%C5q|3 J$  PHEb"N[19v:k3-Y/<=߻v}&{-o67lW7i]],E2.4 XXޟNbu+ڷ5jaW H@@ |qE`4#^L燁ݠA@6eإN.SO;Knd uNOJ:y^=W/::>n;K;euЫ$  H@THE.Pg0o))K>ϷKFyB,ܷdq8K/ |ɺFjU;6b~'=8Т'@>ok8Ϡ̟U:g * H@J@=4 ֬ 3yϞΝ!cwNwhשd]O'3zx;[wXَ: 4YߓiQ٪7)Lh5^vu\g |$  H@pPn5!0(hߟCC1&l4uT20dc M(%%K-Y5hx?pY3\Xڶ-0f=y_K@$ȓaw6yvhæIvxh4̙Sڌ/^Ķmw5aä|tJU۬\9|dS̟ظ*P1=b?-iהR%K)^>k8[7m %7x~%y GČpqtJ@qӽHASQ~Ϟ=(e*`IGi$q<;qH/K.z45Z!$p%~v1X ts|򀬇!u=$  H#G MH@$  C@h4}9KbbL?E'Y'O?_Z: KLPIh:] \LS?N|`]~9yxh_C<]ǒ@4Q(R_yLc OE3@v @zW_G$ ?@k_r%0n\Eah}%~gzÒPiPpPő a4p㍑壽% 'J霝PGB@( @CQ6a Vٻ |0ap0#3ggVky=3{oewr<Ljo&Ӵ0#> g;ұcv%ukyؽ;ОZ&'tNA#W H ; i}zM(f1[^(Ш]C{<{^}{xo^ߨQz<}r8|`Sv734bʠ;u׽:v@$9 >kVHU&nh]T̐S{Jlf`ڸ]˗cw\v0`е},U<.qB#G&V.czYD-ÇjՀ:u}.@8Wd/sOs3,^ \y%C55o̘af(o% $@$sNި!VxuUp:zK8nMYT6Ӓ%@Ok?iA]˖7l6ի˛4.ONb\N] ,\hS'1ܺx}oupv)m=z[^I(ӹn^% @zHEb"P F32e|0t~ ,hoS]R=u6N.O bPjtT)oi_z~خStXV)*`^g J q|:W'ѫ$ԑEUn3l%%<9B 28A쥗>dOq#PJ1qhO75gs\׌Th5r׫r@8YFhO~wƴ|k4k T4#P h0H\g͚d;!CѮSɺNbg,dkw@_˓u<h: lq_ME'-gͲ(YE s>xc-XBʹΚ?>76¡{E֫$ԏE3Hi)}QСgˆHSA%C6PɍXZ~}睵Y_˓Nl _]9p݊#/eNZ>ՁvL͚’Pv5f=y_K 7 |T|R {cL^嫘|R(TAdJ B3hV).'äd4رcG.^&Ǐ1uի0gNi3"Px۶֘ )Q"S 'KTYorݒ]N16b@iĈs[9^SRjJ,"xboe)l*B4ߴb9Nɷc hIlߝ< \w#Z512s潞6)T+ᶎ/a菘.N(n)h<_W9ASbܫ?W H qcǎ3<+qo3ierJۤM3_꫱yf F9u Ka3eidp(M',[6m|: ?! D|:4d$n 5/M)'ߴRͯGlg-klѬMJ@,`iРXV,YǶnf":C\~~bz>e:h _<|[0c-(i|e?{.G%yˬEkQ)Ԩa$3Djx5M{Mу)&S}_\GHzNg6AGX S'ѡSV[֮6}P"SF,獨ܦUvQh+d{E&(McK1vލf FaW]0q;ݳ(KP7iz 7Pх4 EúLgŊXbO2&yΖPeSpoQώoC~1?$@9g 0zY}w'f\ձ(Uvoٌ;vE#zvokko43p?>UGz$LBd$jK2()RQ76m3z9T΅#SN=)+B;%q:l\1j7O$I܎#K} (+24I7D96e께jRɳcPu~!iqW nU(],g xh "^};zX >c|2>t=])s@yʎOhA#?TXY9@NjkO>$}Q3 zv:RZ,4שSdz='bف߁.:Yk<b'E?^N)?Ѩi˯J5/E mİ~;k~j3x=x81Yxb^\s >C |Os^Nrz&i>ɴRƂWYFM9ܱs|:G^ɇ`[T]ˆQZ guT^# >5|ַAcg5%ǂ$$%Q|fe H@+iI7Fmwߗ}teHMMMV]$ D#dO>v߻}+zz_^y!jigNDI@F .u@sD$  $@4Or1csv{J~v!6#!S@ (MVW& $@OqWF6|woos$)DOJ >_]$_k|E%~ > J@P U) H F<ɃmlUS^e.Po.BHHO*3.1UH*Ivb$ d$\g:?kESJumOGJgEW@ՕI@I"NsFT+ϕkѰ-`K@N >-$*MWW' $@8/]!HIDAT/74yl*|36}*6]ϧ!mOޚhl 9~H]% \.n9hݩ'rߕ͛n~=?tyj4JW*;#9M >s*$z￮^ȥ__BbAϒ%Nu+Uv|l%NV}ﾘ?{[X2Kok5 x8J>&@&@4+ Hb 8u> rse;z>]3O)3ѡStJUO=n]VqJT#6$ dP D.|R3?o(P0oM *~ZVXqgBg8ZV&FHtN@" >y 4_(ZYgd diea) LK@AJ H@Fa+}>u4ݻ0sҋhݹYد >&@6 @j H@f{^L mێ1|MBV26P6$-Xf%  J 'ϧ~k#l>3#=sO^g]I@%!1i# H@ D|:Gn|SknW}*TᬊʫϨ0* H ! i H@d|߹zc۷zsc gp$G*%  |2>h>V:|םYY%xC]'+N惼Z% BM)I@!,wk(YZ[~\nM'JW7-~WʦDނ g6* GKJ@#hI* H@>t֤ݐ/- 5}^W&I@h"[:W H !B >y!Uj](=OW}OsìOa1jc H &ӕr@ea\K~vo|ͨ$ P`oNWȝ57&̅ٞྜྷ۱ụv=i3[>m  $!%K.@%ߣahԺQAbiR.~e!vb*И*s H ʖ-'/=kJ8t{璟ЪC$ı#ݢ>9V~pp* WLK@POmKHzZjeb_ᮿŨYvZ݊%sgWIgD|Y8 @j Rk* |#z~9` >sL% 8 (#% j78rb`i9+i >h$7C" $7i )ZZ2(i H (-CHJPЫo7@_g鴣$p^$xVHcԹtcHF'O FgϞŹsv~ v57o^Q4r)$韝Ն>/_>[[On8xҋ64_ Ϗ3g\#CYOν'yLJVt=b\D.,Itǎ+VÇqhg7c}GQ\9ݻ7nѾXWH \{_(Mȑ#H/+/^bgϞPwIJ*ĵzeʔ <.mҥKG4Z! H =利|m$ P8THHPIr2$ @SK@G 'Aϋ^@FT9J@I TgHHH9O$ pп=?jQt1}waq1ߔh힔o.JPǡ H@p'>%_.:u5NsۡӃԠ >@VJ@GhѢX4~1}2miՎJH@H`M7O. $?O@iٲeVi$ DPYH:v?G`JE@h H ԩ:lѣGQB>$ _$pz1R /*I@HN:$ c3fk,Y˗s=+M'/ H ZgѼ$ $Mfvrĉ``$ H Tl郞GHx4)SFg¿ HM@K@$  D@hLX$  H@P7-$  H@И*S H@$ 7n2Z. H@$1aU$  H@n @d\$  H & @cªL%  H@h$  H@@LƄUJ@$  (ur H@$ ( 2$  H@pP&$  H@1PVe* H@$&MF%  H@b"4&T$  HM@K@$  D@hLX$  H@P7-$  H@И*S H@$ 7n2Z. H@$1aU$  H@n @d\$  H & @cªL%  H@h$  H@@LƄUJ@$  (ur H@$ ( 2$  H@pP&$  H@1[w^̙3k׮ z!\?w\p{t),Z_~%Μ9J$  H@ $tҥ ֭[~a^xͳgb֭hРu *H"ضmj֬9ƍmcFᣏ>oذrg[[z56mYf۷Ϛϗ/.2ϺxL@8TB|d}?~ɓǻ"ŧx& ~]&ϟ_s\ߏWx8zݻwhѢ~`J(;v;x➀rΝ༓8͠7sY…b 15G_@&ϳ xʔ)є%PP!IнE&YM`WDy)VK1@ܹs~R"6 $s2>|h++WG*Npv7`*yѤt8p;߻zQ/=N+V ǎS [n~PG+/.J*ec[yo `+v'JʕΉAYm*Ud͗-[*1uVr]ժUY|~,Qg#́v<ێ/2W̼Otxmx^zpLO,/6>YN\+7s/M9ũJFH<6 sX`3gb㣓'OI&Xr%~4d̙ꫭm:|v잉]15lZ_$  H@%PrKƆ QիF+ݻwGnݬǔիWGZjeʖܿ]v~G=iB$  H 1űqP(YdPzkɜ9b ͮX|Ŋ:}X2YB}˪&,W}G]:Bk67zX"(^b]aVo۳gw'o`HV`,R\J@g|r;. X]I$  H b^4yt$  H@PmQ' H@$T@hP$  H@h*? H@$  @h$  H@@F[TI@$  PG+%  H@-4ڢO$  H Р/G}^4ڷoUbѹUܹsP$ςu$}{%ɟW+T ?WrKR[ $  H@HΘ^f֭QzC'@bJJTJ*ֽ7b  XJt h֬ʖ-ÄꀆL %  H@!PT$  H@! |6Tk׮?lZVt޽{tRԨQ_~y6GDp|̙3Ppa4hyV=z+WM6Lr:u ~7imtetl(^W {-[y)S[l=빬vڞyM$|whѢ녹}vdwf = /`ժU_~_|ժU˲v2dr-Oѹsg,hA sNO>m}+k.,Yچ_z>H'ObРA`qn>;Bb"epP iӦ gcZf?,[0Y#M6[F< W6nܸɓ'{ <8c̙oxi"9 Osqݻwꫯ<3:uz^C<;h"aBW|/pO?gQv2<ϼ&Sয়~ʸ{3yҷo߀#'ZPu@]7ZHV8%Vv,غuP)m۶eB .vd=z,fy2:u*,YB=J5aA>Wx?%'|3f%LkɥWi<"3Ǟ={;Xm\|9p;wK>;½܎r.b;v@%;½ׂ'uj䢕/_>YM6ɜܶ˼1B eB .vW c'kfbߎ; PY <+>5ab `Z /bP>gZfU݃XK X}56lh]ϋ &XYU6Zly\J W6olC?32?es+6f 7p`k#x]2-Э[7=Vuښnݻ7g=adRJ>`e1d+>b # }O8a'xzܚ|Z}EZ¢EL0QfM ^a]>vեK~曭Ks)e+zȑ#qWXk¥^?OjA2-L +nX ltq89u68/XjNKXOJ%~~ MѸ|t^q>rg\Q@ώHpu+%  H@"PЈ$  H@@ @$  H@ (O;K@$  +4\1m/ H@$Ј$  H@@ @$  H@ (O;K@$  +4\1m/ H wF;w'/=z)I@H&nZ$ (_< *xǾ}:+S$L )M]$'ODƍѤIk-[Xcϟ?K'/ H "$pVXk* ]|9~_]ijѡ%  F@c\%  H ==,sg#$Sl4t? % V46nI6"dΘ83OEP|1Ŀ (>/ % (>P苦;3ie|{g蹪X-2s=+WQ+]L6O w[C{_F qb Uvz?Zb1@/zcs>~if,ӈUSjF 1_Mjbuݠpamhmçϙ>a\+5%QKFkm}ۖ?ޚD\!~6,-7SثŜvķ5Z;[rmS5{yDyH}r9|-ăFAJjI.[/]mK 7KRDrYQO-Q||6 (0 MXd(@h2_f<:”_δ*d>e\c?~,7?& ك^2Iq2"y@g|U\ @IDATx|Tߐ^HH." _^w׫F  (Hg,ɶ$dw3ž=3gwޙrh    '<< HHHHhHHHH(@y + z͓ P    W1z:8?//sRR<&˗/zLUVc=fv}ҲeI}ڵC>l>|xPeÆ ҹsg}zj0aIsM7I.]|n$9*_|quٽ{4mڴ7oVZE̓HH" p '`SM4qV﨣2N9@6f͚ɒ%R4s瞫q>:M^zkW_}Y۷{LS*hc:Bm#66Y$mlRXXh}Tߴi ^YY,X@ w.R^^.]vu[2:ԍ_~yyyk.S-ZʳrJ9C9İpH4>^In:t;UϸSlܸѰԩ80 n*ȷ]v.5sNIOO7HV[~ITT3k{qMq{1I׉*̬I$@$@$B V|=VSϵ lz@ݻ?Tkܸi~SkC3?~ݻC|]7ng^Hƨ/ß*;8wqthׅ :Ԓ܇r֜N9'.s-iAD8ǭeѣE5]g,2j vs    "FBxWڍ<>phWI~}>̡滫kYC+`P %|\&%@am]bLj32:%:E+}ĉH)=UAԅsu:$ֹ-7BDzB#h7XAHMP a;uTgZqovC#Fp?;en~'/XxⓁHHH p M܃ $W%-Z*͟i~9g6>*D7B'*iFŨ۠LH jRF<~7O}O+~>$|$u̝;WR*{`38j:vXfĮN:ə YAŮԔSr&5J_>_om9}tg2x WoM}ԨQfj.h"' yM>7|$@$@$@5#V ͔V|M}@UT9 ഖ)En~T wugY/7ogym- (hB e&=ccCu`DseKESpe+ݲ"nҤI.m9m@4e*7 rǡpg֪7 g/V,崀HHM+!a2t@TEh,*D*TsX|kzL_Unf=wK_[F-F*`Y@1!?[`GoL*D>/NDV9-[f}5د*3"HXa0ۀeŒ̟9saTR7S:ݰ~gnQ6VR7Vup]jJ'7TW]֧|z22ܢu cȵk׺I3Ԧ0q DW?8hŶʄ {=j2EFXUW zdF0jdFVAc޼y+ wY{o{8#HH Ct7mX駟ٳg;a㭷2۰yjjMsϙW\)|[."ٳ3O?TNjcg}{xo‡~=$A!!>Ǜ}7b:--M;<믛Gq`q+ظa9z姟~2_4uQru8oʯ*#GW_}ekN~P>X>V('8gy嗍 xҶm[Sep̘֭1Cn*wyt݉c֬Y7<y7\o_lDB[3gq?4kW+= (ӕW^)7tE>'|d8ۧzk׮)cF;9yW cSNo± SrA$@aD رcCc͚5a&uV 7 ]vaÆifE̓>:K`ƒs1B /9ϙ-[`Eꫂs]8W! ~A '`įݎ=zdXt~gFZqxz& WZe3g4@9 =p9 0ƃbu`ܻw~]o߾N]vFz0_$o=⹥Wxꩧy jx䓛+T/cǎ1cȤIL|m pK<^62k/ c0N_e]fDXeeeI6mpGh"^ ?>bStc +z# ËD (9^3sҿ7 II0GeIkc\`87y[+[5\#-[<мc$@$ԺA#F8Іpt>LbhԨC}ܜuՇIwߙ}*n4;wv|G~jmr!>*>nx :T@ՂtXpq&UaU8.rbʤ: ǡ9 /]9U}*T 8rO.IC-З$[7oˊ'c~wzˍC_(aCC;u)8*j뚶Σ/mCжڻbټy/ q5uuqw8O  SaKa X }VUqFwXQ,+ FMÒ ?.X,@F^]7niӦI'T%tŠ`D]}X>E|6nX`~wVG5XR kJD~ A7I4XT|+>V1X'%3F+tJ2~ {+@۩yyyV]/TĸEhC+:ue׎p;0Bt[.Hu eE:}yWpWGX)^)Q?\WV X;&e \{Z~J=B>}(/ At'U0zqAx]Bx!DҸ|L-||T{tS[/V ,+Ob.B ]Bu5/\pp jUt^ \˄cqXw uG2ع3Xd'M\G@\?1Ppy i5~wݺ<珋ʃ$@$ MFL!BX.]E~yD<aX\"+tr-? B*(: W e=ʬ ]yJ&*K$ DaEDh[XzyLaN_~{X5 `ЁϫU`{keo%kY;[Y*#>mYYZ"}[8X_ K?Y紬>_%_w NXU)@pGH́j\Wwx0 LH>/X]kia/ /a<~G \!Rjb BWqu7H@[@_%X04t{K#.]j!` *]->$ă]všmdCd ]HB!`|t!#1"eyP.tA=&"m ؂e'8mی>z wFBny+D/D[[{ ݺrBK-΅6n,,Gf`CxA j(n 4b/j5 =-?wkSB`Z g -D<"{3^pV\8n1҈Z#ẘEvpu  k>wB v@qM:ڡ(3(b9# hPC>VCڅlӡ9tC"M_^L0CV3hA-}.@T+CG+2@ts uZ 4*D䧣>kt$3HKݢT8Bj*xvu[0Ǡ=0@L`(f00hAY_{`ݡBʡbޡBݡ؜W{6LT$+ wH܇+j}t*Bw+AmIn R1PsV $Z_=~t7, 0WAT<}C;! B9 җ9l*R=yuRg<6T|ANenu}>}]hg Toʊm`}ty7B)C{_[H@ ڥSV"O` %,!t{ꢄ57J}ʄzN,*`ee<wвu s5 /_Xj_ +B*]뢝`񅥭2?|Ϫakګ.#h/x k6p?yu^k?.y3HB@Ń ~a* w̓5n*]Wu@-S_u"<,Z1ZE;IƼwu uN9vm' vT @kuwIH D xdIIH 4DT|h e)L]J2 x'@ cHHHH@OTL% @C̚HHHH* ЪLHHHH P!\fM$@$@$@$P@O4sL<)͛\z֚Ν    k*@7c֞(&j&}H1 ֗Cb[X9i"S w]zLLniyXuͪs}W6 qVW8bvyVCDRMby;]K).=Ae„ f)MOK2Iݰ'V˱Sߞtkٵ+/Whk^4uo[;vd, 6b‹@P<~aꪫV;vua)>|%-lϞ=&h#<`=K ] &. ] ,vحjyf *Z/tҶm[Nyh/뮓/X?xoxC6Y"kFPgM-RӼ83%R©jZV3UvũjF5k/_|g {)SNtK.ޗEwnVV|C1rΝ.pggg:?.}\vɑ4 ovȰKusnnlSovj碢"˓Mm :*Z`Yn3FFeȸqd޼ynՇ(nvڙIvYu' D2:3f0-Zv2dvZ|z'ٴi#{ɍú @$seʕҹsg9S.s9G.\(^xO$@$@$@$fڸoH]]Qu6h^"(^1]|1(>X(>{[>ga ۚYVƂ"Y|V/ [$@$@$@$`7vkq֗HHH@I TT8-eɆ"@!L Jbcc]SnvV_xoiծ Ī3?@Xz`vh#7۫W~cbbt[1;u?: r ]Ua`k,̇E`bbZ]Frp,~ҿCfN|HHH PuD T_7E*堸tkaIL_IԿw#4 ",$@$@$ 7 hyR;()+NWM"oɏ}++6vHHlKԶMϊ%(J,)=E垢HHlEV1>/p˳}%a ؂-kw}s(Kx  dܺ[ٺ$ץEj'"  P%@-rc1S.*Gvq$@$@$` hfV 4OK(1ў| *ԡIHH 3 *$.q8~?`LF$@$@$PO(@ 4O<zNi jO,\C*$@$@$@ Ca iGw{,Z͠6ɽ$@$@$@ F5%a +ߑHHH PV{4h(IqapR$$@$@$@I>i\A!9>Cc_~?d69 @x̉Nz=Zx7)>Z2Kϝ$@$@$@ Ka 0䁳J$IMXi Ft:(WC\J$@$@uH#]Y@m \{\/$wowHVjbm$@$@$@uL3'K', $@$@$@A]N,% D  ЈiJVHHHƒãXJ1’2lFaV]X*}58OH$@$@!Pt̙rJƞ~+WuiӦ%غPKU" J i$w|}Tؐ#oݻw:eD5d;7p /;79W-Z(߽-M Pt͚5_ȋ/xtt5o]Wtbd~~e 2Lx{*))IベuHgIIIiĸ)*-BbcU&A`޵k$'' MAVdmN%%%g CvyVy}uG7|cF3ԢPƍ'< 2Yf͚ŋղeKwO -X8&<giIY󘂂S߆ q@ R\#Gmv >ym5 LvzѰd_ӳ|u> b"tƌ^{)>1ldٰaOiH? Ԅi}Mm$gIZ'${C$@$@5&P_Ə/>]vsw8I:M~~`_C\Sh&  #ݣ>:r.-- Ё\CgN]%v p#rCu[7lϗ׾])3fKAql&EFkm% 'srrLv p] i.x3z&$++6Ϫp"uZ]X? h4Y9c Ԛ{\c$@$@$@$@$o>%   2 ev$@$@$@$@ 2µr+sdŦ]RbEI;P~)l$@$@v#@ Z yr蝟ҍ;āe:qչF 8 P:Qpsnz;JujX$EFX !;ʟy#3ZIRl|P)ȊMR][Js03. c:#l;))pc'K6i2}vKgtUGxJ^Pa=lؽ]MY68.wT-CO<0ggLk!RZQ.˛'\%MrfB5!o_cjN`ΝҸqcy&at$.lIMMd?xwK>YϔرCӃfi(//Z3*fe@%''9!!g[FR$9###.%%%+>JvSR(=_VJ̽[ZwONʻ)ʜM+t=/xz鐖.**<ʲͳYyn K3OKMčyki"9u*ukS$#`H "eJqYGJu`Fʬ ˪OdhY.Y)S( 4 Іsr&)~ݢܾW@1ˇ[Oo6oIH sN!H|]EdM {f-u~1  к+Gc:>ZϏ<[X=f̝$P ՀŤuGO Yi*&=I8N&9ceO,WCu#eI8bNFP $@!OiREu4KKf(qvKΐ43|:‡R lE7@ss"zw-)?h9ITdcD Je|c=i$o> Je8ۥ6 fu8,ɉ&OBt_87]ue gۨcκM2ǻ݅%2v7ݲDIY^wwx,+4E/̖ol2)I1=7ꖞ_HHH#iTuLw]Ǿj'N^7|(twMCV l}yQ+ݲ?/euS*'BcY'_㖞_HHH#@'Ct<0g_|LujdAT;eb=c&mO Wo @Btzz:kvXYJU$_rXsEMw\-%[=.sz~   /(@#!7_o/*?9 %q{Je~j.O$@$@$Ph% ZRuQ qbl ia=u+++kӽeӸ-ڭ/ @wN. 9IG_9swӕ钖ѕRt9ͼ}פ& ߿幛$Q nE.x@:$@FAtF|*(R§/:H.ѭܱWz4fAqT\ֿpd_=cF=0]n{lt;h.-RDƎ;rܧ}ĺN-^4WdꅲdQ% r/H~[@IDAT=AH h}eI|׾|z+yNWe*>QOwqefrg2u~OCLVoc <0gLZ1M|'…ӞY뗙mG$(@C!tR5i ZS~^+)~ܶX>Ɣ{F\UxGQI<1=f @^_ߺ$iH |PX[>/mU$[wUtP M_YX7=eT>m<[J,^Vᐯ)+#٫u4U;tbaUI #!W]%w:.Z[E_}=E&/aW~~ZV:~ D.]j-`= Jr\" ؃hsdVR@ Y5M,JO$$@KmL(HmCX2>w}}*MZ6-,1zH#E54I}~!IFbt4B2' $пyGI:S M6$@?Jv{ ҸaޢX,ѻz.NQjZsc~LOuGw}$@6"'G^/^k]8k<#Hg~cgꔪ[VȶE`XiYo]uItϸ%D2tCb%5LPᙞ'vn*[_=Kqˌ_H"{ǧbkZ|tl%.yL2x 7H Tk"zL~zYlI%)~|սybP7oLktȔ}[Jr~QZs6 yM1@Zg$>o n+O毗fKdާ֣-8""6Ay]MD"p\D~Y/12E'8Miβ7o\|A)/߷63'!w|([:,#z%JE%Ê3!:?!ej)5vhv-wKXe   G瓽DyoFo߾f]{{l9b̒_bI^0Ժm{ _ɚ3vAmU}S3W7LO2vEIrmشKuМ1S=g S0#  g^+W wqx-壛F: $+o`:/f?dƝfNQ*UfrTg׫Mu-6D%#틤/}. ҉:z Uyymj5 >+|WZ%&LvU!W+*sӗM'se۞b|]en׾CJ9f](Y6C~f]5V ]Ҍrp,oIHHlA 4LOʽ[磢g10KKK4B2݂3ӶmￗÇK6m*'sa/ܰ*M$YK7T-L?P/3Wo$TTZ+eXצ~6O7VIxD\T5ucv!8Hf`vڵﳪI&~DՌ@@YyҫW/ỳ##F躇ŃW_7a/"ru_Rzc/#YCjp?L-qyJqD^z)$uj|:L52[}>*ڭƒ # бcu-͜dz6VOu/?M+qϞ=ߧw.]7)@-D Y+m}7zP<~kϻ:ːm%IwJRlk˩55AHp @gkco]YL6v뷞 Pt-^جX+~:tGq>>uFlMi;PO&Z>y[5S:n쿤ܙzJeOG;>lY d31.ڬt1HZU3L3(?*N%Hc\D7SũsPJ.Nv.sRRfeee8g0 Av뷞ODQnRz LDЕk.whHn?ʑ HT9mXgdkuEK<ѵ2=rnw%Fwm*jmvY:[4ϐڤ7ȪL*}@~/3}@{}q>M LLX8g:o'M+ŧ=.+Zw}JidjNS f:sOhyCƒ]j|:3- D2|@#Ǐ/X X;Ѝ/:i$bHHHHC ` L{6̜>OO=d+1 @ ꂇIZ2ƻ+rJ cj(,)9v;uPNi.tX5ɯdܵt{_{Ҿo?{s>2Y~d$z^/.Ȋ;M=t{TUhirHfדT3Yʶ]E:#I.= ~VJ^3G}.!ZIƁGKbW⢲RiJY\!=2I\矰r%m \IrX۞W?r HHDX_StXbGNLSPPT&o*9*-έyykq+sr[#f|d|VsUl_l)(.=*1gr| chrײlQ '?l+00RceTkϽ5yY}:R`];Qv扏ʖIxT;$sYk]ݕOE%ħ\ӅIf{;,ʗ3?zBRZPZ"eri(%*D86ݬ] HHjG QX SҶm[s_UNo|sfV%[أV;'.p&͟Ղ} 25mN;3{iϾ'-n?|mmZU|Cs$o5fi\x]*ʝpHH ,@322df9NlA4y[M:]M#+l['7xrg-n +}yex dNS9{!(iWśuVF_w"/}mzܗ˽wDv)W 涯[#~.w_A'_Wk|I6y~eAYO_2HH g֭E#LdbpXzte7C`ֽU~8A*A j} $ܲ3dUgJw@H"@p{-;tnY$eH n-h.5 `|Kšb_&aݮm+oyEG}SR]kb )d< ;Jݢ't~I}OCG}WR!8;25&B.zjhV˖Ìn ik j 5?C=Mtr(fCHgMTklې7G/м=$@$@%lFk2p@֭uQ0}ŊoܹfO0HHn xX/+WʨQdΜ9rwȈ#䬳Β)SUn6)>Vq12}[OV2y'# ۹t@Yb}SS7)b%{4Pn;=|}e >N2UP:W :V^?#>q[>Y0[<2HZ{K$@$@@ i\˲w^#]mш-kWΎWm!K?vlO,8DŪeZܴB =X?{@Zvvs s鯺×^>9fa 9ni]Z_rְzg,MzL[Cu 7Vg}2<ҹy@au ;7jxa>ArITI_m,'N*; ~!C>h>,,,4ӕEm4D,Pᗮd;5oHrwB>穛"~`~9vƝ2R+-:0/͂2ZM%/DF0;ɼ?x.I}/S~^, ceaur؝Kv7hC̚HHH >T1 ޗUP*oWQ_Wo:M`aʼ'5(VÂ1>e O^xdNwKeN7-q1rksF#%F/Av>j};jl6p!˷:747o]WoI X:ʊy:)NN.>d&z,霕9YdvfK_lܭ݀Q"]i\va%oS|ZR"AD-"7#w^iUY<gvds^>v>݈"u%ss@|Zra!~Q]eƢKeK^K0} X~grV駟.'NlʰE'f n< L8HxTi˻&&~m%w~@ &~7])epy̾P)ʬ ܊d9g!ca ؉5\yoU6(Asޫ<4ul,7E%,eL4LE%¯ʠ|MWXTJO,[ jot:ڣu7|lӽoП`BѣGٳe͚5n?m7'>f}Ju 'zs; y|7Hfp_ɏ@WyɲG%-T)|,<:ieZ}*.n+5#Bcѵ:  }N]ZBfTϴ2hJyuZ3E <{Y_P\[w,.-u)||RJ8F1P0icnnLW/? e77m$XjwYf _ dzN[(.'-5ѸA[R_ x"pnjŘcoʪ[|` D.x]+2Ns ;[?q4O<5mX@-$@\~w B Փ?';uÍ'^?Yt_7U+t~r7@k\7P܄BVھ7c +9:W'4]ԷsXҥ=C1hP`tD$a`S**+S@W};Лj{m+;ʣ>=S47k<+\g0>r ԟfZ3{}=KxU=GM<5k#_UKF ;Wte4j$.,iI2eh+0OL$@5$]ZIry?T?Ki(D5CFk7~_1:AO~NтQc$E}vڵ_;!h:ϼC|p$JA̾k,V2zM.r144FW&U)'F־~x֦{8  p"SJ+cǎbYpG\1Er]wI*!kΝҸqc7!U fN<.OhVL,AV١:za<8p cIOOAفx&[/999!iȰk6 ˥Lo釟!]:w 휑.ܺF>5UVTvlÇ2 s44LxȅEjXm P<t=E>3 ҉FDJ;EJ<^!@q/n6 Ye߸HC>)S'L 3]ӧOW_}UaVE"Mf,On;CmS]|U?N6, iTE+("!ƺowc[ŹwA GL>JAǟ|hlRDb&tx0^]A8᜗)` &Ȇ%Jm%m'11ϭ7h,*f6V`mZv$+z^$dA:\X)_rV:dg =˄Ӓ!76*7:-ccX@\Ƣ1ZO9>.Iڴi%=  <ݺuz,]zQQT#G$ W0y4Pڲ,yr*ȃ|_pfcal,L`f0{XKK_WFPu{V/0/Jߥ *HH6]7#<]AuhXAf+[  x M 7l[ϙ@w/>Uc|_EP^ '7`l`v_m=KGaՃo;? S ,\/XVGzo %m^5 U  VM:盿ECkJ瞎Tc@̧̎C`RJ|\\D6Βl<޽p 믿Ž;5z;5mbYW8!n**9'$4>5OKW؃i5k,>gc4YU}fEHJφ\gWLôd5Rҵc`HB*x.["!| v* 2D@ڷ΂&;jE}]|T !d7A 7~K5-O0 &P,}z/ܞ)O>lu_6ip0j&=׬5OpGIx[3^`'5u?s[$'1v_W_mNHN >.Ù{Q=~)$|W;6|ݛ hM Wj4?4ۿ9e0Ib ?X]i>^[|R&sq9~T] 9J| r2vǷ]%'0 Ľ09E.Ρ$6}pݬ=Jʑ{ ĝ'6aa^{OFYڷZ˯"J#Yv-AXSQF?6ףUiݼTH8[خ xj~Sq)X7>%ڤ.+h4RD'ADjc[~;hy6= L[Ewv*tX84ˮbRr N=fؾb Y1hC"[]S2[0(x胿C NAK6{{{åK͛7YLΝ;C-jY(H.LAϢ,t'4Llq,X{nQ!7BsRl:}Ǵrcz@3+i>dHwxEnd@Q)\ /,χ݇,fm$iAIhrD~bя!9;n"__Vr4dJSNLd;\oI>mbh(6#9Kٚ՞Hr2;3mG>:~p9&W>y{ToӢtUVA_ϼ^TےRqR-[ɓ'U1AZV\*!N[Ske3p5t1e~H3#GTu$PI dI%mT|f)?BJ.WB%CK @=˜<\s+а?UUlP_ĐB<Γ?3dTkhi^6\΁@F}~OǸ6C+`۶8 f8}'^= N0@p"ҖF 2:V}0sduж?2;H|Ѧ:f* cǏ_[RtCr ~ҤIx1~] 9y“7g}jGf"R#"Z׼p -q{ԵF.*JiQxKsZjͧ01Rm:IRAJZt]RcZj҈Q.^R,:cayCg:nۚZBs'p Vv]4S_|e'2£o^'i쓮DPT=6Us &G.jآ,gcn hsgNoȊ _n/ L\]>xU:{<"424T#$#& jgw {^`\{+` "fbFVEΖ?!k?ֽ%2^ 4l )` 'U֔Yxab5|Dd- 6Do V\XA'o'/Qj1B9;_zXx!i2KS#wiy.`aF_bp~uHUQAV8vQcDJp HCp#FX7szxNӕ}-aC`Śy {oǴ:! 5qNlwbp+1.gk?iR./tW_O_7ERK.g;Cā{8/-'΃,ZPcJ½93sb᛾VpHyi}pm|=HrAXʩ^Kd Cx6 \:"L C~>vp?@Я3먷X]gXq夲1ZsfKJZԸCU7x~x8/0|1GTV%2)D0EBHGi <"ԨbϺ6̈́'jjm[0-tJB+ڝO|I>i}+Oݻk_r8ڋJ~ok! =spsx~DL-:ئUO;d}>ۃB͘$c5=x 18HWwE='=nIFU~} 4$l=G}LӧGkMV>ًi!Zz/-Pk|kXzV%[F L"1qHA% L\.Ѳwܭ 1cf3JagkAL{pb0?|00zeH|Rۃ9Ûo QMla4iJ1>X7g. I V CLA9񑬈ߣB |M/'! ^gv*%(? ļW^2!צ O{yMHsIKզ\p5gSålj(3 bxtTzrl>ihXhO/^6Si 5KFBcW6v[ c5aykH %i_8n$@_6u.R& wM3 5#X- .h뺾M}TѾA7zQhn `: -_;模}8WjDu檨7\}m h:>l'и `>pjXlF 71j+0kYCvpگ8FEcü;)KU+>[3$`d}f%R d#8ˎ U3 ohf#\5Xa)~gnC0WK*pGZH115C« $k(3G$Nuʊ c E@iڼfE7ŏM3W/ʴX%׮]{3f̀.]Q`ܸq@jiY-XN+Z:Öu!+37 c6a60f=dqDZ@PQblJhj t|BzpҐrp9yCҒP.ڇҢ)Ü88~p^hԹLA}=ۀp8Ea/W$0XDZ߇΀(4C\tNj6nRY̔t SQCˆ:7hC^/ABX 8y}L Ap0e01)6} 64 )|7j&^8P[20 A%@ˌ'$%|ng-'ekg*+g Qrh޻\FOG}z9YƤH}*' ~ ^I7i P mV@`Yz' aGm=r<4z7Ƒx (D1)І٠M~X0W=<)\ʮ] .A p]t2y'\R.Ȯ}[Kcna/-И8qKIi7>|mڴa 4*ZpE76REm$c7鐪Ti?0[J9JqIGJS9k9PjۄO1emT(ON3~pel+!IeKnrjܱh=nHy`aOOi?BФz!HIKJ軉psjk4rd@G8 Z\g ?E]HNN1cرc_~,+R傯ifP+6=T\QPQ]s+$Km qqqP5Z[ a"dia MX:Qըc_r7ԗƤɍ,1bcؼh{?s#Þ)|x.LpeH>}={XJNZv߿? j\ Nق'2WZn^qip~4\YC5IaZmc Nߎ݇4NO4SxYu F]>t{6hjvUOFZ 9bNu.}&yqg f9|3 Upu,OX.I؟:-GGaQԵRKRI}ؕRcQRX*4=z-߻wfϞ |e$D02^? M 21gy(C9M<^nv͋?o\K4?ۣpVW2u}9 ~k@)&Aͧs";ICcxCHQEhƮ`ng6C`Ɨ]AF8W Z}|Z¥|k ~E0mdTT45:h@kkdJ⁦%yjccS EWqSMɄvF$HHˆ<>1=n$B㷶AtrFk~t.3r 2}},5BuIGnC&'.j'ۗ'193ǿ VMJc 6>9`B0.A:#d_jcQjLX| eS '96h-{lXT\\\P @+ѣ9s&kyٲe #J~51/,Ot7953m"#W#k@s v\ icUb @u.ù0vj~V>١t9O"߈CPQ %/3w#N.֭ Ga~&^%% (}!,, VZłқI7SޭIy5@IDAT.ăaZ˲к͇#lw~?Xw%y%@U['E0\8pCحC(;> CѲM㿞,cI@ӧ5ș'`lTR٪ ǥQ+I۠TC'.$ d( މ Mߝ`(Ux:mP/V%n4`~QOv%X~ys"@"m951X*~(vlTPc_RVROp ŤFg }%AHIjUIYO3r p Tk (Czkn3Х Qz2\ګ{4u|RۉzB)p VO7lF}G(;e<=s,Ɍaݛ>U!%|@گa2P"'8N%`mnn rZ9[9!-#~Rѧ0EϷĚ\URS ̪"FFazm)EXqsiT Ҽ(k!57n[#'''c % X D?ƀf%pM{Я8Q C#[; -qY 4sV˸|0+ȦQ͋KsSλS-[n}ܷ%v {M\x1=~yxƌ(,6R_ A(i%M?KKK@N[j~~=lٲE/^_$%u{IAx{h ߽NdyQ |.= LOZ{FPL$Ǧ1+5zo5c +'-KѫԼ΄ot|un'\ &0y`Z>]ཧF#yKPE%؞h-#^fՇU{'˸:s@UKД&Ҳz̸ R)U*8A>Hq s @YQ<LJ(*~IFFOcs0~wB; ٿߝ!- a*Ҧ;g:voYE切FA/o:)$z Gvvv?SSS P(G̙3?T* |R߆TIXqqV0DҀO}M'T1|y?\J%]aK:O. R:IIʝ8Sm?Naӆ `ڴi@5iʔ)0h2Dy,(y΂:d0[m2yu mKn$D2SEߘ]s*oΝ ƍG.\ի>$p xzHLĬ4@StH6t=сd:6|b|48_p5\,cBPR4Я]YZ-.#~z^ܵ>2l.qR P[]с{x٭:;8*?'ģM@1@`~_}ﱠ[I_EФ$/4hu{{{5kdee_~ }EQ/fd–z(ĥdW]kߣo]_kd7yF(lЪI'h`ըVqd,Hs§32X4_ذo9‡PlAǵy]7a(.\{{O'ty DƇ}|ZΞʐPKT SA4/&h٭~SX=tR9=26u||o oJ,A3.4qKuAK{ _V]`ڭ뮥uX=^~vV0Q;Km06v_x/)DOBnNU,# yLRu,lpal`.nwnF=s իa xywpkv  'XJ䁀p2د8]fVe/ ;5;Vb*9OPGF m,J_6vBHw83f]SGsЦa[xg gCgd߃-{3258 iVE'$tVVVriذa0vXxׁRt~vp5hڴ)xydСC֗0MH˂>LHQue@zwo{*Ia7GHLçgBٶBc,NHM{^X<)u ~W3;7y'3BWf&ŝ$&8 0PFi(ϳpOH6/w YKKRd/Ock{hC0XL)cw@TFW ?3 _8{fee/)1fLpY wObȒxZ} (eЌ`gs/߬THǜE eaF# +75;W̄<69{oX*7 ̎bב%o O/"@(HF&舔@wGQЫb_ vd/_" OcK0bQ4eJ8_:v+ 5'QCDdD^^ Z85Tgi^ /6g+H+8cy )axߑF.zaUvB/`MQⷡӵU)*{5i,yO>~|w#gᑐ ̓5mM&5>Jŏ|hf68`|@OW|:l?yaV3S=7| |yv3[@M;_ͽcz~@HR#/m… Rv`֭@tw^%PX`۷O뜖.] ~-\~&MZtY oGQ)'G@xXNߍ*'*̖$]A=ƶj4Xw9{6$<3s`C@R: 'I U7_WFAzo1@,E~4 P6eG߽? \.[>`Q۾aZ71j'Q ďZHa&#|RO.gc+&1e'pi@,S\m$WxZGOP'g:{'c̎U #l1עT71l]3sb}4OS LJ,ev}5atlӮ%ރS=xQ]Q(u|rؾ};~;"QΤM塸<|ZiڜB>j_H"@s}B! AfRdad2mezbD~bՕ^⤡t:.;']=Tf29 D͙@A6E[fPz@p_T=;cfRExiZI* 8*Q&Za- ASuPPBK|Ūr;+}ߓkb_z>^qS k@lՃlܤRbLT@dXvvD#2l&S[˭,H *+E+<5^!Ikz&&F3/zb#,]+d!Э`%.B&)1`DZ4X}9j$rzq0R렶uwQ$_ct_vPbΝF_xCR%iLϞ= l_hӦjٗ4q47W~_JtljfЪ Ĵ~Rm2 b7r!- ɂ~+iם-a%9'0}}8|#iɇݗaRlVsj [@Ş mkem!"zfa.>2SS!79b ?4yT %4U/V̵ 4?l:mvҢ> q=)#Y\'UE"̀"-Cd#!y"~3SITؠօ^FrDEZGU]Db#B)"pe\%k9~jj#HHW-J_u탨'[)UZv{TD^ź"&KU'g%*Z%+U`7$ ݰl6MtDdK:և@t,FmPID&2֨ˮ8|N,IDvD{•* ҇ v:66 LDڬ#6jenMmϿ.3|*W1)-ԩ:uNNN &@FFYFmGDDxB-I%r"{Pt,v l<"&9|/ sqx_"M,|qɃ<O@t841ݲ9jx]Kꅲxt@9H^rD6ƒNŮK(X96BR)Cή!QT'_-G-K=iH/@szM߲4ώ!@GZCiD'f1&SCf@R\xpUGdbC1{P ;v֫as&PK7z MW㋨'im/ }ӛ#Y{ ўNJkqۏن=XB|ldk}kV6rDpW>>襈<'(HKӤ X͗`)u1j]DkK9j\eQ@Bͣs֜/7s& ]МRPkEڤ2tw4w9Rʽ=椋rrr$ֿ>(@Eo֠v42 D5dqqŀl>&霹`u0pgгA3|$B+ؘY0-c\Su%U\L);!Ma܎#04wEAc4𘣦BI11cݛyW^Ï?64}޵kW"6-[r̓U tMa[1*Ex-8h4 : ;cHL_"@5piEe];h٦^9etVﳍ;2@F(':\X &ЄV!R2VeZTtziI˞Mp%#`2\|rN |::X'gsWfSPook=g*TAhJW: Y5;ǾhbSIQ z%K/ fZCuX&M09GRћ<襈DOQ! DbS2-CիCp~)S>ڒFR=./KQUDOc&c )=+3Yu\zFd7Y)7̄4; mߠT?|6|1 LH$WkcU Lq qݮӓxmbcU?eB {iݼ4|shTk'DlLF`僙i/maٌ0<qtL c^m2c |C3 MwݴLH!S>|f}T";>ZR&C(>ǐz ĝ3!.̄Nuz?FKb1~Yj*cDq=biPr K:2U,rD55Y(t2h:SobDfJl`fX i pөs[.0#? D?^ O7:Qʄ4S*ohu^}nW@HVV(zT7߄_@%T&mzm!ȃl9͕ sW Lj\i5e4v9IWo՜K5g1FEE)F霸$ Vv<"M֮]R<} -CTMh|KKKKKKKK+޽ C aKbe;vіI%]d*$&u'JK ]`8>< ԜTwYJ)(Ӆ9r,=8IC5fyiEsVlkH@dOW?'MݺuUVA9L;v,?;Thӭ0 MAB8;@s :7S%@3|bjOWG_Q (V˳u,m^FyC.|f[twlԶDbm< Ўs@/}Oi?ڻr0!S u5z4?\0 I0u.9޿-EAp9ȃX-F7ws1T?' m`av8cq },vB0 et*& 3:x*9!Q Nr !-(y{{{ömݺu+^9RUcJﷶ8S 7DXàP\;!I,sB" ;24vߧdf.D#%-&Y͗0͝f/F 0Ρ&5_zlvV攖) |k:u>X!k}ɶbG1.WsU=_ewB*qJ%:)<$???VY^S3O'I7G4$p H+7} g߼"w?dPXA|~}|=luOZ'u{g!C;dņh1-ڡ3|Sxx P_=HyRd~)'w'=-..P@1Zf'I1o߾0aׯVa9VgSwecSw#Xx]-@ڃk(Z,&!E  Fh2 r 'KA1 Įd7V`r!-k'Rnf6Rm.وpd+GT9)@$RNk9"$?ԶsV婍~p8}4ܻw_j׮_mli)"#[\!+(F%J,W BJ5xH<:'Ow|LͩIeRXҠe$[%Tq8.^ˑqȵS3P@NIs@ՔbJ'o^z9U[t.-k^\xY|qG>7@f ݼTrǖһ-2ڳl6i\;OÕKOd^1ozƄY=o0B#kS3He|)20WNE ;;9l%#Viޠ )@jSשI!GÏ9"s kIs p _KpBgexݻwmq?qS`1?MXx}-'2wza; z[byF(u.`l[GEFluOf<ͺ"9:yXaNl\?M:DZ>]]ہ'rƱɄYǰQvjkJ̶My9u>>OZ>bX%r:216daff j)|[}6<4j\Pyvl&ςri8 =oYS}?d=P95s&o c'a^&>Xy]s po LEl8gm?_YLw1*R:Ƣa36gMM2{k)\xڡZSְrūXm=ϔR$>dc?h(-3g.TUf}m`ȥ0 ƞx#3NJ%繺C%q@HG ϟ\nL<bccW_}̙3G<6 Sp tLH֨!@eTCP*9=@Z@+`6bTZ %Uk@v- A\NI3.l]o0++9f?Ss`f.ysǀ{ s 9%EuIM\& r 9KKS6zڹ*&dzF4`lk4/0ujjUU(G2owhVǍI粊Yy.kU8@y&I;ve?'ҼplM23Amj(~?%D)1J(-9uY ڂ~<h6i<-Z?%Ch(ۑcJ/5m4q҉ q ާN}y#\\z!#UVp)6:tP'N֭[m#........-I ԩS7Zr;i$6hoŋ7ORUoqs p p p p p p p T$k 2']vم9ҕ+WpL=P>@M@t>H]g]hcmȟv$^=N3F`K6~XvFFv0f˺ /+ss!N_ 1,c1&dgǣ &; 1LyʋQf0˜>ځSyk;&496= 1)m oC:wR?MgJC0hN RvVL=1ehč%d9W f{)FP/#[eȑKtBj4M4ax]I p'2%JƆCk 49ѓ3̎] ) 2#ov7K/&2CK[h=tq*V@ݣWYrke FAa Z!q)!ǩEAM#zMO;Q'_~y{{8b6m:e!Ȟuw8)=)L9 nEYi͋zpDׯ&ͻkC <yp eczeão_ cyFaV4%&'SPdZ'1F;j7_et#;y7K+v4g_; I}>QnNU%9kli7&}BLt @iUo5[xW_WEW6ފ"T@os 2 e$0J)N$s{5m~Q*>g@C}P.S('UU,SDm!Tmp;KU!S}JyLE->]|ϲkNL(mRxWhS/|u"hɫ,xe7O`4 pZ)bv -cTz^s饽'sg墝dvcSQkעXtVf\֮Q$5DI|!K^ǂn1V:;erDndRш=XdZh}xuQw4gȖl*fcmNI.?ЋbC`J IF^%PM%h5=q|[w1R.LQbVV&6iBBQ 1DvrD/{qrl:O#m40EYrQ cv9A"%GN+D/ ;~49h^!KP2Q߭UہIQM۽@\?B!+ %c pcHݕx\#+i1aQ^sfrDc0ӓ, QF)l$}%D< )/"[V}K*bXtN>];&E[)_sR-=z˓8q D +&U>*/v^K4 w'dۺ2(j e󧴄rDm=tRoiv +B'Ir p´a+S'%l[@a 3~6A= mhV̮dSUhj^[6Zu9F2h%˧  躮J<\-@+Z¼}.-ppIe6|-{J: 7udow D!(&hs'y*Fi#+{C\Fd<^r9ۚZAmuؘBΏzUxb9`R# +۴$^wQ@\Ǽ6#]`(AA_V!@דѽh1G:4~hvgy@_%P%ft擣 Ғ'==ɕ#@/12@0 4Q{Ha/-AS</|eܡ@]<ڶ}hh/0MHcճA3mzz7PF=>xu~a_cVc6paxh0+Ұ mT˰70][a : xO~^(hyNޖa3W^>u̼K&HS04fff2گ4'9w `aa 9';cNFl4tLq''Wzin.> Y.xudWbfߔא)RjY=gg2b١iiil"Ye,H|rcT-2 ey<`;oaLdeEAN.òVtB^%wGkgf :G-^Y ~LpYi+d\ mn, V;G/Fc=t,#9w<|>8>]{kCn[:{,& 5  9*eA# g!c&E3M?-{;â^a"^IUVVV]U2m}@py Jz%t)^sH8P\DR1C/L#0kR^ό0Bds#pqŃ服 (D Yi|0mVo='wotP_U?"IF C2k z9POJ#:Vׁt+5}"T>[6zR'K.60Op޵gclDC׆2D L,bE.*I=o6EB_r`s66R<k7CItLFq9W (t ҜQx/Z^mQ:opi<3\ 1~^%@njw&s0w4[֪MNˀWVVV`2%EE%iTQUI$IUyC\yG_UВ4iCk ն,JU9W[w}̳ZPӇtGm\Ȟ-+،jskùsm+͑@'}LZ[[%v^sM:z_.L=z9sʧ38b3j35Jwj?#f`&{c L.8,ھ.fC6~6a)iF7pRSgg9Gi0yK]s ǜZQxmx;hEnѠC^_q!K=A~@5wBX5KZдᐏ`/ ЎS5Y * ^ u )bObC(M!@0-gsèӛF#=;ocCIW@<ֆt:nQ=\Q;8=oR1=yQtpDxu0M)7|WGIx-=)ZUsTߕQW"vRY~Li$Pi>nYl,ݹwFdT*0ب%Ҵ G@͐sPK e|ݧ!HGu "5A>;!һ OF@yP|y8[W ....HPȑg <]Ǡ_gbj,bKvχg,;/@GrQÁ7\\\\g8yUD VEʉdedž幸\o- B<@RٱeiǤR9V.M'Z߇1 M%ݔ_$d[ңܧ,}7U"?Vu;ڪ6䯟rHdeBDjmZ&Q *)GC&{\7C09p7/L0նhz6l\Ur....2H@Q!\-_b Pj I+/B ڬ ˨0vY P#glSZ|,=Z+a}/M*5!<7Bgn0S_U kDQrz}EmNN5oZ7^c7;R?gP #R ....H׍K D_*qI2SdRwb< s2!9f:%_pd-ŬDc_uN'˄3!?Y]0h;0*4ꤣR4> g0R&η5r|l^[3)Yi8$f]]xywKrT@rWDͨkyʳ JR)UH+;::FB.*hm;VK /׸S'%%%%%%%P%h>?|t\\\\\\\5NָS'%%%%%%%P%>\G%P$u"}q'6AN"y[mP‚ry=63de7oS?^)~g!|Wz d}^J˅׏~!<5(f{/x#QON\Eekq$,<8q d p'J8 .ѓƫ /3((N&)oen*.F zJL+qCϱǝMd+702#k{h>cU;J skoCè]4~msN^m´ ?/쩻JwB*8{%G(@޵ !' 'ѽ*+E^۾ >̈́!/Uͧ>_|CA^5~_v|/p/\ơ5p._C}p T^߷Ą ݪ1ι*RVty۵Fɾ'0-:&T1F qU&]@~f1lҍBʭS%G-Ks  PoC&~-/[s T{ pZO!@UY'Kb ղPVT XJ8cI{pU* !9Y>]0\ \Յotjop D \1'GwbC QN\5Qijw 0]ۆbd4 GT$G#>=7H#Gy ({!@^0D, -iU#8P  `Ȭz3W/ef 0trdhn-oˑ {?ȑ)X90 9gD*W( š,D_]W`YV5-\( Aa3&~|홎t_sVݺu~uߧNyi{!Mq?]tė$B$_s"2͑c-Ѷ'&j]5LnEb{sv[ܲ!. tv" O@Qn%d%:ӌN~%#8lvXk/vb ϰ9iWi=Na"'9i/ϯ5<`h}dv"|z&"Uf E` @#zdj 2$9*H|dsT% z,ܤ+@"g *Zv^o=]ծ,)c?kym/Z;I"xFDۆw rF@4G>W |<0#eN_ sQp`! }ݏݐXOGPLr inEJbPɁ-Tzt(<3Ew4E,)EsDcz'L{rM'Q[^ڞz4kB+ou!}S jz_sX}{8?['{JnM) I @?Czn_X SA .D Za'$w]͞@`bٷg@@@@tNT @@@@@m0_m={bןf1r VRȫ#hGc~*K![>9fUyY9lX*ӁSrX{(Y,2BO@/&Q+)(H;8'o=wZ&Hx Y:7C Lc[Ʌ󮼛i߷ E{EPU"R[(3(GgSiNi3݉Z-O+_\YN-nίJk4+-A[UUUShMe)~%u&̣fJ=m"/ YGѴ@E< "|ڶmуe7sq:}tRRuZ/Z\Ɂiҗo:WC{]0=9KQQQԈ&ݒPh]ĂL"PKTx{__{wzOZ~Ǹt!8+ j=DM=L&sJrb$2 pKKՊ:?3V_,B:!j)meƂӦ..hڡ!VKiqQ?,DcE=UMky"qUX^{2zj:u*effҳ>K ,pHߦ˗'|"mٲa9/J|rk}:(,bXS"%;5!j1,vyc5Ey.'7"˿S=?sSɅN߽+~BzOc,¶L_^FN_9KX|e{>~U8֫|ݔF?P|r}WQ"P  P\̙C&M^{֯1Ga:t͞=^~e;lX@<*޷Uy'D=E1||I圚n_'jSx ʩ8s̍et|_] MyBo8(ukSvO[Ӆ?ڞUY1s[7Bx_j [  P瀚+C/..&x(+776nHÇt"vTTTdw^'*J|ȟ ]qetYb^VVf_gٱhpr; %5 s1o]*:C2*޽8T)>IGDu]^žO."S˾=\Y!w^Z!BZpUy{+)%;Cx?'9Ai㖟SSMm?W}Wt9wefC[Z{e? .#G՜A,(nJ#нK]w]r/gZyzʝwp,LÛIIv>a~̞j&yH؃B=LV8{p&qM܃=ݶPygϢ+?(;>kg)6I*6@,f|Wtn_(3dq% SnO9Sǎiٲe.hhh(?%-Bڦ;m:D5=vB\*)g')22 ͏18i[dhvr9eu)_TSR11]HFP/ '&7$! _5gh}e>>_V999M?\xwX_2Ϫ˜fsû8p!;h#yçMy,Bocmf?7 NY: |z?N5w\Z,l煶nݚΜ9C0@`LC(J1/mL+cz_^zE o|Hⓛ14ENaboȎ}eӺM,2:tzк'E`C[AowLv;E>ԥK9s/G*,,ӧ91/7#z,Z$;MbOpyAHX>0B(d,Іyjym5vjb}m{)s0Wk{pS. re-ϧ-Uʢq>C0Ch@ZGf5h۷~ vɒ%KwtK/D}x<䘑-MIq) !x{rP@,!KOIZ8ת E9ޘFy(^?"~S)\DRʜ?$e0ĐxHB*9J^4Ԋ͟ QQ>(4RoNi7?6}H+l@9.$; .ݥae^< pts^lZsIGÅx7~.%i L<4*en}$"PpK=<:!x^x)P(_sc!x\c؈{腚CZŊ^Vtx01"Z9TcdV#]Uf؊315$]pR IHsk3oU/hl.VBb.`~PqϓR}|)LjD(5*A ꋧH}uBO"cUWUY|nQrOj'<B pz%HβγLU_8*Gh;eGh-j7  O2rwA@@@@  @\8 _ ŸJm_9b1GQݹ?{n_OYYD'QVB2% RG?,i/fa  $n-bKƫwQᶵ lIYΣQ'Vy4-NJ%ZoZ-V,ٷN.E>ʧHk@@@0oԞ@Ϻ6jN?da~PBFO{VO|!bF_:azۤ;D\K)p:%Uk쯋RKee.,A@@0 @ Ս7R]鲂,Ջ=2pʡ{K:QMY=*BYU[QQ9=szɶݦ')86ٓb,aPxt( "zAY8~(2GŹ4>wG|2zLVa_:EvrA@@ @ M5UHR QsU+O|LSoGM"st2(  z'}A6,dǶ)(9zq->'ߞ)S'''ߦcvT~@} C"<!p~F:MT[*~|?  wQ+ @=FոӶ#gibxOv9ZOg>xY S[Q@nJEٟ,N䊧\)~"v]  >%SD??#1Crs|U_&p}C!u vA-ՕT}QzWU]JUs>+{?ۗU M+H-w]W)\Sz^36ib+Ti,TZ]@@oZb?ӦY4EkJ~v KmKA Mn喋V DwnFmnX6nˠ@ESAD1U  -"餞?L#sIn 72Zʌ0LE2Qw(!7PPHFC) . i.]PF1=6F@@I @1!⸋)5bCӯ2kF-s!3ѫ9S @ЛCfPrl:Ϡz:_X ^uG|$@h;! ܽ @(wִb-5kUUUlam6G7d~}okŮ_A:i\yH?߁R@k-Rtta 3gPddjl{)>>wcWu+psYt+|16󈆑=ָݯ8t,5ּbPPuZ"p(TDrx!7*4K񃮯 䬔?i @@CT;}5oGo_r6=܎."ï˘`GSh8䅍ׁh W juEPI"&gXRYNZiw>$3Q4`u%N2GQpLcGĹVE &  M+y),edJ{mx8Mb.użҰ @@@ @oh5@۶=)22&>m4GDS `^} @@@@@S @5]h,h@jX>P!,MTw    }CX   "BcA@@@@ @߇@@@4ETS݅Ƃ @jah ~PMu    '>    ).4@@@OT} @@@@@S5Z4VS,Gr*9yr(aHj>z &Д-h,MӶmۨGԂбcǨ_~ԬY3吡nuF5%5D'PR)y[uց_W^MSNLzgi?>ꫴc0a?~a9T?}dJ-ՕpϔTqrA@@ DV\Is̡I&kFׯ'ڦGOo͘1ƎKmk@i.*I -(   `<>7ʹb t˩Xڦ#GP޽)(N_|a[먬e9(jڹ_֑嵖**%,LlÅVIaa?VW׽+**>kwUxx8L&=u7l PApB9rά,KΝvtoGY?UF4lKReMifO_>r_RR*[yFgv$-ϟ?ﶛSSSݖAhH/oʿy=#gnbO)TʎP^:˿RRR$YzLAmRqx4Ֆ MhˊT3_6yI帟5oTUU)T e/g~BJJJr]e8?*3/Tlٲ%v0'''Ӯ]x\kQ)bۭ a(: %D߅Q+siMFp%z}mzGYLUuYEHlO?M]t3g=ȼ 0C'N ~~g4p@uBk<"1>So)Hѧ; UIG    `Fi    *!@3@@@@( @Ӱ@@@TBT%fQ@a'J:5JONP Pt   F!j    &H*i     `a"zm5@'DPP5    jN    &jj ڢ?ŴgϞz |aYQ`ǎ/҈#hղ}QC>Lӧ>S9srrɅ ŋE0VjB 9t=n}$7|Xp򏋊 z穲BCCAH' F hƌ:f( hÆ ${>双x@) Ѵj*bo(=pFJKJJwK.vZb؜9s >ۥn[tRի :mY _~Ezy UJJ@k5A;!ițnIgﾓs͛]r;!nݺ۩_~4}t8}<~뭷;C͛7׾AOf͒?";w,$'ʛ4Qe˖Q||< 7@7x؞nW'IVzJΝK]tJ2qDѦQhSiN i;G^yZ|QO> CUGC4;vLO$;;[?F\%HJNN !5kl G2d\H;~g} J4}sGk͛sQ߾}mc/'u<$@yI_xbٳ 5V<]?9\bŃ/P/DUmFoUUUQnn.͜9 1i驧+fϞ=K=uŴ捃V<<OЇ~h=xhƍ2/@#:yat%'8k,yPK/$>N ?@5O/$iӦOMcǎ%Oeei|70\z5Rxk<Jb;uD\r +tmlJo61Blױe_]z۷o/ϗJuV-,Μ9#mꫯCFCv _LOO 8BCCu̅_^[nR9z?cd^K<Հys7{J~,f3 4Hr(>| UW]%ml Czp  $ @TL@x,BXdB@!CXɳZzNxd"ӓBpZwOo9!,߬g,ZH#XmĂK˖-)OOZXnlӧ91tmy{5BXZzmV6)Ix-B0*/ݷo,/ W <ϑ/)s۵kG'N XxNLaaas,N{aM6cDisB_|rrr=w_h-QQQ֪y,\yn)!!1קÙ IVy:mlDPf c@}W ,(9{x1mرuB^\9+V[+,?N=1c͛7X*׏?jkkkO-cBcavYΝ;믗=gu6<ϞR#ss_ymR<rncu  Wga 9/$b!(bJċ]-[F?\F^qԥK {yg266ʁWoٲE.)e]&<,8YtM:U.Q9-ΪaO./biQ%' SV+ye0{j &? =<ܹsv])_n|$ @+PL"W]GW^9)$$x< G^^=++x<ߓ,T9 TWRvN<t̘1s#/$yWuΙ38>:<[p6'ͼE79mdObW x zu<蕀Ix~w-J: LKKsj #bϛ&""BB\;eʞȦ&GmNςP<'){*Mykc{/^l'ԩS$VSSY˗7@tMT @n"@y\/yzdd9{IE-{_xN$C@@@@T,|L[#.IENDB`ggtext/man/figures/README-unnamed-chunk-10-1.png0000644000176200001440000013426514310625353020562 0ustar liggesusersPNG  IHDRz4iCCPkCGColorSpaceGenericRGB8U]hU>+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i_@IDATxExd8 ! 9$9#IIJN ("HAP@D2D2Hɿgo^ؽxygn*޿JB$@$@$@$@>"G    A    )*>HHHH    )*>HHHH    )>͇]vg%ID?~,O>YQx$A&CaPxNٳgq| L%J$<$l/LYK %&ן+J8k}7RHa5XKWo/յE|(KLB &LPܻwgVd7~YޣI ܼy3[ᏕЇ?juVh!۷IŠAܹcU}>HHH$*qIHHH P>HHH$*qIHHH P>HHH$*qIHHH P>HHH$*qIHHH P>HHH$*qIHHH P>HHH$*qIHHH P>HHH$*qIHHH Tslݺ5̫=z|rUz>n۶M?~ls,vv%5tɋ/(&M_   1j<#FH\rN]g.ߗK_ke/^xNE'~]&~8p@>3K97HHHHl J۶m۶[>}Z~g3g )t<qxt $Ϟo85U?XҀ2E"0oWʳgF`ԶK{2TY(I&{a3lPh%7o^ٳg!>[7!;4t_f67HÇd5үoO3!#g@oݺCa+/6 GȘߏ-DSg ˰'>a <>}zԶ)Μ9ޅX,Y̪>dZ (ǸM$KF$qC HH]#Sk֬RJ髯P|3!SbżKMAAArq۷ԪUK~A>7@͙L+W8%~z&x阹7z>iӦur[@GJg'a'ʧ}?w>To_'D\t䍸tͼV 5S@} *CH,dKF?[~b) ?ۻ=ӟ\ :Il%굛Gd+ ={[{ZsϲO.٦EXR$KT]#! &@4 y2LP~ݱ? z]ǎ\!&OnlUɏ~`Ӕ1޿Pdz[:}֧pbfT]!~= @4pLdGiH-=QQ*亓wFNs/{|_y/O/%4  ?"@OnϞXVH*/!SA@՗ϗK}_稲^|LTJl\xf~P?R=mIZ-ǟ.EႹ8fͨo  s4   pAS.]a2YJA/ժJRZ-?6C%JYzd[hZ77t1B6lܮIF=aޒA)TP:t.(Eƙy,ZNz|j HbyzRM#on-J)RR~7lUv:h -AY [QRlqI.PZ$tCGNjK_VG6mXt9R&N'5dɒJvoYUk6+;hOJђj^熔(DԊgɥ? ԅovʫFi@u5.KdjU7eҴZӍ@a6oȷ,{Y7hzN_J*]f݆Uߐ~*/m*M[-_A?&+% J/ZJy{Q{`HH"JЈ~y@YKIUu˰-X^^G%WJ>ʣNiiX]r䩮I<,]4Y[)kV=OY:,fTRSO~ulںtl*Ydfh+,iRSƾT6gK4UCu;ʮ=)dCzJPTL9zrXi_}SlQ .P_@Buu"Ұir8" י#{u.co'j PV%H#eٔag:^ʧyrt;B_%K2;PS)' 1{E}/nӵ$7Saou(T٪\N> ㇀#$Y$ZĶ,\z]1* TY\7/_18P?($@$@$8D#ZP1ml-ӥY60OaB}^RX^[ M>,3`?^xfGedS |+K[ɤ /篥Է_Y1l`\lהzSB"u :qH̶`UY  MP]Ieu wRj ͈[Ieͷ[EUJX\!Opæi(שn~?]4﷥n @$~cE!qXqEY`I41,bPeXiLxI<pԘ*VD@9QQ@X{т9#U>:?7-+ae +byqB% Ψd0%1>(]|1][&NVwLNuNND_vɬ+aD+6ߖ&-bQVCrXA*}`1֗Zz-X\u;bVU[>y?6 iܬ4|^Rq>{Az9F/"ĩqHH<%@SRQPo SF[׈ѳ?e3/f%WZ1ٰn:LgHYl$AY >#3N3;;?eK+ɟ{{Y:  H|5OauWond=s"k_Ԉ<ֵg)kPm)Yu؛>bܰiIuv9U$}RAW*Rp.jkZJ>]2E=5 @Lٚ>G8%IS\+ʕ-Ǚ $S)_q,xI"?UXX>\-J<`FnPJzs:۾G&J`F%3z-G *>sevz*X +B +֏TXW F+ 1nR+M4^s,:3}NZ=mR?UT*tL[.)J#00P0%mŖFԍ7|rIx.Ӧ5N8됫QƲiCy: `Q+p(ǼiEt*hXk''ڀ+e,>a^{ ڕI4憅fY2gXe)$@$@$T@C+ R1VSH|C)IHHHjxVR CE\ @DpRD    at<HHHH "F!   0*FwNDhBݻw?|Rs#od,y|ykg;/vW*su!2IDwLQ9ʾZZ|UΝ{5ltQ)#T*%]zaou<ѕ?YzgL7Pg]޹V9 [ rO2OY4[%j `ߨ\TXZ\Nܶ}gmΞXe8J(TfMS0]ݮ0N_'b,ou1VKU-#-^[7Oϻ\9owpF%˾LQ7Ws !,Youm=tv_ϱߏ3SHmYe iTþy'*9?S4C;,  ?=TDAW!ç| lՑNOJђƟ~FɒIU%ejH/ٵ}+aNҹC^z[} ;Z;M^,OGhZ7qWc˖5oIet(4-1c&e^)UTtUϿ\k@ R?beJMS+8FNRqjP4kR[~WJ|Ҽ$OZ0&_Ϳ Eȟ ]Kʥ%_ޜҹt5ƄH+ZV{ JFZU*5ɾGt](KHSM;䵦)c]ՏSIje%Gڽe߅;?7DCxL\1@Hi;$@$@~ICBnmX 7?b9ˢ|ZŠw1V[lmIuSeŒi,R:7|;Wܡlظ]6CJ/(;~//'=6˖)&nTjwA[v _H#OuY"rl¾?6o43~\VyXEvl' Raul0Ce*=MCj9 R( 骔uyrj+={fys2 j(! kHέhizu*m}CGos7zVXͼB(3 ӧԭ]Q^o5@8tB`܃Q{|*VoQpwxvִw5 {f"{jl_]5#YܽJ ϥ{~;>+P:A[amϒ% 5C:8C,   *>gaIԔ)>zjnJ!^ne=k/V@+G~lY3VcvԩYAY*oL}H)k{elywQǔjlf]wX2O+R)koɩr %KrY;Jpmȃ宲8yFO ge2iJWj# SdaH.TGOV|fPSrڿOI,߭?~l)77^*zHc a<Ž3.p5p%"Rg匚%ԕxr?(jU_q#p8|O)]YN$@$8a$Nsf߼eΜ9HҧKkL-[KJʧszR26Wˍtv(I&zuou%Edv&w Hجe͔G3Lq,^ _G= n)m(ُt87S>b>*ydE2i ͻ|Zʗ]dɒ͸};)~`spDYd4w7W{᪽#30ayr?fLmȐ!Ǐ* Mnݾ+Ϭ#!U,rKYF[X6pn (|~axY~^Ŭfr ,ӇMs5_LZ+a=v꧇"{JY % i-"+{Kixdu^/ϩx|!Pl2E-~VUbyu/2q}thSnxaڷv.2c"Y` ,؆UoJNMB%}0rdϢaR8asoʡυuu]gq]W^:?Z*?ꇒ33r(Tޡ>YK٭S399=[/T֯-X)$@$@M e_M J Ӷ{^_mlشXFF%Uȣjq'[J qTb'3Z:])HF11c:q7i?|E+Km!y2WEj+଩F֮Q^Zw|[}o>A)KxleY`,㞈 FgU*p^{Ҿ:_WnHHHg}R4iRFs'NRNm#d?=UTo6@}w3D1g(j-v4goܸ s6b6vݮ_U>&B >H:bKYXcW>qRV'ԕ`Z06K@ KD`iXl_7,uܾ-g,L< MP+XyNºakWHkX'ډ3Dw?z P߱fO~BJM@?ksfSb'$vG38ׇTtQa$@$@$T@9H \8 w-  &EH4M~@ܾT>9  8F h\   nT@X؏Sog~ʅԉqc 3Yq,kK}g}#?DD~!p>HHjFA~"MgTrCwd1r:iX)1][]@oঀUk"[~\Co1w?LW36ƅKB$@$@PuG(#K=dɲҲY=+y끲ndՖȕDB5q<%gTծ:8=vJ>SWOݺ}GZ6&-mZۼ>K5ӹ}zVJA4/l2|4|iC8jQPG*;MWIp:wjmt&~[tPd-wPZ:_(^*$M[Lq@AEz+Kveي$yRtOP$_^LVU0x3?ۯn7.o`DWҰA5qTxVJ1&v9$UjSAA)Z r7?Cg6σ͉!  ES>z R޻F+/Ra-S&fS2gNtPJ@{В%P Tu`A=v o; 㐁50BͿY9KyL?}aufcTN(LZ70droBEt,[y@y.Qxʷ>L1gx^IZ1d~؎F8|RV(ů|+6|3J9Ny˾˝Җz`);j_?KqZtuxj_lV wpU0½Bwܿou<׾QXCM&X2U(`\nXϋyiHM;~r5?wM9wHHH*Ψx웕~Bڒ.(P)C#uOPN%:ڳk ٳﰤJ_Z2+ӱTPWfgQIe-'Sg~}8ma1+ w :=eB7s ,9H|5uk+QY:Z\IM 'XKQe{*{1|2{ yg*VpajMs( 1S *+ḁ[Xɒfd$4cSYJ; !s!u^͚ :J% ($UjAȱ`Ⱦlʗ>UkuPu+I~TSjx](^?Ԭ`Q|q<ىpu>,?xX Q ]zd% wl-͛Jt[sHHl': /\AOtm_K+:xrOêi&LuOe5X#ar.KY{cWJN`u뮤MRݿFl, n@)GE >St {hGV@X "-.Sx%x8;,svc;7SǍYn: Xf=JY &6ԤI4j>Ǣbqԩۜb*U*9 W\*f``qNVLڍ7J2mZ:LBu͖pm_*.V0ͲȼbE'J?OCq͑#Y%FvdXڠ +=drdlNW'y g˾ ?\xo$@$@$ޔEF$Gb(UFM SHHHb&Z@c}t煓 @l @ hl   AƠš @l @46E^ T@}p%gIrs :+i X q&#Η-*e'S+}ǞTep抠#F ٬J$@$@'@4 ݶ&O,Km7+tVf~(\:'';pTf~=i7ױHJ!  _Kڱ*<%fhRKΞM'  )L2OY%o`ЯNiu>PVoE6$on-E3-;e'˒?2{|v}_vƟv0ߪy=yrC3}*3Pji꫼a 'TXR}0WY_\LF ᴙoݬ߼yǒݺbXa]Ȳ3{bY/:g%x$ þ{f2ZM *?3.?eB9u,*T^3~}E6)-S,[_g.꿮 kctvJ*OB}wtjҏܭr %h'ϋ6܍ɬ׽`j=}.~ÏUƣ ܿUz+̜)jQlB>Eʽ\̒Ӿ- pHH 4nyzd嚍*OxgJZ13U򵚊oբ\\~B^5?o&>)EK6VO'O}o<#&Rv/D~Rkfut.-s]:;Z;MT}WX~I2<3MqF|4'UƦW>ʉg,U]:䖯VVjA5Ҳ`>VP'koM:!6nFUIF=T:)]/[wӧBv*E U9ٛL@!-\rM [r^|})E1np}lVO9yݘy`uQ>}BiԬE{ʆz&˳6 @"@ 7ygWyU)%$oZ<dnGm?}-x4kʂOJcYg8p]e*+LeWT? }X.+ehώ:uJN֫m9f?z씶6m4.9TZ5+E/P^TVٺ+9h I5eU'aVFͅ_}#+5_Uc EK5_WUeMCjmOAW/Edtd$[֌RO)GSVfj7ò Kkv!Ώc~,Γɖ Lq Q6tY>;ʮ=XJBv9$P’bkgJ,ղ)kxz{5˧)E U|&eA>hQ@K(dV#v )^zU]]ⲋdz9r"]ÇqB4 Ek]Rqr} ΑգEd]z5]P=± Ѿm  OS>TNGU?J`Ti?Y2O(ϻy.Ϝ9ti-S8+飈}XRH&/(7Ĩb#7nޒDJ i{-Me';NXM[yz7ocI%n6)-mHj2R҉+4|$1]S?`EԊ$Oz]hź=wck{Sy8g[ Ԇymfǡ8}mHH ny柇׫Et;|%!_VcZVJt8+Za+ռ+;qZFC7SdȐ<frz*قz'dʔN/~VZ> XٰH'ׁí(^PwYYp[)$M2,d`ݣ>Mǡ*[[býT<}^<Y=o`Dߖjq\E፛wTÔgrrܕ`Ogkzj:kea]sS(aֲ_esg3@kPO]W_-Y'WnHHH_uOҤI%M41AaAԩU6~8L)UT Y5vǝExZPPqO:s6} PNS>qKg'/'˪x|>49S>q RBpqR>D>º`'t{-dr@d~E>d \TxźMWcjVn,:s%8}L߮d9 @!`k=+2u.#\PEL#'w5Fn*cSLL)?A1aQ2FD9_$(i 8$ÆeF3-J ceUGyrs[qh^;O^k p >J9V)&Q643/#$88ڬF$@$5sʕ//6rmW$@~N >{E]HH ,_|*M(hM D.u8]P]cb$@$ P:p[2kA" @#Zrn'N[Ȕ>}zK)dɒiѣG>CRzuŎHH ԑ KHHHHH i    GT@HHHHz.&   p$@ԑ KHHHHH i    GT@HHHHz.&   p$@ԑ KHHHHH i    G>Kʼnv`ɛ7H.\ O)/)SFٳG>|h9'OI6e$@$@$@$@1OP(Ç5jȬYm۶ҰaCB'NkZΟ?/7oޔիW<%JXjՊ 7HHHH :e=z-ZT6m*;vuJĉ-*T xA`С VQW"r*UPN/(Lѣ@M)&Aݻ!Cz<~}ŔǏ/dz?Gi7Z+mٳgdbu&L(I&U~?k% >k93[1)@g=Pw^W@(F@`̒%ӻn:ѣ1Li*ٳgڵk[:9;P@q} >!ڻnA焊y=5~G ;w(ZL( xY}"D&L+.g;=Ktz5;4y``~aZ`djP_P!裏>7n(UT @!u(w.K.-ZȜ9sdȐ!Bݺu(8s挤Ob4+5iDkڵӫ/.xQHHHHbxjg7nܐ4iDqgESԃ3e$n+N[o )PY1o~۷os &JJ'^rŪi~:AXK$ࡋB>>mrHHHH f|Bђ xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@: a 7 P&]M$@$@$@$@  xPoe$@$@$@$@ġ4ܻwgW4iRy+MVYZP}ucɃLBdz$noqq& L3`>#滫zq<].u~XJ$@$@$@$%T@͒ 8'@9 x@/6K$@$ W^ .\X'Ox* @L%@49HbiӦɬYt ,ql۶Mcؕp$@%)$@$@n \RƍC\~]+8lٲri @"@4vO^ %(q.\Hb1NK# !pCA#GNɒ%I$rbY6ԨY՞= ;Nbq! ӧzI_ɜ)@V}(iD^C P e-  /H>9sơ ʱcTʾT2xp|ɞ](^8qQvDJԩDiS T6%35jDX?L$@$ S 'jUO)V?+@fży/jŗ=ҨlC7B*~vbp#nI$@1@VwN&xUd?#f_\=,^@-Jj%xɑ%@4y> Gu&;w)SKR_ɯVge%#"Ȱa S(K#oT@pt$@$4CZUKi0MD _ K!pXJ$@$yG&TP*,'-,_4܍3 *1^q$@$+;PŊkE _vbx,> #@4|XHH &U!XC[EOY@Ԣ AO?9p@TF[*iefyhڵ7uܹX ;=ױxp|UV%  ( _" R/.#e6mD>HJz oE)YR@ l~F[q!pȞ="ǏΐdvZH0|5Ǎ3YFUL'-)1ϟ / E J6E!&@ԯoG$@qcᎽ`q)Գo^aY<|ذrnbi4zZg8n\JEr P=,8T\g&2`'-|ax=jjgT@pl$@$ O‘:#F9 4^S}>?f-G{ eSYJ'jj/*|F3Vc%<+= OU K,΁?+z9[Yu7mjX]*VIH !V&^F4MXqXEd2c;7ʧs7ٽ;gwVyK1Dk`?=B;+VD-_OfM hܾz k"N:,J#ǝaZ2>3e2eE6l0LݵMO,2(#*b"tF9XS1FO$*z됀=5)A!  $жRBXrJ"@ .a#, vn({ ArcVc:,B֥ČmkBp|,b"1"'2. !Qד1 XjM$@$@~C|aD #$  0-VP(D[ұcE£@" &B!4F0JTP:C@E[ * xNSbM  @ PLC鴗TŸaʣ}5sɛpYEf5ʽ{BTu6&+T@]a9 @O%V#M%؛L& gKHb!B(կi "691e؛`~hϓ0LM aL*׍P;بk$)*b=  BjՌŋ\bdBuOcf"E&1ݎEGX2X Q>bg5yH"͚L1HHT6EQW '|=uHP{"' H46Ɗs,AlOOd.CӨ EJZ.ȤN092~UT鉄C[ ({P: nzΊ5IH2! &^'X^"Zo 8NCyE%OWE70\ <#|=HO6 V{r {BU+߱ȹswcW/s۞FPy"\'^%PYK$@$ii҈xzݰڶ͘6"$![|7˗7ȅ "P!# 9{wjި6H< vN_~i _ xE D?{] #hFMԃ% O-]\'ʀm+#g$@$@DILG& СD"ED 턩ks%݄҉DXf`qPs 0;MAp{%EM!t*~7`E&O1 E"*?1O!oPHH"25fL4<74u E+бR<_>"\;q+cr匬JGK&NYR$S&#\=*Үc}W%6,0wXN'@4  X*)f. ̒1ōGX={h7O |(6,PΆ !(lP(\dM䷇EPSt8cJ, Dj cT> p=nYZP(O5mXBuvY& D$@$@^$\R6-}P>G%L5>p i>=T9 (T.40 VO,bBLQ\>wn,3(Iwi|G;ka> xB 'U,wZ.<6[nI*DٳG=W =KڶmC|UsT4饤ˀz_ k<TPPVK'MQ&K$@$ =le sXL`~J޽" !`),U3lCg%8/Z|(}ص_wE&@&U ߉$BJ}UGQR-j*u8h-EE~nڢq%!QGICIy|wv}f>}nXŗ*2%t՝b͇+ pz, \7hvfG͚H&K,D㣷Z+N~'m"MO}RK|aҳg5 h_^at5^JHy$V@I8+s E]w]P; `Aa%᪟ǧ,&X*{\ :{ fXA-Koh̉ER/xzⱟX9)S IID#\[bm%IS5!)ɒJ?pݛ*ckē_7pԎ}秚{n2wϏڼ ֤ y[PCw ;35A@v k˕8%)R@%! XKl W"^X!sЯq>G*-@L W 9 (#ʧ_6gܚ~z„\mV/xFt Dem_Q‰vOfdS(sjgʃ,hzՑ bƃNHtZ kqqc<23\w+J|骄ճ[RJ 3_(ǜo5@qCN͓zSʕ $|^HɵzO) g9uID@D@:xo< :$QBjBuj;EƝG7; O1yrPt~JGRQ&$ǗJ6{BZ!еdE a*2E"Q|$^XLJQNrp,7\dnx_(Nyj'sGiObAS^J"YIh^$FH\(0H!OuB|ءVުSR4rDp3dGSک~tliRJh=#RA#?tޱ*9k&InAZgo|UV;3)׹@@*ΊY! 7 DFFB[ϠAmy#9%'qqbn2骔}w=fAJD2# 43XD@D# ^A% 2+N6::IJ&;T?[zٿ˂\|'RSy*V5B 4 SD@D W>VFC{RӷH tN`uVPҤ1cV}/t$'߬t ߓ|tꩅYÌCa8•8zf3ƈ% 寽$Q%Gj㎮&*’g|ER7~$Q4G6)Gn%D?,y%wȑf_ ~\W'PeEv,-L J#E@D@r&cfYXqv,DwqDХ:eWayڊc)F 96i L.k/_iG/{,IkT" h%2Z." " |m7utJ`K(DklsZ_~D$2}1~:4Q*X1գV^OB*d%'RS@2lm'ctZ.I&:Id: >kFu/3V3:-Qpj{f'Θ8Q^$W(TI"6TᖣE?u<)?]v=V$=IͥGZhi@mvJ#I;>*҆BE%O( O%GrbM%4>]B($"M#!z7ƶgMGB|${]lO[ne(/}PE_"Y4+WD@D GrJ+xkYm>rnz£-,.&6GJ&_} dr<)D2bYMPQQS yU.rnyD">)3Ռ" " )(WL2˸D$દf9`۪W/3ռL邏̸ap֓Xu5g4Wv˯-^J)6[sMn$3t)3WJﻐ(QvZ&Z/Am/" "Kws-58qYcl`FG"Oksh;7QDQJIIx-KxmW$=T/ۯi-Uۥ$-g.q篿Skvf-dR@h$nＴ(K/M`;}M,sŲR8$JBq.(fG'v+nȋмHk?" " "8+rsY6ISyT4KKM,y}㉳=1dߏ,7_Ǎ[\|Gۼ;oیPcƸ(T!GH@4'\" " "&J Hʨ[n銯 %t "̮g\#VĬ$%s,X+^۵мFWCŘ~|)rZl]-Pmh3J8D" 4+WD@D.$H#\t?,|#O=,(ERTΈLoY}6ձJs{>ZrI>>s3G>ůʍ]lw coŌG' VaZJD +rgEVEŌXGb8Z^Mw]EiGI&Qdc$_2vZHf=1Kh@9IsnsչO& t bbIJF? d5|]Ӎ|AXEXiO?݌yʬY~'--'I[dV\/r%wD"55@539Ov>}\7Yэ>JxTD;L㼄~+lvene(hy~GA<.n2i'WܟRWэȊ,Yռ" " 5Ȣf&T ϟ{SJt$EQ(nD)%^6y HEN\)誄RfVݪK" 9I^t@I[H$E̗_vnSOMuՕ SN{\y\wm҄r&p_aۓNruRyŢҩ IB٥?l]Y(G"K"YU)" ".Y̤nplG (dcFzoLGCEĕB+VKѣ]>@{Qh}$Rbˍ=/H͊hkf.nw(u])^AӪ5ezH'$: U~ +fkz;{(⣀b%'?6NlϹDǙbFc(i&M%" "e&%*H?a]]F>DrݘPH!$R(~Uڎ$d&_9(M61;YS!я')n+} Zi@nP(DM9!-"ܸhcT}Okm$vw2b:#((ĶFqlG&,EK{SLzdE@ hVd5@J3];0; )~qf;7u|+NѾ?{P;kQ(DW$|FyDb^Iy$$L~ >>%D&^qE|@zR3LbO-rVjxI6g5}=uj,f$N3jκ|)yk.d&bG)T۲~Hg-= O >*H͊ȌJ ʣP~ۻtB"(hn+DžBpT*Q:e|-o.Z-tHMfȀW<)i! `%VND㱢X=$QBrIbݝ޺Psq>F(l3KsID +M+E]R]Bt=M(Z& R1Bʄ'y兿gOAeI)#*2+ e+@R@JXr+?v;Q/vݵrK ׯv2SϲnA`/߷yqKɇH#_%'&q|$c@?<01|EIH.̙#"_X$.}An&Lni2αEBBGCP:P@RQwJB=gR.yiU˯~yYNŀ]rߔ)7%Y??I]Һ% ؍Ղ&a]5\*50PJ6TPi6zq*E!^c5'9ڛK,b0+9_U}s_g5VG*Vm"P+)xPڈ2G([;Rzl]!D<W9yᅮ;HXI"ysG-7[u&"63OV[ouVWZG *#,p4IDAT8#b@VfEVEEwfgY}$GĪ J]Y2KdWmIAS0džMZǢ|2'ȊЬj^P g3I"2)>de7zq!B۹E5@)`}E3WA| )l%fonFrywۭt^@>Y{VO~p^&u3ݚjҢMYXRb-e;J-4w)&I!2KpO믯< e;n{ƣVރֈ@fWAC;?of7:LM!z2Q8I:׮% '.Jb-+Z<݌?)tX3Eyrz^Ě$N>ٵ>r'av[x#+ȏXkO" " 5 .6='>߾$.뮃DGe6lsSՄxS0XC-._X pP Lj_7?7뎅}lxꀢKD!tb4gI=}i' { {|Џ>jfGL,CQ6^n>- q?@lE*|xQ_{m߭5NG۾ɵCmK wX ɦ$IEĒDMrdW (tqf>qW^~%+ᦏ7VXNJȎ?4SHg&XLYaɒDzZIdv,$?a}EM: .pTe_yTJtpw9~h-_$։@ Hm?;m)" "ygIQjR_3~s[@2~U[B5Tq!'6sbk2!ओ\)=M@ hD5@"@}su2qK12:X$|TuWӚGZS*.o^"YY+" " r3E0Z(p(e"]p[_}+^n J&8-`YoDh`ږR /m>q#R͢]E@DA mߘ}咈+&.v.~%$ȄHF<ȆBX}}:K%^/."~R@N[dH4zwI+Q?G37/`\u'%?ӯK [+Mo[r1$Cѹd+^}dQB'FsNKz=p ((܏e5+-AD =R@cD@D@R&@/x$<epU ͋.rdړG30`&;\W8E+H;ω ]PQ6۸u/)KE]'+Ҋ]G'JVʓNHȊ@&ּ" " "P/4zs m7RǓrnJnj+#:(X)I$FU.U/VqHB'j̨#kXT!,Nė@"YU)" " 4zG7 >k'uuN5M(>{:,)_'堐 /t~SݒXt)Y*'T"YY+" "P7i2I{kI zd^R7W͞~)y$%QŒN>2|$u[o3) J#5QDrQnO"\ϨGrKgq(KKI8O΍Pr/-ڦ#ʺD$ h45@}ttJBF0KrS_󨣜X6~R}D)VRA $GH"BXSQD#IGc4B(]l" " "=jnb$FXN}$ː fywu}yfu(Ŕ8MbRGȂ?L33#K̢'Y𥤔owzm;7)ً@&RDL!a!駮mu_'r]v Mv BѢ]Pec<_sM׹7$OߞNJģb>@!OPdA@ hT5@*7n}'hx<^}I'U Tñ-lRFgo%PQh2L?O)a G ;߉^%?g7{t:!%~vRD@D CUN٢W,숌NsE}{1gHf5\_EEh-JH~v+jXRlNK# 4?ړ@ GUT(Ol+?_\ ' :2;W)Ց$jBЋ/.?ʧ)[2N83 H͞ " "P,d#"R7c̶*ݮ|Ol#KiGI=1y EWZlpF$+tUB9/ÝsU@Պ3w\)G@ h9*Z&" ",4yr'mpjߎ*:a%5 '@Q@>،rg[,GP 4ڇ7_+S=SbJGvE4>a0>W{7uj|ăƂsNq'IV(ZqF$7)yD@D@ -@,,q`)];YdAHyKN@D'j~Rp,nv iO> :Up﹧EsDOz| g$f4_x}5?jﰃXQ{ _rI^C+H4ij.ٴi.Q&^h^k[aQY~-ŢWO{d>@^G@.qV" " X~yz#h3>ٖ[FK !^?ZGH,i<" "  Y{mFIxor-W}\־Hi'3.Կme=5ψk-bmҙt$R@;һc("@x\:u@l\(>ƿm7ŕvk-dR@h$@{%)36j_ŗ ix!;1hРg応o馛P_KA/cEV V,A7@h8D~Ξތdk7ۨ6rIBBy<,y4=S{ms ,E뮳_ RO*]t{?mND@D oٝwQ3بنNLCZPBbvNE.Lĉf?OGCYzE|s~Pa> ;vygkc1n8O[n +7oJ`_|q,4@#@o4[h!W?cu݃bvg}]_?l]ҕO/ʳ׶^'W$j5h+DQ|dA s{A1-,T]tE+A_믿0뿻o nQ@>2G\>CIO@ S4.>Af7ElZ(V ? "V ﹏̙ ?v_sMAx )3}frc eB~ [Z\K<?l%ͨp%NqG22haf$O.+I2W@'Mdz O::łJ\ )d,\屠Qlxq)~-{n;6Zc @o~pś5~y55>7 *#M6qCH"]siJGusf\

]YϞ={Yf%\_Ѽyh%( R% 92pXAv 'ءg' bn;nML oAB|$ /~GIኀ ?y~YH0-b+5>I\"[?n$Q\>~&_7fkɜLO~bӟ}.ޒpo7V36vnQ@yyG(Jz9h`Z+ぜ3L1aKs-3լR3~|2sMɈ#n{ۓO>8 &؀B AJz G9xs,Q&W=bՐ6ߩpH=/-)S,rϗ5FmS%(l3RYW|}1CQ@fAUst4͋5+://zˋK|-Om<(CuEMh/Lg>=@:Q7 ryo@ZR4hTVPJIVn"A@ $ f#@r'!gzGHhN;YP-pD$ 4MKD@D@˚|MK:` 'eZ6)0;0)ѡ@n^Z~@ZrwN5@ڨ[D@D@D@}t" " " "Ш6;% A84*)E@D@D@DA Hm7N-" " " J@ hs:nhPR@a@ڨ[D@D@D@}t" " " "Ш6;% A84*Ga5K tbM"Z -{|a=& Nm^wa4 )N8E@DI 47ki?V\Q燐HFI`矟oӧ96_&M2{y_-c4)~hE@D b[l1ˎ8BnF3/lLѣDǟ7)yD@D@l}fܹs[D ;}|3g<& tAڿtB]_+b]βNgw'Ѐf?<5k|te7[G8@#-/ѳetQ6-Yf緭%"iJ hJ׮-6cل f.;vqm>3DSKmX'(" -ަOb}͞V z̙3^zYmԩ<]d9?x' kV)ي@%зo;-|[*@\ѷ|[xaO>5=:MU" " " " >S(" " " "@@ hHjFR@h@T3$GD@D@D@D@' 4}QD@D@D@D 8Z%" " " ">)3Ռ" " " "  &* ti $ig Ν;͛>;tb]v/Қc;[ -Pc5Htk0+ & HݭK.׊x_0A)Lϟ_{Ϗ VvW\'yrJ3W@'Mdz*Yl>+R@?Ccy$}mU(?#u$J.,@?y~qfΜ) h-ݻwhĨ#)i cӧOυ><ޕ$s |ai|P[ncB{WZ1fe _/R4ZɺVX!z>.E)J<ş1)~W"73׉]+<$zG)L">+:(!WJE]+K;+% %D=$$#FOZ88Bٳm6qٻZC~x1[n92Gy&J1z:݉4-8cZ/a;[) 2."[gu쨣#8"tS88pvm%3oDD@D@D@Dcs+9uT[|Røjf]?`#Bw2 8\`Wc Flq|W=w@.»E0m|IaV%D.p]PIrF;|2Ņ[9!]"" " " "2ml<:z HMH$ 4VM@ hD5@")xRD@D@D@D mR@&D@D@D@D@ HMģ" " " " i6Q'" " " "H@ h"Hдj>DR@h@MT$G+E@D@D@D@&Х%'lvAN][?n6[kRC;{8 ;v-u5:t=ְvF￿ v%tӗ4a޼y&=>M>u4qZId}4 %JG)q@'!ЭgN;3݇&o|}w'3Ȕ/^+]F)&ݻ7&fRK-nW 7* H^AQsx _YIJ>S{lРAo޴ TW_",bku%\=c 7n\|mE9|χFmT}K/c#YuUm%_\kvzl\ծֿmNke%'|кeJk=i.˶[TlaexL O5?>~_fͲM7y'ʭ\|ŭ9|XcP1e]G$:˹s1lA(,Zkϵֺ4,keڴiv9s?7Vl/x8?x`x=ig϶3<ӈTfwϵ wy%-q-ȤqrHKP/&P>Zve_F9 $]3ꪫZnEguVZ޺NO@%h=:gi}=y7[=eֺ4,k%~\sMy׺hk 9˞dwG{;qb@+ov"P)ŪT*Â{s2,c.Sut Gm|pbDzm~_RVJ䭷*jBP{L~sZk.jl|:<)'xbk>O>n("{M WZJu >C[lZ&O:zRiܤIW^E5 A\*]g٣GxUGSU8Iܦܐz۵^*.&XCq#ZAl6rH#c뭷^xk?rfm*~4%  &PDR,1ă{<`[mUh[=67ZIJֲ#|fevGVph*I9;SB7-J2I@5@\ &W@]`{믿޸4pꩧչhѣG|'Yʶ+P |:aئR&|gt 2."[gu TM(o}cz!, Ch^4?R#Z˒VKp\aQ^IpDu*mO =;PD}Ӹ"@r1xJ'Y KZ|>=|Jg˝|HD 黣kVR@k%" " " " uP h]@JLE@D@D@D@" .|XD@D@D@DVR@k%" " " " uZ>m," " " "P+)xH 6Zid@`ҤIaךG}uzʎ>hcDD@fz7u."  K`饗={!b}M<9l٧OcDD@:!5ӻshhg϶ 66h}ĉݻwo@))DZD@ c&lZC_z%[ih" " YE@D]zmX<͛56N@D@:s[la{g?[nTDSзZxu" @γwyxP]c5e{n#QD@ JE@D ;cƌ~vw{o)Ǵfes," 93pND@D@D@:;%!u+@/" " " 93pND@D@D@:;) @ \N@ hgt" " " "3)9D@D@D@DٯL@ h;v+@/" " " 9C3)IENDB`ggtext/man/figures/README-unnamed-chunk-6-1.png0000644000176200001440000015107114310625352020500 0ustar liggesusersPNG  IHDRz4iCCPkCGColorSpaceGenericRGB8U]hU>+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i_@IDATx]UE?ˢ ! ݍ4H( )ݒ4 (4"'2oﾽvXs;=3g8HIPE@PE@xDzDh4"("( VE@PE@PG2nLPE@PE@P"("(e@)"("(2ZE@PE@P)=vGkTE@PE@Pl*u Z("("< }j"("(nP-4j("("0Paa*"("E@PШ"("(@@Ї("("e@B"("(z_~kytUVʘ1G7\v ʝ++UP""AE ?|֮.m[է s( N9G_Gԭs QGǣ1g`5rډ/FMw;Օ8{1k5ekA] *H9v~"(D|5a``i%1csH7@7nF`1󓘥? 42էwOK%gia2Ȓ[ ӆ@ UX^; +Vo/Ҽ׾Ǩf??]%ג8@ u@ťe7P/LK}鳖ꀙ}8-Ezu*JY7I+H{Al!b8<3R}QE@B5#z ɺ3Wxg1j^¿+]z  u%yr]$82eϜwڕ+S k'=J$t3Qܸϊ?+NR% :S)UHsb& mUJ|`# BCfi9K+BlFIo8L0> 5wfF{K? j ;Ejz}r3azp6L y>gfgpx)en8-ݼxǤ^=7M*a%벯{L:̷ng8]xF$ !H(qN)ȗ/NP)I8o|6MJ1ÏTWRE@:B9 6$ B$pNW².T:֔!}pf RHRyx;dz !aKV€v,Yl⬏f #5x8fBsN);5L$: e˚l# 06d=É%^#uq2<짩ӗ9I67<y|5mه*ϿFIXR'w6Æ#NsYzYtIo~e„B: lcҤN.&AWO)N/:aHR#^.vѻIJbKU쎢  F9; Sfhb| t%vjb.B&`(6'ɖ<|RO0г4z _RdpH|yqvwy>1$E@Pj(31\v?76Ə0D|/o 0dsTcR LXJ2gNG|3{Jynf~C$`4bHo iٟ.Q&=$,A`@S'Cì'OȀ Ifya*Ԙ7`>ʦ#.MI5>,_k݀nyDbW=nc6+vϘ08z*_=$'3F̿:p3*DGN48*ʾ(:ɌzF$F+]ZnbTh^QַciNOV>)qrR)SZ3;6a2nb>,& s /m !KgxLYRU0qߡ@(_ι+"x@ tJQTXAjҢiMHb 6|#aTcYkljRKN0ԧS;uv}{縡ùQ,.a@K~('(f s]bI̻p:0qo:$qhVt8g/olF0"/c8\#FD uMz4v\`tm%&:6LPE=}ovq`i\D$ߞ_jڪDyrNO||n+!_8O7vy"_RDq]TƁnS+[PE^f#g@fcxs !y(vB>qm:ebYǹ|ؘL R1L5o"Dk<0L4Z$nԸi?0/}[/F s}_gHNWPE@(=ᡧ88:O5#)ʬ+#{qhǒq!"q"p3;zs)c|;v1Uƍw2,O ֗|uxіNT>ik\Vw8aμVsMѿ\\1sh}իHYK;vJx7:דJ.|(Y%,k=} Ȕѿv8ok#˯1Yi9߄m{m7GCEI:0 Dy#gȕESr+bvjiw6ݻ!EE:h@* ֗|ufOΝ&.FΔ=|t8i# d䩟xfnÞ=wMЭ'_X#~~Iov[;zs8Ta%."%,k=}D<_\65 E}ݒ6=d<gy6` ]rqQ0Gu~0c +ny8+AvIcpa!~{ Ӹwgʘ&́/yKM&􄗝mR{j(۰ /cVcgipvx:}%|(S+lb;<0t8`0kw#O'GXʻ6VbWrW6p_7qcޗؕ أmKqg0ǍqtMVR$ObqM5"`܍-ZÙ6c _g[5oo­~c(.hGusz{y2CmS8."7 C7;XŻ[$Q(R )B)U "}Y:tu:3>.Mt3TY*RT%)_r!,0 #Sg@Җ ЂO׈tY+ѳ% ן)!ɖ&*ӠS^VVⴖKjFc~uv?Y1U:"Q%^XT+yԴe!'SӲJ~=zg$q>iҤFj2JrVܱtn~dzþnW<6hړEJ4CyXڈ!y V|o,uğ!{j[A)k4k.d~+ aɵ`&yaYɋ2n3~ykKi a >R*E[Fׯ,] @=$/.uhas0B yA3?_"pqww_a rۉSȽpǍZe^<xtŤiJS)Fa>4´άiW}ђ/%Zwm e+%uvbS[~ҖnRZ_vH8Q J&~,m5䶌{|v~} Sa9oJ?7qa&M]h9t ~QWcf>#4+g+7s6\j;.nYW8w0,sa-y@9-l|O@0* 0D[G#1`H?hӏ-_ V AU{+y:r4TBՀա8 Kٻ|"uwq{.x; ċJ}қpz.IQX+cp%[gq[g/H\0fWID_d+Gytyu?P}AGH+hSeU]0B0\Âz{ou7%"h7.E#FBRlK,,?Ujv7;Mr=Y+~qqQteĸ/CgaX1qYԵ9V ٸ Uv;pysPwN1chٳft|uce/VNu$c8-y3[p]cۆܙCks\+Ǟ|zU C)=f뎲 e &rΫv;lܠfVQCp{c/;*/.שgr;U+;kެa vy SKY L'bb'.K:cۆ} efG8h(kßNnk۪ږ{%|ijP+S136ꄯ *Q@꬧6nQO׸;jT-l8ݵ_;߹Del/SOoiOV\2_ڷ5wh˨G?̟KэK;%rG?RJi[d|_A}D?ײymG=9p߾Mq6}kqT(WTܣL3e h7Gu-; FGu%S:}/OxOG7~ vyreG,_5عcSikP\Nߗtn!iGhy8 ipowOء "Gm1.yF\ǽ-(Z:Z)'ob>ZvEwk>>1>=pԅo!|g˒A>i5,o_ KAc]yY;tN//k=Ll3O^+uq+WFSw(3F%7oc #yW=xhuwTn[]UPFՅ; &+[KԪ@Y3giPUb\XRlѴ&+]^tRQ(/?:: vzy۫=H M V<[/^0aF+W6Ψ}5KY.YըVJ,(a*Qs8L` VJ%a*֣[+ŋk҅WiwwB?Β|2+4t}4]=_i-P4/̚6X]O>u@ .G$IrS|w|pa0qN{";}Bi"w0/Zzo+(Udn7G;ou!i٢㙍dOaz6VrL4zD?N^ާ#ȞI7^m,e1؂fԲya u4_JϗOլSȝę,YbZl2ծY>\ҽ΃BK"r;sԯko,UqZ/kݏ]P yzg/p9-)q ]`e`Ō nY7.ARRFrsZmά0zO7 kg+EgM|_ԥS3޵%M.u EШ䦮EoH!ehcza~« oФqo ̀u_ә·q i*y7MXDO8 #QIA<b4֬J@}z#AIo,_ie|1>{l'u?iD j|{U;z_NJV~|1T tY\M_΢/VM e@.^Y@ 9/[8.+XX~{KTa^SJN=^i%}$1,/WҤ^rZ6̪G3V {ښ6m-4cc q>^#f]p eʔּJXr<,iշbɓ75x#4D ƆK;',)L:M1h#5N<>](Sʙi)m`LytY@E aΤ:5+CF (,cA?rŒp =+;wm <0*\(y tW6ab rE˪xA&;2O\ w?ª0à#gʿ|6<~z*R8,`B/D]&L0Gf0 4;:njhTaE”%sy^9$a |7bƍ&/F,yw)'<(l>Ѩqs%!AiWۤ3ߞݙ!sBZAЧ5=GYqy+|/`P>v8\M&S c%!]]1qgLIqu^rnq[xB+vΠJBc"`ˆNχƀMw3 LH9AD#Ō@+uq3` 5z-sIS$l0&м3_`x ]4a.IDiҦ-) QHйBgBC3y˓;KJ[zYk0aޑW^) /@ϝ;k0P~$PvaVl$0vhAXkh߁cԳ{+@"54W^ anuOE ?`z!}'?ԅ|ٶ3H۱$yĺ]m:ɳrrթ:nn0!q&.Om!C@0Rf؁qu%wuM&=i^*'1-z ac)L"<;r׮n=10ߪXpZaJa]ټ'H!!3gW:U yNV HE!i˚%|l=a<}2{cH>TvosŪ$,=i#K a7 `MlD=H9] ^.=i o]Wc/ܳ_ $&[,n XJ}'Cp@&+0fxi2i)c+'n?С#̫}a8φ/OF&y\x9^"V2c0jB'L6rqC=Ž]]A gM;oW{!uvZKU;qmX3S&sHC/a:wyD%?c1ɒ;%\a%H,MQs^V>fr@X/\S"e'fȀF ;u e^(/WRZqg6:PtXmhVu!#;/p^H1g) lFɃLفC'=#Lw  }y\Y% ,qa ;~V' ʐ7Pu(0A`! |` 5frݲ;{:ٍ[v )2#Ot6r)+U(.i00pm_L(!KRQ"qu=(؃G@F(3W |b3oNvbݘf]CkcU+df:,A#MϜ}w xfi3e\aB4n|uNsN\;Q"Du gKvk{'/gzfiՄ"}Axe౼c05w|7a&,Wi%74[%)V2 Xfk3{fUp.4&V՝/PxdSiģN*P 3~ӷ(+=}ldٟ{ jR 2YU?_ŕ {^4^.-tJSϛ{ouwkyv%я\Vgȵs'&Aƿ-A_0}2Y0yoc +}GZ;˭8w ˋK,+bE7n{`78vw]ȐNɊj ]90HPٰ F ;gƒY%`5bH9<#lڐoxw*v$~}$a:ԔXPKvPΚ֭Nǃ4AdIyl5֥zEK|LǍ.KBmٝ>q["}w__,bԶZA,\,cҎU*o!,>[45Zv_3xH %!L)vs搉X~p|U2/Jڸy9#毿.lyjrGuֲN7>)t q."2<='&` 5E0k[8V` 3&'%@gKkF:w-x9N@Ezq銭@1wd׮n=1|Am؇3+KLax{!kr-e?&xќ!D~!A=z5noG?D̻51Xuɻb5@o_xǮπ]|#O鱆o=[]mnW^VwFML{QmQ7mn x/X]YP}l8 *J?8K-8 A!o|I.$<|N8=ۨB gقӫ"`e@qʂ"! + +X`Mv҆hDM`w$/ѩ]A}K }fN|BA\T#Mkٲf`5͇1$k E7blzsTI@P3E@PE@P h7!=j"("(1e@cpjE@PE@(KEӤ("(@ F JPX]Є &_ܪpLGʱ(88nq p;ޠ'2Gy:X9 rpI8>_ew<2=4 "ԏi  DGrݟ|C_duLz^bredr}Nnμ8ܽD.S[1L&̇ IxF)z^K=5QvOGxp;f@ gvz?qgrLpi Sϧa3ApE+p/z̚5G/kk}qc*. QAc]E.S\`8[|YÏ5#`<k&*qAɟ]z]ͬ˷] pؼ!k8``.v鶆劅'[;'yU yq{aRf('5pO_gҎeśC^;X"AWI7,l=լ|lx?y2Q{7NxcK j6~/Ҝ;05ɋ~ƪ@^!p<3 1w4 ǁe0[lEX.#ǹT;DA)-įq mP֚GI@ 32U%wφ'9.83T)!L?H^~ .WACJ̒s/Kj}i uBKЊU% tY+ɭZƏq='s>s:RZWmMܰ%9Vyk~ү)X_E?Xzt&Iugɞ-YR!۝?d $KS;g/#` &oعLq#~ܐe?Oㆷ2C,k7nO]ǟq)玼evKc q)Nxcqgdx_tsLB (^Ң2;p].ې>\۾r 4NF&wOeh/>pCet \ '>;[ ~Jt7bhSeGM\JI?[O{5_&G/`2߸Sv{q _yHHp +Op=ǙL/8AgD#{Wkh=mp_%w/ݷnCCZl|uM X7yԂ1%] fn.3pXN/*o岴稠X/5Q@zjb wP#(vՉ+f"7gy4]Jc^r 2`f7U EA;R@xe+T+E'r7S@Z8Czs8avB}Bՠ^e4zD?b筟?/ѹS[f+_LfjљoA_oծ(7:k`zd:~` pk8 ].]*zg@Wo8_]u>{[XC_Ƶ3ih݆,H@S&#}s!1nk=?Y>ENVӔ6n+3xЧ_wG ?;pGwi {y^R{چs@IDAT+WSqڴ) _nh'eK t%3}R?gwq͂ܵY y\cո<̏=y_qūܟ چ53Yh- Cؑoͻh x:b4~ԛapգpia=0n(ʖ)B UqFnaEQ^ 5mT]fNGp`Ȟf@o2mcƫWCnsJ/oLU*NnliӪ5saF}ndTZ*U\DAvaq:w0aİtpMJ60\jtBr;v{~q/9nd ԲymڽS@q?qIY/H/5~w/:FjV&urc;OZ˝Q%YL:%=G5PdNOtԯLwY;ևc J|z@LP,/E73Sf5( S8У{* Ǟ)5sݏ˝XB |Ԯ@% 6aX cmՅ ҌqK'鰽~3%=cctH%8{X#KSN-x: hX>A}_;Рr f&5)y/,0<2QlI"޽vTZl*Z$LGתQNTY"2n+3wiܗt:^M6WܰmltfOc:ӻg;/w϶{<Ɵ$qBs@#y?5jP ߯~㏹/A5DПH M V ͌tO%/;* ʮ(|*넆VS\σ'W{0 (/$]HW(69i߫Z:MJq6;MC_=ԔX:#̑CꮥJڶq;^=,]mm3}1Ch_gM+ޭ8:*8.YHLŗ>ߗL嶄uR䋿L f nCz  OǗq]yJ,ݣ[qnGLTݍ&)2d ƍ_ ,u<6a̩hC׬I 3{jK ړ+~\ok1fvO_0^ȃ`ݳ^~rYGCŊfUmؼ xo<%6nv-o.LB9|[kNN'N|O&̦dI_ egNC,f` _%HoG v?)hQܷbCah_7XO# Ⴌ(۴u kj]lzux ~+&˒X>8Lab[N>GV?_{}$Okid ޽ RLF0M0{}8fG}?̤86'J(jwd@ ]f5^Oa*<æw7tt(Vjȷ7a  +?Ab%k?.x07I5~w Ճ_X8"'ovӷ; gl4qxz8bu92BWb%tB~t^OOOǝ?o}rM`Am [ЖѦѶn9[<ʼYh̡47EY'&ߞp"0es ;K>![.Y0й\*VHZԡ~;''n;eYɻo![JsN뉲s^\e',cqvԌR~tXL׆H#˟/'/z!,k/Ԗn !!_dSjR^C-բrg9Ni3^ Y bԣ0<3o `iPNU"TbtP890\̼@J ?49bM|+첲q-.-فTl"DYZ@z)({FfpTܠUQU$g!#U0+/2[vol)^Eʐl1!}d;q%Gco`fACIO}^٨!{U- %q#Oɀ5nOYtւyxۑ>[p."*,?~ΠI2a9HW2/ލw1%ɚoo&`ĒgC3nK2FiTĉPr ?w-ٙ{-"y6! YRMx8Ee{9@ÊD1ۿl2AJڏ[?<#Z3 =NK4 &Lo,CVUb^jVgSݦ[kA7j0)_5 %nR˄ =%ixcu).1E UE@PE f T3v~?fC >([IPE@PDf@qsӾǣnb(^'͌"("<~;߭rw͜qϬΓ[Oz<a8yzVܥŝ{9Esq "("(Q@P4p#kjݡ?U \7"5L*:c05hړ$/NԢ,|;8U)*Wyq܇^J;J$-܀މ,TլUrZzkuwq3om[9u7[U;-IK#jboK!C+Vm&H1{{\iAIREk^[ܡ]~}ߤ0[HS}SbWVyN1'l:=xYa3h %,z&/>3'i9tj*Ko ԫLFG_)ց9ݼ?m-!9p0wEu_ķbhZz Ol|3Lfo1S BV7`Qݪ}?Mܳ\_Ό0"]|˥r C"("DH1nW:3 zd]<۸CsE3^ 5mTƙVܩޢY-W"=\zG[jC~tɗ¤ժQoEGwQV{[K+Ud8ZD,SrEiż}Kp2}di)=$v7DZ'ng&bg) e>t:+|00a|jP>ަKTs3*H1"HZ6! i&ÑgBv'J_ <Ò_*)"("B#Q`)g5%FKfdƛ2 rs׻CbK/O.S$=&ϗO92K . DX \3po~mtY*VE&19#] t,]1T4h404\Bt9o.BG˪ TVEӫ5c j 9ϲ ލjܰ*AW4c2B>^iAwlW3;W6jy;q' =V0IyӶ{h2("(@`V ]JCM5qq"芦I©{C04iNn;4Н7?GJ_QNXJׯJ)S&] uu/iewR?se*Қ A<{ |XwE@PE@xm#%5&Mؼ{BQ7w &Λ_k^֎$IYҲ;#ywMw.potWU2j("(A :L<O5}4i,"("@,:WE@PE@xXW hL/|͟"("( e@YhrE@PE@(KX("(@4C@hV E@PE@Pb:ʀ)"("P4&GPE@P215"("D3<QE@PE@xP _E@PE@P(}K("(2O~jE@PE@xDKbO8Aׯ_ER$I_EǏTRaCPE@PE!c7xƍKSYfѸq(C o>:u*ȑÉ2N(EPE@PG@`@ϟ?O;Vi֭ԱcG:{,5hЀ:tE@PE@P#a?W_.]Pʕ?C9sbŊQ@@@$+ , *Dmڴ c4~<L.<󌳎| >%" v+V,C 7}hH $Xx`u81 J  ͛iԨQ;wn*[C `ZlSR*smg'q]@ ɤE Z7¶Lhn #~^h #-3!qP,O<2d!  ٳE?k׮zjSJE`ϧ&Ϟ24iRu''O]dɤT容VE@PE! c^#VE@PED@Ч5׊"("<6}lkĊ"("<(tZPE@Pdž2 zXPE@Pe@r\+"("Ы8Ep8̙3LsXtrJPE@P+ʀFגtݽ{ZhAΝӟI'O$IDTkE@PE@@K<}݋N.ݹs)\0޽f%N8/_%gy? C`кƎ[Vi_FhJ[.khfLf?$H-*֭[6D ~G:ve̘&(UTRW%IRtѡ,%K&RZ7BkeDW!`1-}oţĉkx'FOx"U(c' H\[PE@P'e@i)ō:t@x²{%(M4H"("C¿"("(1Ɣ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀƔ|("(" RPLE@PE@Pb ʀFt84|pʗ/ȑ @0{tRʛ7/eΜ*WLÈFTE@PE ÙcCcǎeg}=34tPٻ6 {AlPʞA!S"2DdTAT*RJ)ĤMGHHf<_hr9{9sldÆ 8q"Ξ=vaӦMȑ#-vmP(@ X!MΈ4 >e_;w43&M2D\xMÍQ(@ f<̳eʨS_#j}q[(@ P Smۆ[n3<<7oɓ'Ӌ\rF%P@fcǎșЋY:uln(@ '`L;v,V\cǎ_˗U<ԩS7n֭[g%Zbjt뫂NiA)SPB@엉(@ dS4B:L=sLu]/F=fQZ5t DHH2#44R+IZgt⍧X!W\ѣA*Ub >(@ P'hR'(%|a 4H]ЪUyR'y>}jYy]lY4nX?+[֫W/Kkj?J%yΝ$#A^;Ffu,oܐsCwU>K߿?wTܶlق{O]^_>nܸEZƛ7o~O&MЪU+&]>pY ._%aG-t!z$n湑^aA#1ғTh-РA̞=[]v:th_ҨdǎF^j_HXDGGbӔYIWYL@PPФl๑󃻻;’'3>**ʩ sR$CL`yֽؓ|׻>N:rK+#88X㘲{!,\K P(NJ#R_ݻ}v5\B[.dIvRmݭQ3(@ 8S\E;w=ZRIC 1t$HDL(@ P'={T)or.QV^:q(@ PW). MTfW_ P(Nf/%N P(`Ps (@ Pڌ(@ P0G9J\(@ Pf @mF Q(@ #%.C P(`36(@ P`j(@ PPQrC(@ P05GP(@ L(! P(@se(@ Pl&f(@ P9 @Q2(@ P6`j3Jn(@ P(q P(@ 0%7D P(`Ps (@ Pڌ(@ P0G9J\(@ Pf @mF Q(@ #%.C P(`36(@ P`j(@ P@$-lkN)ɵk0l0\p˗Ǘ_~ 77Lϟ'r#..y|lCGs#Ϧ\r!666y ?㹑|s e>^U$Oug]a*1MGG~C>>{F^xH`D PUzG-{ڵعs'54HUE(@ P:QoܸY(@ P yN\(@ PF @mP(@ '<'.E P(`#6f(@ P`j(@ PPAr3(@ P 05ωKQ(@ H  P(@yN\*?#::Z ;ZdL7K P0#UV8* .DHH j(@%x9vWaÆɓSOI2… vWf(@ 0%d޽{gg4/(@ Pp.u<4i{= (@ 8P9Ww}9s&s熿?Zhpea)@ P0_ u$l"PfMܹ˗Gѯ_?8p&F(@ P_c9{ǰ}v(+ I PN5<(@ PThrsg(@ P @yP(@ d,(@ Pҙ3gp%ԫW޹sG5:2(@ P {&=z4riU=o<3uQ̙3eʔ135P (@ Pr@3,, ˖-SүUTzikN1!(@ P@@+U  QRb -[kF9 ʓ~ W .jQpb$#yxx`YFlE,is#"W䳃x_\=ɓGН *IgM)G:L97S3nܸ_~ <;tO Bwwww̜9ȢrHHHPӚ7odD P(hwޅW+;Uzy?}E6mTo޼5x||<ڷo hѢh/T&5ˇXH#.&s֭[A>_hU?^qm+H k׮2ސD_eDOa8q"Fƍp@0 ()PLed{g0FG--==Ă-xnP=n8L:|J6>ž={Ty%H@_ P(@,p5k֨K`#F0I1rH@I)IK &5.^nHYKj(@ P Ԕ)n:W^MoKM˟?Tu$>s8{EAu?=m<22U(LS~e4zxn$.+ =>qeg(rO,_u 9=Y`Pol8@rpAM>_aÆ9gaY* P@6 yNYL~H^nT X*pe ]'_K PJecDLVf}|-.08+*^>{S,pKpiW(X |IsrJ֭!w1Q(`;\@(P N{-pb1(@0y r Q ͛7#11Q5XK|&(@ P9,r?((@ P'Kg-S(@ #4N(@ P<g-S(@ #4N(@ P<g-S(@ #`hbBk]0Q(@ 8]7>yY P(@M2۷h8,C&|Gpk>(@ Pp|K/u7FtÞq}:h4(@ P am>vϽנJWq?)(@ P.`71gΜdS/][7,ʅa̋H٧(@ PPuK0s qX ot= _|(@ PM tthv:=Hk{r vn*BXXÇXf ԩc9ӧOǪU=z୷޲2c(@g4&$3mx) &wUvtףf͚9ݻ7on|rmԩi|B P@ %x)E3CT!҈^u3<֮] OOOO@֓{gbS)A%KpݬA Pvk|=FNm n\ŃeF>IϦt%& PNnPitsr)^<+W1///+XH-fṑLvwI>y 552:nMv~ ԀJh[oEˎвC 30L>0%X{E@@֭6eoV,SJ)yd٬(CvGULn_WO}"LscuK;rd7hčw7K67T3k^\\\fmڡ+2墅[ЃF4ՑP: P= ݹG~\+ΚT2Zi 7Q(@ ؑԀ/:=U4bjآi& P(@4v@Q-V\i@ P(vͪO6 ͰkcOhL{uI>͜S(@ =r(V̟c{aܷu+{4ų'x(@ PHnPh΍x+,cع['fQ(@ P&MJz n1m7z籧(@ PTZR |6c vm 4k.\ 6~t(@TygNQXi62FhlW̕ }6,6ػBe]PV1%h|dKz޽hٲkN)7ߤ)~id8plo/A Z@ƭsV.x~r,\^^^-\Lw'RdY9(@To۾)sդnlu*"dڵäIʥՄȑ5rJ-l`0ajhߒr~K?)@  ZsG p<$9wwG(פ(~O[c7Gqf|v~uRi oEu#ոqcHSL)Pre:u5 RSHG&5Q87܄aٍyX#&: Uk7`y+s) ؁;ō7ptq"(@ P4*2>hArh0=^ zBͨk_70<{ˬL(@ 8B.VC:MTEKCŐ[3Ӹx$Ο:eǐ dJT "|mC!5)SŊ!-(@ P,@?h/X${*TʐGc/M/?=_o4o[/ÔWY(H҉~ժU K(@@301s "dq h 2z(oLmAui%ˆ)sKh(@ Pp(Д[i”R=ρ'ěw3d_}>X~%w>F(@ P @ ߴы'/j}w]:Ujc0s`LhELUc%^-%x(@ Pa @W- wDS Xjlt4t0 cޚu.0?zi Kq(@ 8@VAvM">*h}(\1w 7JAy ZĄxo:$idxNK=s o߮ϤWxx86oތ'O(@ P `UZf,ڻ亭5JjTT@㚅깛=^1텥sBԭ Ϟ0eј? 2em G1`5 ޸qn:Dž(@ P2GK𭻾SOZ- (T4&} L~8)=;7bxgC/]'-ߢ˓R.ѣGU˖-Sʗ/UVN:5kOjժ[n8p BBBuD P(VR9Ek(Nݯd6n\r!O7qy ~hɒ ߵ{!11/_V hBCCQT)Ǐo*I0s'r,rq>FéRY?a|nPyn$W$NrsC]+q.ې7ebcQ?hPi5?aPo\gڈK6>tI@W_}U ߈t{Mk׮`7o9s"կj`|3|N^y#"B#ك<7-$>qt]ų*FC?Pt^Op2'ƈ$ .Μ8[ףv߰*5wϟ=2&q}եV4_m 4Zr$( ;Ij'OݻwQ,YyחB'"W 'GҁH~Qύ;w8u-W7Lwe~ꜤLFAYIJ*i8;jW.Y1}LOm~]TyX2ĉ1j(4nXHɐPpa[ДC4g&LJ)Tɒ%!)W\v2%"{sG--3!&ɣ9;$&ә=dt[ cx{2tqQDFh6.ԩS @5[.6lؠ'AɃ"zjuC@(Ktʔ)(@ P -Xڃ6e ȡݗiN"Ś5kp-1° _C Qt$8 ho6 T%f(@ P s @vc4njQѳS떠Q8o*׹UjϜh[ S%JZ. PN& R',1(@ P#`UݲOױyH/I@ikn Ƨ\ygڣAFGQsuWI_ҀBj *c:YB P@6 X:h?4i ;2Jxiیfx B@j4h[oݺ-6k6 <ӪY+r! P" 4rJ X+OL*ͭZGp3Z~ w4{3h5 _0O(YUV5 XYH]婧R4zw1oi7PJkX"og.ފ|ov,EڵkF[;y(`R@nmJ|9?\3_4"*j= Ay Gʇ%|֌o~,E hK/͟?d(`4L=&~Zbu @[v-/ÍHo,şLA=67@{=۸xPUT2O,xHP TFDH͚5x[\NgWнIq,[^޾F:sWna/ a| ؓt~L0Au߱cGϞȼPY,&JnnnYwTR8vFnҤ jq'`Ub8^4 2̅ǵ{CIj[a.#!(QpXt3e,k׮UHFGGc߾}(R[ť˗W^ 2G"`Uz6` jufr_ΡPVm «/T`#6zm2j`΍%)@ P#&itYDg^ fkcNGwpU)Q3'6l'!> 0O(@ P( s&MF Iq鮨aÆX\*5{,xگ>Ƅj9s)Czs(@ Pz i%;@*^2,YP?,@F2]F* >맇_`K w$Ӽ,oGb{ɓN}_AgD Ppf}\T׀zΞ8>/ U0IxI^؍yK7[Ofu}gFLcMw- l۶ 6mt2j(v3y y-Kf,`q #±C{0Q*hL;-Q L2)\E ͋ݻU@sUL/:uB~w^2,((@P[9U;~ĂʥsЉ(XrBDDD`,кukȃS&h6B-Z* H-YN!Sѥ)HO=lق-kUfx'(@g*s-ژ3~EUk==G\]t5O>FR>+W+!tRϟߩPR X.V{"K4X=Ng czz2_50r93!gΜ6 7n:ܽ{W/Qݟz\<72x@b]~˗G-eV#ɌύWpg}"c.y7y8kT*it5 jfjCdR[>grRz7<Н Y=Cnr^jfy8<7̵U]{mm۶]f :RyHO L q๡;3e;l8ydU- ."Bj~8Ub嘘+vUlE _YqnP;ߺu+֮] [Xyn þuK;^^^v#,v%߳ΚT*m}0& j/?Uh_5=m /o_(RBGյ_I7l w0*QpY={)ԄJ?) 'Pv"`Ub r}g-%2s/f;JO3(@ P@'PHuY3eMԼ˗DV vi mgeH(ajtVuAr2KzMv_iBB<br?u*5.zm^_z6rHKXDGG;p)l@DFFn%i<%>7J*F*.]~~~naaa|.%xT.ː~՝_>>>.q ^/2JVՀJIII/v/e*@'!8} 2:nE@EpyLÎ3 P$9w&LիcܸqY| (`UԀ  y "08R) (?>ZMjdnn"Sj~wnBePQ+{xZ۾G_mStݸJmߢqa P."paFmӦ (Qh:_PP}!RʆHMؘ;ZndhO#/ȝ;7~ 6,ebj߳hL]9_}ی5{\ ȑ#"g4=݅9@ XnK,Yٴd,xoTCűǬ}q! P(зo_|7FE8;wl4/(@ ؓh'KRޤUWȔpLvXp! /F,(L2N{f\w&T@V ̙3|}}(@ X,`q-=W(@%y0ُ˗UmtBB:t蠺Ȳ1'^̼/7î?ֿ$C{2QIxgD5*̙3zj4lБR ,>/]OJzuB9$>Z D P- ܏5JKkjQEǍDpp=fy@ XUzIt[]{^CPR U4rs@*1aPo\g3`opA)@ PPR%Oryꫯp9xxx]s3d4/(Ս ्^$_P ¯_Qo਷ѡP~90ňk\Pw1R|:uB6mrJϔi.ktīu3 kb)΢(@R6tPɽ[lAR//\^zI]*O(S_>n 2թS'K>HTdVQ?[ݿGPނ^E AyQ\$j]VΓǢuS.| uOPɒ%;wѣ)Az^(@GVZ `Ϟ=%** O>!_g;PT){ѯ_?u VG4sw& P1 @ô>oT%I*YqȘ?(/THmh?oWe*TC\5l 93f }o>̙3W7Ps4 (Ұ%u:˗/Lj#RRSyݻMٱO?G}dq>~glܸQucTD Z@ ؍UOOk(L<Ѱ%d-<}]MHwL,jNՐgFhڵf(lR:IK=9_wvRܣ:ɽ7rnݺuF8p0Zw0Ao>,rLBEKcȄ;q-̜<8CO/<$Oo~S<<<۶3\7 ih"MRO`ŊnZZLEk׮i*,fLfu^e.]Opaj@W- wDS K_@64t0 cޚ1䓷ڈJ~6,v2^0ԓ-Zf 2%$ݗ.]1ySZjdZ%]` *T)葌|νț7h޼yhٲer(IɓѷoߌsR9”,\3___H&ݻ&lUz;&*Uf #"쪚^pq܉j㴛,+~uӪ/>@^-b<t7b_~5R۶mѾ}{\|E5,5m4èEOge<{ҡ=Q$ܘ8q"z+Wt(X`I{ʖXܹ3$(^x+;@jSVdg~sxLU'e&oS\HF[K|Ca/|^ʎc3d|N$THN4I\ȗ(edHpkCKzsYroذA]a(\rk&9M%mit}ZG!-G5'mM!ɉ!-;IǏGDDWi)@ 4?UV?v!tEyƍ֓pTbM69om\2j@Vs;'W]2,66|ku`q@ }': 7o\E*ḍΐߑ#Gb &_揺MG P Ht$Lpf1s͔`*5!)@a™cXxe1?|ao͗F2^ܫ!5>(@ TdS-ʗ$`fMяN;^<ۑլzڔPk)@ Py&>sPGjڴ-7mP`ʔ)g=RߤI3 =z7VsSe݃]X(@ 8@dd$x Sjվk=cǎu:CEK0w\ܸqC;e|Pi3U 9 [?Z+[? 7W} P H7Zr WWI/bŊIkGWBkGEҬX=.93_x#KKd[xsdw5zҟی}nSJ <<(KWVҕ Q+"O[]rط{3>_P*}3uK7)@ P#PdIH) NSY0aF)`Uh0mt,vYvCצ^$&&7^K^>mj5Σ(@ 8YPNՅt#߅{Fʕl,*+bmO&;=^(^^{iʽ;7ykLoqN(@ 8tגp.(@ Pbi[BՑ~\cҥhܸ pVPA'k[(\1ԬZ=PJmLWٌ1ص[,\ВpY P@ ㏐>/޽kC_o '@._K#e/{ h$=7RNZ OoG⣯"fzFGG:*t(Bw*ztS\(@ P@/= g"ܳSuƼ!m~ JR*?"@5-3{& P(@*=ж 3"#|)+s%AgOEM,(@ PoqB4]ĦoCZx j5-{ps0K@ZԿ1{&4qwѡ~j3q-^Zmj8bbnCjEO;h60(@ P} XUPqs'jk`ИwUiwo]+hQGi>(cڜ,(@ Poj@;}~X. 8!4o[7|F@/[TH-茿[NT*j?7t E\(@ عU5e2iSGQZ]_g*O૟:Yr |jz৵_੦m-(@ PgP)XPx6ReGQ-~AHLǺsPNc|>c꼗Ŕ\(@ صU 4uxg풇6Q!yΟ9u Xjһ'} Q"0GHKL(@ P#`UGnLtЋgqOH>Wn+XgF\UuTty <;|f@ P(GQ}5Dwm)T||Y+III9s&ķZP߀WT P(@*m١/N=V-e8͕ fh]0ϾD,_6& Q $ݵ[,\ϑ,(@ P @l_D}(Nݯ,\1FF`4XỈؽu= +~æ=-(@ P_W/AS"%"'SO*|*b}hx>5D P(KaV鷟L2k9Br="*Sz}j]KL(@ P!`q Ku3\k9ͷ R(@ ؏]NAynqU=(@ Ps X^t^tTɦz 7x xm?rjK1hF P(/Ųϧc۱Y6 m=Qط{3켄`m8N}ʑ#)R(@8x ]+dɒ8q (5jXW83uzqǨ7>È)sl'o?=(oA&F(@ P 2 rk#L޺u |zeviV\)S E߲eK,^3cA8m͘f%_e2ci}M6Q|U MհE'4L(@ P+_ިƍC*UPjU齐1c͒`vٲeӧ|aq*3ϥsg҃(@ Pv#:l߾ݬTDC߿ޱP`9WOۨ5dMk\vI(@ PiӔEJ4ӛ ˹r9~fMˑ6~Dkvnصؾq FfдMz+%+U).(7zxxݠi˗OR)W^M5^ϟv§S@DFF3&A>6;<7~~~pwwGXXXD~(~qaUt///Uw&HPOFӦM!S_pA Ġ^zO6dÇ#_|[g|_drf4|1}, c֛C h>Ǐ'A}0`N:gbݺuy|B PYlٲصk)y`رcfR.oooٳ+WV?4efiՕE?>/ORMk0yX'W֥Esf#6x MIL r/J]ժUCn0p@k P(`oJ¾}9[nڴό@:s0vnZALt*UeW~Ek"08?t!ϙ'-ZٳgCߢ^n|&]J.B>hP ިQ#L<7 usCn10 @Ϟ[xy-\:⹁аyGگaǯء=*,VLe*V7,'D޸qCU=O|/57o4 @?,}0G޽{M_ycI||,v(@ P Xzzy# (?ܾ4ksPظeg@jE?4vg2nojRkUn]lذ]vUȤy0Q(@ dhBd/ƚ?owWGޝ~I. XL(@ P'`qYFCյ{Kaiz7V)QV^:`N(@ PW:,?|>ע(@ Ppp(@ P 0}47E P(9ɒ2Zr$m#Vͭ[2g՝;wPB(W:*=*+ȼ8Ɩ߯:Qcd8ss#㈈@ 'vU/B/g]rnHG&B0-CfL6B*ꢽ~Q?F֭QNNwQZ O/ݻwM6-.*?bڴix9vQ&*6/fa)@ P@ 0cP(@0yKIFC޼yQT)|AG+UD  ={]tիWq4lؐP @y"P(@ d/g)7wF P(ρ'N5R͛qIBmٲ ȥ۷#66֨qqq#!!h #}q 8QM>S6N! FeK\,A@@FҥKlٲj4j+y5s~7lOC`믿TufB%PH0111*/-["G.qMBґs"00_~|JF熩S<صk&OVZAߥaF<7,= hBRz葴qF@߾}:^_v-I/IH҂դ;&ݿ_[re;cXOCȑ#I{6_M5jzx$0oI s?:N>|:R?3O>23"s*~ ʚ*Nu-. /,w yzzbѢESj$H?/_FժU 8w3YB-F@Z/XP(ܻwOrIЋ8_={6J,n[1乤 S)jE4Z3f`ذaf\_>xn\/P=-Z@pp*|pH{d,}@*͛7!]h秆ܓeG@~`ȏIr>,[ Z-zՈC>z{mt r9^.K0ZSoŊKWF<7\Ȩ @3q[,R=<1tP1e`9^5J={UƍF&"sgkF)mۆ .m۶kR#>p@h gs5 SdjJΝuURti(]O@Ft?N:.&ŕ.QƍS#ee{Be9銩F<7R"9ZOMPi7|Sp:72LqZ(Hw #*{8]W` B}\C:K>>>)' Hr`L<7Rj8;wѹ!}8K0sCZfi)@ P@ l?(@ Pp-uYZ P( @0(@ Pfi)@ P@ 7c0VOVCJΘR,2I=˗W::KX P д&B 8t_bػw/%5'-3S-zEZ:}ɐLKl_cķ»gsIǵ.jd7kol۶-E8ppE P YH^VD~)٣ i̙&6-@KފDêUqEާ(udVgyk% t7}Vʕ8Ռr΍jڱ?x`z9prM P@'+Qb.ZS7nX jh}yuأF޼Z\?nT^7ooxIBp#,,dHCq:bV)@\Z-XΜ~u5N3p~mޙ5KM[E[]KAU'S vj{fGh9S'N{xI8bIDz/^KipӾkWZUKbˏ? ~I< Gyyl'*RDu=%~µChKOGs vq𖒤rVZşkW3%_UĉjwಏftuEz6TM[$I)m0vҶdќK-ѓ&4QCtJ)[iΡZNO6&ܛ^ W Z`(F{>*ؚ9mv0&&Z\*>.NK֓4Q T'֫SjiO/KrN϶m[e+T Zz cR ca,%=ޒWgHb]>zrjjU@l{"Ut ^dU+sR" )-!!e%Z/hFP%4Z-v b%Em;谳3l̜{~`Nر|bEFL(x1&'ߥ/#ƙ.ݺ%S%̃А\_oD@E@x=Oݍ4!ŖcǛJxÌ^hԭ<9B~^x,)(,1ui%٭z/9^'OZ!~~w"><'z=W8-,*=Z'?^_*"31{C1KQwLG%Cq[;sì=>xW9M/}n+-?Y + =M M-2 yb0cͲ9~sv_u~s_Ɂϓcq)|㹾.y/(~u1^o 1|xpة;-d(' x>WݕĖ D/@m,QBÿ NqfGs x87"D'h5mŒ%6|>nOӤHm|C)6C̍FN'?iݭ[mM: 0eK;cqs+1z(iN,xt l/ebaZ>xpVp z>7eNH@Y?' jKXΐMM,,2jܵ >zyMi"~gfsE / xEbƺ ӦA:+QTB)]GUUһHA6DaoO9[ݽ 13+tz(l}g,K땅M%2E ' L "Tq3y-G}\/` GL9a1'ףw^'cCHX_[V5˗ycYv?@F;-. >;\r|)61S8Ot\z+Úٟ=A'!?7h,ڃ. !|]U}DBxNڥ@@=zDΘ16 Haz7u 2)r1ϓ6}D+Nw\C5z/"Ԇ){v&"p555H+s+9G gB4+9z4Rz!$c̴c͛6^4ot Xf(Xo<dm@_և0}V{zӒnPt@!},ԝ8}(Ys39MD+2к4ZiMF;֙$Ƥ[XcM&o[ 5EY pguu3{h" W>:SNy=7~oq;x2?D@I@4Uw%" " " YK@EHYh1' x>Wݕd- Ь}4ژēhmLD@D@D@I_Lv`jIENDB`ggtext/man/figures/README-unnamed-chunk-4-1.png0000644000176200001440000007010014310625351020466 0ustar liggesusersPNG  IHDRz4iCCPkCGColorSpaceGenericRGB8U]hU>+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i_@IDATx|e_* wAtX@, "©XVQĂ"" *EC IHc{Y7!&|_)<~3L"u |pX  |hM@@ h>8B@4Ԉ  4V! _|SjD@G@@/@ )5" #@U   ߔ@@ *@@ @oJ  @a  @7F@@| @@ R#  @>|pX  |hM@@ h>8B@4Ԉ  4V! _|SjD@G@@/@ )5" #@U   ߔ@@ *@@ @oJ  &ܹS&M${ɇU󎤥܄Q@͟ӧٳSSSeʕy'oE$Ird…xa9 8KtҥwߙPzzH;ˣd̙!LPe6#GEG?cSwȆ Lv~vډ&jrm۶^_hAr1LnܸѼk歮|ժUrgSNGʛo)[^usn_lR~yryy׫WQؿ'o/_>Ǯzɓ'X@p@P i#FG}5k-;sO>rUWu?䩧2/b3"wK=wHNdf_)@ Q~ x[j% .'|һP2d4m\֕H۴ic_r%rM7y`|g[`;l0{9*xFL et-zY\ϧ{rWUԩ;vgΜ9r7KttwY*USq\~Rw#ϭ[ eyox +]8'oB][_~ٻ[ΌB f:2pРAg0`fUO?-׿(/bQB?_3ZR%38vXٳI[ YK6u\뮻\~vzY^W_mF9VjBXvmfn>`snzY[C^֪UK>S:l2BuzYguz9o߾f|\Y=FҰaCˋڶm{BU:"n: @G^أ5t]c󏍍uL{P=o_V];22ҕōϼp:xuާ< 4hHB5F 2Z4&jQ9-zO7uߚ5kʝwi_*TfSKLLpXlYmZt4S/kڵeMT: kC2fs)__눪^D-jZ4NÝC3>>^222{߿tCsUsE@$.: lO~SJLL FUCCv[5n>WEY:JaPiM2Z4ilҤl֬Y:S?>ݺu3?F:s65D / J2k0_H2=靖2u70erVi޽g~]c#zaTjћt/ܼwuyװWm?Mvxe-Z8zz9S3pECNKijE癮X~kͱos"]]q[>n+_*=owFtcϽ? ^U ^^Wv{KzZhjKZFmF쐩|k@Ӱp:t0_ovs"{3ΐ%KxG5\sM^UXV~}ћJF q:7V۔mGkb@p@؎>#rמ0Z#@5DAGPw~%y;ȢEGt4Rjy77Q/#4WVMEz޽*58vio׺.rMԟ<_ysÒ֧uہM'sMyS[5MPMSo0Kx& 訡]i_vp:}A/ծ][ƍgt:=WM @@x"ѩ)tz!y~Ju>o4ٓuSG NVs0+V[L2BCl!9jsODGP@Ǩ|{BC]vi_~s >?¯ӑh} o=Kn}ڈ/T/Ȱ_rs'|CgO]j _ZOv&|zIh Z_SC>VJuEA@ G?,tiq WH@VvQd_@8SRGQ.]T.t{NnH5  @Ѐ@@ h j  4`:vD@D  ,@ @@ >   @cG@@@  @Ѐ@@ h j  4`:vD@D  ,@ @@ >   @cG@@@  @Ѐ@@ h j  4`:vD@D  ,@ @@ >   @cG@@@  @Ѐ@@ h j  4`:vD@D  ,@ @@ >   @cG@@@  @Ѐ@@ h j  4`:vD@D :!CIJJ;N,$##C233}e $""Bq>g-񒜜/K.-ʕ;ws~8kijժ g 4  /@ > @@ Tw@@ ǜ!  RА 43D@BJRAc@@Aǜ! y {8tX6z 7[Į%---:>;&&Fӝz [{ޟ(#c{@@" @   V@@$@-;# VZX1G@(H|  PXha@@H"3  @ac{@@" @   V@@$@-;# VZX1G@(H|  PXha@@H"3  @ac{@@" @   V@@$@-;# VZX1G@(H|  PXha@@H"3  @ac{@@" @   V@@$@-;# VZX1G@(H|  PXha@@H"3  @ac{@@" @   V@@$@-;# VZX1G@(@tdܕdiT\ԼTH(m/}_ d4YxtͻeݺuRlYi۶ԬYӬۺuO|_tIRRRdҡCU2o<ʕ˱\ٳGVX!7+WJ.]{B@ CirʼvHb|]].=OvL5=rA`iӦIʕ^2rH0adeeɦMd2e~zg2{lTg̘qB &Nhis̑x@o.>|f .=@C ,G@!&ʻ/R,^HfUjW,-iY!$*2B'KJ rG6=" /t}je:÷hx~7p :Tԩ#;w-[m~iU|ju$EMϟ/GN;MZj%/\q^zɓeĈ@@ rnhaָf9Y%I\%ɷ'1Vxrf凍{eݎòti۠\ӡ\ծ ::rvJaar85S9*sFvVnQ_Rr+Mxݶ?Eqoo|kBL-Ybd4_jwZw]T]+@פ wT)'׌Գ=)Ŝ8|VvѻHG$u$J*ҧOꫯLn\_z%SKff,YQ֭[رceȐ!RL m ھaр75#{[1r˃S#Hղڂur(5C~r8/{zwf$rOCϑ3w ^]l.t_Uاx +xf˰Mh\fFY_FuK>jY46[3j-+.h(/jdC&jkyNIyqsn3z;㉋$+#_Ztl_s`rz߾};:1u3wiذܞ{y0>|X/:7V%u5QW}\xҾ}P]Yu[H[30R3sϺw~sz{ҥ?vX:2T_j[WfRrq[ny->uZ }޷1Xk)M̶ؕm§{S"2nuu醽rq˶$KvMjcke}2ocji^ #Fcu5w9UV5cbb$>>^222rofuQ ;dggG]͚5K6l̜9ӴCжi!V7.+B)GElVߜ4CVn>w~sz !|]lf>tuK3rX:x;@g[+iKǼɥjY[Z=[7kv~ǞrFF˲:r٢nyuܕ#uYIҲ^YTHknkWn/mN?8uid[?9iFXg-&LQvH;.=S7臰iӦwӻe-ZcEolJNNի.6VOJW6wAPk߾Q^sNeоVPA8T~&NMITжÒq[> !}FW_S7V`JBBBS_֜dszЧZv< xV &?7^lwzih;25qNUV[o}zcw\R Z2{J88dY*J*[3.kY|Nk@m+VM{2dz ktq˖-Ez${ k^>FI-ZG[oIFD}~{dٲefo&z^zOF  8_ F@y[_FRӳ̼Ύkczj8koftQCxd/k&}9Kͭvz͝흟k挾sro}=ԑOiכ޺~<ǬK_,YFRo,J}̑>H}. tnБ#GeLm}o^vړ>K9؊F/?r.YYp ޽\^p%b_ L5ymerO=}đs$}\}C>/.6* N/(ioOS>u>k׮޷%@ç֣ Ƥ.5 8X hs%p/:M HtBCh  Ay5cY-OsQ.]T."|SyN@ 0O 9  v??  Pp  np  @ @K! n # %,@-ap ]O 9  v??  Pp  np  @ @K! n # %,@-ap ]O 9  v??  Pp  np  @ @K! n(TMKKӧ˘1c?˗˱cn# B ۮ]V.2ٵk =z{L:$3f̐ի*C@p@G@,:u={H:u o-2m4r  (PMMMe˖Ke˖_Z5eܹe@@@ ?h3ҙrB]W6NX@@(PnݺɈ#~0ԩSW_ݻQ5@@8Q7!M4Iji߾DDDȅ^(ru]wub,A@@ К5kҥKeŲn:Qѳ:ɣ^!  @aF?ׯo*ۻw,X@f-[y"  +P/~&''o^_{  (Pvs3<# P   (PK^zI2e R/   @'^K@@X ;oٲE5kf~p.]t;~WNΝ;~ *ȁ^*^~_64#򣏚s[ϼNJJJr۩ҕxwɗ.]Zʕ+'} n^YNo$ӃUJ+@u={J5K/(Ҽys߷F@@@#G5kșg2V   p2ebbԫWOيU  \@#Zѣwr>^إjժf~  (pСC2|A'@@@ݻ QQQ~g1  9 @vz~2dggQQ}H}nr;@@(p2eo󙀷z+4\! (PH>}䦛nZ,X ˖-3^G<O`<=,3J=#",P7ڵڵkK*U|rw'?2~  (s@WtĈNx-M4%K:t޼/@@N&PUV2j(;r:,裏I;wy.z@@T@uW^yEz!]tM6!I5knBA@@ڵ[4x\Rϟ/]v5Gb@@,]AIIIasQΝM ݹs _@@W# 2DxwuuH{/fq.mRw>n^F]׏JX5¹[VQ6=Uv}&u&`j= oTeۿGiߗ}ʎ;z͙3@;|*UH>}䫯nQV ~wL49rD4jiݺ|גl 8[ZKgP]$G3{g$=ޔ2Mϑҧ5F>7>;@j-g<4bkV8= vXCZM^/5Z JJbvzk)#V,Kxc3ڹ~Lor٭y/d V:S/3ʱ49ϥѨRoYO8kްaC\={Hg uk^\ cH/(ݻwNЀZn]sy@8\/d`g]bs&}5m;nDDFJ=Lz =NI}D.k.Wf@c֓-#ˑ5Iݡ~ԑ O3@bztFII.o~n'+CҬLۚܞq)%ilS7"j40s)ߢw:|E@`}U.`T`F9wL#u=c!)~4kFψhM:4;s#%c^2wZYC.f)Bf^:7?)qV5a~ ,/Mo-o Ŵ!Rȁ?Buf_7-[x/z2j(Wjl`Yd9~7۷O-Zdw5,=Aϫc|orV96ݹsgxx(7AAk$<=Ç{( =?tnȧ^q|sҫ[nw{}u6..wD,Jʷ:h<9WGwlVmVCR]wIcO3+G~Zwk@k]y]T6к5bYܽRzuw{G=zg;nkT|;ں^GKk\老RroRD[Viav z.,N} ӤId޽憠ڵk˸qkeر2~xsw~4i"z|sJ.]j|(!HGS5 S@@e`O#4@ͤ1}WK5j(҂H"Ӝ_GbueZmh>Hw{^e/, ]/짡\y51LzɂBG@7M~̵#e{Ф|T #8:3PhŊv?s@}>dS7&&|>:RZjOF@ߵkWw}[LŚOh֬Y2x`&@,@up3sA]oQӹ4w$E@ N_(e.]Ny;|Eڷ?TF@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ @w@pԑF@@ D;[r%%%r'$$HFFFȵ!"h$ 8Dꐎ  @@å'9@@!PtD@E.=y   :h&  .pI@p!E3@@pAғG Lua'nNۛ]Mm `ԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@pԡG@@ @s@p@tI{xZIL&i*&:*J{ŞC rm ۔_~g#1Q%Piiixb֭˗/uIٲem۶RfMn֭O?y}ѩS'IIIݻwK|WɼyDח+W.r͑#GdժUrE+WJ.]M (OQxtpDEFʘ~$w/{z b ?xS~L6mT\,IOO#Gʄ $++K6m$Ç)Sכ?ӧOٳg{ߧ8c ڏ8q '=zTx 9swՅ  !PbC<*ТEi6{ǫ$1&^~mȈH9qT="uDѬL:-?]_#V$՗49"uoZTK􎴦XG Ҳ2drF"םGHR%!wݦ }z9ڗlli)S*[cl:Gꗫm.W-V_QՕ>ZAL}SN57ߔnA*uԑΝ;K˖-ͶO?ԪUKnf^ZbuA^ܣzɓ'ˈ# R  @ Xm\|[^s]  cd2agҾFCMp`B)=Ze*? |[`&Cr&Jo.wLF_OyʵMpdleŮ?L`՝R?|*-֓퓝sk7写/XNj]GmgJpLwgzv?K|tT)]j~k0e(ڰBuyP܍+(qmZ6Ǿ&MmM;Dž7ȯ./رwќ9sG}^+IDATO]QJӧ|W&z7 5}GL;wn[n-cǎ!CH2er  8OcG&y_&P) 7aoZ|FdWdrtRGD'^:DҭЦo#s {m뚞+5q&kF+jfԵ?ΙҙrWeedup&kjVPSF[nlv 5y:e,idHv.N'ͱ)_o]rrp_rE6fwQc_+WW|._Yud[m'M߫ ݆XYW5ok={NmuÆ ˋy KTTԭ[LG]so{@p@PGG+jw\hlPԱFF."In,݌X*rκvՑӪ LttP̺֥qMҸRMz7>=LH{Hed@&|ڞ^]ֈǽȪ;[S"Lz^U{6G뾓)vs~ ۬P>P \,>ξ²9<_Fk3^&}̎KxVz~LLKFF&.}Z]s^ｶMh;v:=`|[t`7Y8(GZԵuۊ~to)UVn9kqcyޭ7]^Be :٧I'X UDS-5OG6y9+>|JmrNYt|!iSt39IxGMIL0If^^?˚IZՖ.kp z ]/{W/cnd.:[T+km7RjEYߘ&\4\Gtu<-:BͺtA8:u 2kFefAu{.:S~޻UzYv=LC*?.u_ccc%33Ӽ6m*z|Ϟǧ-Zo~9:[Ʀd^/?Zřz}m U!Ƣ ۟ 7gMرcn:msV?:~uλ][s{7nߺ},__ ̈.~}<ة~O^pӚkuJFO.wo~fݔ3/3;8u]4hּչ㿟-_nUqY#:ҩE^b"<͔[v1!tˡY?Bg<'. *T`gtd m#gWk vJOkUG(|C˛V-mk.W7`޵uڶ_E.w5j)2Ѻ_]1ոqcٲeĮoV5jԫWOZje\`,YD^z%=~Y~}ٷo,ZHtbb׻5jЈ>&J*nΝ;AZBƢߔt:>RmEG~#7o?Jv[We~׾Ͻݾڣa:jNs{Դ%) m}5Ѽf]JqK<|KF'uSPu3 :RoQGzafaVH]wVϼw[#'zǼ{zROJkZ-76@.>OGhuWu52IZ-}ۚ^`Z]}=[Vg$ֺ_9Ijބ7LeYwu:[h1w FV.q|Cmf͚0M4IkFj׮-ƍ> 6˗77?^{9nҤ-z)_GS5 S@@V*INzg$yC;5嚏inҭ~+3RZ>.^W ,n :s%'ߢg.MXf|>JmL^^Oܼk>jƹw9>v:Z9ߢ?2LHчh~W>~ڵ'} Sq]DŌu/xrhRR҉+|~s/NNhjPۨ#ժU8F@+V跽9S͂">S_O+K:joW.5:sO]S>u+|꺼§§nW~[T~uGӢvj~|_륙@ç֢A&}?k,-;)QJa(^i߾}(5  @1Zsdw@@ Pg@@ P72 4:  n 9G@@ !4@p 9" !$@ Π)  ne@!huMA@ @uC/s  @ @C3h   zsD@BHBAS@@7@˜#  B  A^@@ Pg@@ P72 4:  n 9G@@ !4@p 9" !$@ Π)  ne@!huMA@ @uC/s  @ @C3h   zsD@BHBAS@@7@˜#  B  A^@@ Pg@@ P72 4:  nvIrEew[zuINNvli8 @ 0}C@@ erR  @ @Coh  аVN @]h -C@RI! +@ ݾe  @X @ò[9)@@ t7 @KhXv+' 4t! a)@ n@@X%tG(޽{ qn^ܹSʖ-+ ub8X6 yXmr9vTT)Ϋ ')111^jTѾUVXWAOƭܮ]rRTrh;>Z\9@Ұw hB\~Wݭឳׁ.]+"_|q8K! @  @V)#r0p@\\kNU輭&MHFS!8B ::Zj׮-mڴGF]@ZBB`)  @_tCj@@(Xl['on9eG`峄.ˢE\عp_zj/6)bb)rJ[dgH?1cƸN{΁ʲe8 2m4Yf 6Lo~]>:Q8^^cJVo߾2d+DoNxs 'ə _{u7ӧKOؖ#i&̔qƙ_DpB@J0ZRhџ[liZw.]ZvĢoDرL8(հ6m*&MСCrQ{^@_4'WZ%+ѓ%(7C c~cXW%%%vi]Sq<_CEבg:|ݻTPA= (7C NLP ^>|#wtMfϞ-u1SJ %ͱqJ*IJJ{[5kڵkeĈrwȕW^^'){nSNtW_-˗/sZH-.YEzC2k,o\3?}>bԨQҹs;A(Ohȑ mq-7!,"P-[r;};bu^(%^y(y+VO>$O)SzS>$v@"@zgdIn<B@b8v%]%-@@ 0N@(ihIs<@@P8}@@%-@@ @]@P_矇Jshq@@͛W+@ulp@@PgFBN`„ ohך5kdذa_7{l4h\|2`rloYx\{g.:|<ҽ{w馛/4!zH233m4ilذAtĉn 7,/r/֭['SNߚ˗/Yf)))ҦM`*+B2>B_}D @GOҼ8[L#Ǐ7:9}t^.]Z{饗dΝ_m&'OQF< @t!@2eO>K=G޽{S=z 3f\j Ma˲eˤz3xwݱc޽[o.u.#'pveds9o߾Rtis>/ԯ_߄F հZjU{$LbЩS=B[Z8JsRF s]… Mw7nyfYvvyرc'cRȑ#9oڴaÆ2|;v7pnܸQ,Y"UTn M~L ~U #"""ds9IRJk.7 u]C5j$z;cnj0;g&zg^j:Aon Mhh B+wk(o>#7뮓+Wp;v4#x4Gݮ]vfkfF\4i"jՒ_~ٻ /@ t"96.C@БK :*z#:Zj~7՛;#~X@ @CKh  \@@ \ @@ ݿ  rА 4C@BNr]B@@ wrv  @ @CKh  '5} y |駢e)wKA%KHٲeE~f~-j^-[`:mR,SRR$!!!ວN*˗/<:ŋeѢEƮiӦ|r̯-J/#@ d]OI5i;%33S7o^C?z[o\P*䡇^xHuƍ /ɓ'ҥKE6l$%%ZeHG nQ  p7(?g}:tH9mzw{{[l vy<ܷYo=*>|8*>++˴3==]~79v ٳGmۖc_~?ӻ|߾}yfٻwwY~߰az"6gggڵk]Z]Ek^n/ׯڗz|tyn0}aS-Ν;{Kۥu붶v=~X}Yﶾ/:~V=N^{~:}^1sE?z~:\b@A@\]tε>S^=ǺL^X{*O֭=֥zOrگODDXAsWn˺u}C o,yhb  @. 4ѐeÇ,F=rKkТ'::cJukvG6TOR<۷oP .4ءOCoÍ:Q\o6M7z>?s53!A3Aͮo&<`6FL+;fkdԡ!o߾a_yvkswzK&iXXC O<4/22czc> g(+0TM:wlBU̱RMXl `e󃆾C5;@|GC}9sG^2_|Ed5w|DM?S6uh[&|ꫯX=5ĸ={4&o[Cz @Qb?u!7i7nGӢ~2q1K޽ͨ4ڥcǎO>@&h?UT9aIMƍj<:S:Z~}uwz6md—ZM ҍ|h~}Wz5@_|iy1cu. Q,] ;z̧zʣa]j5ϛQ2eʘ}4п浆E)`uevR ::AVZڵkgF5 mTo;jжˬY̾HxhEo%74 4oQ5_d^  uUy+ gTuܹl]F_wһ{sslb .{drkI6lcokNb\3F9>+c,Ȭٹ _P__WXLK׾/_QI­XaP}Qœ̙3lE#]47Y#mb͚53u }أGo?[]ls1)>ܬn_z}A9Z_Vd„ f^΅^}z>h{΁բf`:;]uy޼j~WnB% @k 'fb͝3aԚSg{m۶2w\R Xw32y7M6Z]N(Xu޹긆q20b( QPF$+&%YN)D9L22̪5`aH$C·׽=owZjڿַsWn AP!I;2k'iBD0¦LI${@ZdIea m}{ne ֵ=#}ݺuI8ʕ+%li&Ǐ#/Mu3b>~T(hI;vHCCC>/5!v i%#:]84~ I2s4!\>ҋ]sM0F?Ѳ]g2'DឳoX $s^Lip[@๮uwoT~o&`&`G^ 2='N wׯ_#;LҺ |5a?qG/''a0}@0Kcd.0ҥKc.T0ϔszСNA@jدKlZ_lpf֙gFZ<{4{a_vA(+L9'o޼Y(I{~̑]|۞Sn!!.ů џp7' {yDfgUe>Фǽ00@+rkZ'e߿?kJ#p_tn&`&`&`"@JPM&eА9TTv¬6uH54_hgTAEg4aYÙ;̝{kMk2߷ )o2 _ X[?~Mgu:>Mk\M7[mj{Iߪ0Y']o5j{]mZfj{4_?k c&`&`&00JA3cDcM`l+A7000#ր.w6000+ c%&`&`&`Jŋh4,ei4sʌF\k~@خF+ez-ɝLLL&LErj2~B^ROƦI9'tk쁄˗/'ycU,ɝLLL&IN"\Pa,\R͈T2JHD%msdÇ^e%K{h=i3^?FsRoa幑 M{zԻwJח/_"V~Xw>唍[O>ݚLLL&#K:$M-I)iӦHǐ_V$}_jU$'ѿRSd~ԜW(@eIIOy߫j$fvފ+< nc*sQ3PDgϞzׯDuJ}x&3&I-[[xqиnۃ20*;ڛ={v$gБ#Gb͛7GaekCw3000IG@ƚPi#w֭[!qS@멼iQ!L*a<7nD?*jK@=UT@ g<ҥKEլݻwΜ9UI(͛c/4j[qSh@w:eZQښ iT0S 69*Q Yʗϩt>:J]͉蛕~c&`&`&00GSh_ڹ`{NMt {.'O*ϩVHB];crv߿*^޼yU5Ƽz*ƚҜƵJF5=f/_k׮%iFϋ'OLy-꼟:u*\ ՚@$ w&4|(%hMLL& Ai>{Lw%L,?.\Pe(.AD{W<2^\ ڍ7FYcǎQ|\T´hѢt9}tw^ C?SNyki^ 6"- k%M a4Vnm{Cpw-*ߛ L iL?~(BLY}CsΥÇG N?@ÊwΝ iI}\zuzQi"*9L1ۓ\… Ӛ5kBW\ aS&8" !1ˍࣷo#&֫=%ulْC(0`v>|94eA=&|_[000A%_ROJ&6lH IsIvJ B(lLYIϙK_N3G>ihh(LD#))\x1!TJ 'rhyA5.tPTڹsgh-gΜTM{@sm۶`8k֬SQ!73" A|pߡg!7000o0~i*$b.Mi1jڳgO2eJ[_wf~*Cn?cƌX<m#fu붆&WL=z44?윣ih`1O6-l:"Z[Զf h300Phx`!>u1 >###D~Zn|ӳ}4Kd=L,^~?s4tO֬;2 $bO[ 7000IKT!+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i_@IDATx \UzB!@XdUAG"bqupQ LAaD6AQa2l!B6{u^S]Nҩtz&us9Y'ʹNQ8 FD@D@D@D@ P)% :ʀOihG? zնv6[hQvD@D@D@D@* G}.r>馛lÆ r!_Ɣ؊ ͛7ے%KJrX X|]}ն{tzcH$;Gd2YyWE`xnz аXntb o,;;ﴖn}q]衇jWg``֭[W%IilMj'G"VgW]٫SWWtM2L2_jtIvqγ'|rHuwwq('$_8>UovWi,(6)B|A3gqGH\M$/|1#YYIQ L-\p-[{o;Slvs=gguh@`z~&ř]XG r94tFd"14t+A@c@gD6LX$8ym-F:">NE@D@D@D@*ς txW܊fﵓO>y:E@D@D@&$ P|^xᅥ_x㚰\rI uVD@D@Db ̸.%Œ,z?o}T ϊKHs^kV\a$@&7`mB>k&;h/" " "0M$@ -+ۮN~},tCJTT9W%njjzy'Di]`ANHTtlJ G?,6mҰP3W" " " "P$@k:xzS\!@MWE@D@D@D` HN=s(" " " 5M@_' :4 К~%^D@D@D@3W" " " "P$@k:xz<vbBbmCsz}a>|>K&.Dx%LD@D@D`  -,'" " " "0$@B@t 퉀L ) D@D@D@D@B{" " " " S@@t +-$@О BD@D@D@D`  -,'" " " "0$@B@t 퉀L ) D@D@D@D@B{" " " " S@@t +-\>#߿%-[|Aۼy6gSD@D@D@DL}G/]wuv5س>k{^zDw:(" " " "PSuZ4,Yb#rJ{;0kvr-|eD:(" " " "PDyꪫ쳟]}#zCq}ݷAV__o ş`  E]O o++n*?/>mS"@i}a\֭[gMMM󍍍Y͝W_}N;ұK/;oT.P+7LQ^T4P(TW h4,M]bv7|>f%7L"H7w-Zd/K(R5Ywܔ.`o-@.%@#T.+;QrSW{1a']>öj*;餓\$Zy䑥uttҥKK9QiܹaaV:h X;3iNgt<9,xe{`ߙN?fzN-~!;r=ENʥ3gtM%GDŽ8{l͚5Fk=Sr@t: .'/^쬣gy3~]" " " " F`һqouCۇ>!;-LZ4-ַ@r:;.%F" " " "P r)" " " " ! :jFD@D@D@D`$@ǍNxq7:](" " " "0㡦kD@D@D@D@M@ttxH7 qӅ" " " " ! :jFD@D@D@D`fܫ8ǝ](" " "Pym>9[`AEC; бK &pw۵^[O]yvGi T) ӳ,F+D"Q*$ Z$@%XbňfF C@D@D@*ܹs}{vq?묳a:P=4 zR)#կ~8,38N:養K"s$@w\L0~O}rqb'P녵T.@ GYy$L |^@w&)%_6:Y|twwWFK`ͮQwCUЊɭ#:$2MB\L  )D@D@D@D@F' ::#@S^N@ttFr!" " " "0*zrt,Ye(Kk_}W:uiYW׉T )ʥxɤ7+{֬YϖqQXv֭[gwh\D@e%Y/MQ ,]>WS&15JL 頮0E@D@D@D Hp+" " " "0$@& ZÙt,頮0E@D@D@"OZ  lu\?,ՙJTo~UTi ڵkkh~H" " " " "0"1 8'}ٿկF @E@D@D@D@D`81 Ov>9?p?~!" " " " ;"0&go]{jI1 Ps=m7ngyo?[pሑcZlѢEşe(DpOlvK%?k,;?{ow]n駟n'xvn&۰a577srvt@D@D@D@*@Yz9؋/U ?l?MB׾5gE=CnQ._ܮjc= CD@D@D@D@@YOhۡcwt:m_AM6٣>j{vxM.R eh(*%yFKǸY8_lu|nxؒ%K\+(^b뒖̠XgPtJ ULglfC8~FTI"zI P/~2s.F?l_uiJRnQGels1}ύ-=KEqX Lōt4]t;ӝ~"2_ħ.`V)ϴ#jJՑ{GJQYe8f??ٷ(R8yGڲeˬ,X\̙Z<vrb]?a`ATsϵC9Ľ::jWQT,ngɽL&PV>Lƍw.shtBD@D@D@D`e跾-86SD@D@D@D`|ʮIGǬwws\h._hJD@D@D@D "w}{N!nztMZײ拐(+@|-8??c~뭷_y\r-" " " "Pʎݖ[Bz Ѓ>x[-" " " " #U{1 B>яCD@D@D@D@D` c9?[V;/wc_D@D@D@D@D`+eǀ[ssﾶh"VCD@D@D@D`' OmOoaÙ.xm"*jZk3Ri?J=PIF{iј/pRҲel=}v-{iU0|>?-huH$688X]Rj3BQx^=P%`9Ce^hwqmܸu_g}fl6;#HTYe~*HO_cg3#v5~Yieϲ'bi\ oulG>O噮PǶzv[L N٭L'kΞ={s|bشcFw{qm;&ֶ:#" " B`,cO?}lkYWW-^F (" L+.vL`} ,@!" " H```Rmx饗FwT.>XqJPV>scZݽ/A(" " "0(B;FW!nͪ׹_|qlk9_ND@D@D בH($0v.++@qVbWmPFK΋@Y;982 o+5V3AW@-(+@nq ۧ>) mnK/>{e'|;6w\=Aؖ,f_~]yGlk}ߴo}[" " " " "1Y@`/nvD`LC+o~j`…#c" " " " "1uvI'ٱktݢѨq&w߽: " " " " #=#lՖJ|g`1؎(?[[[~!r,@^O>V\iqFO?ݖ,YbP\8:'" " " " &!g>;c7ް_~6mdO>[8)Xx[bEY˖-s]|6#0&ʷ=3v5ؼyk/} rh^B_Wu]s=׍9ѡT,1u[SS=v 'lW_}fϞձ?h~k_=-t 7؉'8ܙ;0nnW;J%@K/TW/8O|c .;>O8J~;ނ#Bbx+;yr{ m_9'>ymo{vRvӒZ>Oڇ?O}W0o,+ E9s֔dӟtMs-?$|6'Y_o,Y^~Wr^}3 /о?3ΰx b~U>ЀKYyY.99C=( sq=|#&RE ?O-'+AvG@hpOvǯ]H sQGq&=X#Z:::lҥşns~kGD@D@*{m"hmqTr8Y/J#>֯_-?n&e7֋oO⺢R^x֬YAs=vGnH{" " " " UA`"p г+O~7i[o! /"X=w3iv8Q.ŋ;ginz" " " " I`L]|'曍Bq/| Y_|qv߇vb1}CvgNEq툀T1 PN,8O.Ʊƀw?Q.{~T'1uA;㜕󩧞r$h/~a7xvW'*JD@D@D@D`"ʀ~'AǭOO~""?D@D@D@D@jnfOwOMQ \ :Bm" " " M`1\+p~}| ;N{R'" " " "0 ˗7p -H Ϸwz}̞ <^e/[VM[~󟻙hɒ%vW/%LD@D@D@D`>vi&w@O=R8&駟.֎#PVn޼8="RcK,J~MbNhؼys+@CCag硢kh-=v\FѢ{rpxCO2L\^r%Fo|Âvq㟊'8FSE S"@ _qLmʕqf^|ǝ{c9ƙㇻ׾@e._~ٞx կ~Uű\f .=P;S L&cHk6"0c;9sG_:ť]," " " "$@w܋ ]§E@D@D@D@v{]" KtYbr/" " " "K$@w .wqvE]dlv"" " " 3 ͘Z<`^{uvvZ<_|.ZI)" " 5I@&}$R|r'DK#" " "PU$@*;+/1>oH{<KR ZX8ݺ~WiRE@D@D@غ/VgE` pgSSj/nÒ" " " 3fDCUwyX͙3GV -" "P3*^)lzaY(rtNiUJp?d ;,UzcAD"ҧsBVgd9kVVNJeO ɰQʺh MNV$m"PXr=P4d^=P偽6MB*GGD@D@D@&OSFvOzx ` Tt)" " " B_(yqM77},NT) 0t2[nDEA qU" " " H [}}vdY7t:P5$@&+,\mHsEN IRu?$@.K  \kuj(6o<{*# hҸB]%n>\ҭpB-FP+z $EQD@D@@0:ʍ*mC " " " "0$@URS[H L) )ŭD@D@D@D@$@UD@D@D@D@V`" " " " *" " " " SJ@tJq+0 P)%0e~ۺu&pٲe͛˺I$0%b ׾fGuu5\c>{z@OvԳ٬g?sr…vgةjgu_r=cvwnnWRr'07lV"X,f÷_9'>ymo{w}Ýnxt-oyޥک\@}]]]&B1] xպv.h 4@ls']2&E믷N8۷$dž655566Zggg7wx 7Q:v饗:Z:'0 T|b {`'iU=P:88X6!S"@d2i_-e]]nd2Drwa')Q'5{fhhhp8l6mUD`,Xm$/oE`  U===E` B)D|%E-`puttXWWW8Ν[ 0%+Ͼ/pt|n#8^x[fy=ؑG9ܩE@D@D@D@ З_~ٞx /i~KK:|\pVŋyggy駟^<~`/FG ǀ6uTO`F 4hnnv=DN()hR:'=0ehIH;ǹ?D@D@D@D@wW'6JD@D@D@D`$@KN׉踰"/9]'" " " "0.¦D@D@D@D@K`-4ބ&p]ws=g|i6E?OK0]|ŵ|Ynz;sDZ\ I|Wc%DUqI!_ڡMj?mA@6YC@tdEmG?DV |ZM-1J29͈lP$D@D@D@Dv̸wBJ'z,˙1ߋe%\a~qsEϝ_gNܖc<9򼆗/w&f S^K?Of-^"@p}G.ML7t.!=pUF]3sȇBWǡh]>w9Ŭ#>rmq+x7-=Yrc/>/yl #nXgY;E`V{u-84c^ ؛7!1lDbIEC

    cuciD"g>!=^{&\l[cA<Ђ^[&;yCA4돃7_c![mX?h=]9lF;ao$wEbgqmv+d%YKֿoҖIB&}i ?7VK2a9AZz2K歭5l'; ˖ٟ}B> qL߷|]oK'w_bDE&c~V3(yk [~f t΂ミA.t.fq- Jy4Ph\,ds!\'g&P8d_5Rpd)ۏ˃ YZ)cl Aё-^t (DGf^4dS1q JNJ҆4%w) ,>.p@ y1pa޵HAvΕ;3]e߿F?ZHNsΦQ1voGxe-n3L{ Xx3Xkk1`3=B&c{D=}ܼCuM-u6 <- Y/GȇjPcɴ!z7\}RϢmADS<`^Me t[[8lf[C[u.}z!r! PQFEB%J9*XarXμlIXQ .gEyBzsiWe 룶a:K! 7҂8`'/ V} Tq'JqI-TJ6Q[+xmڐ"笧;nIdǺzV{ۼ!;!Bʇ`U>FMa;;>ZB'a o/O$g!?QN! k Tu x!(ȲP^P!0l!3hi  U4 \Q\d ' ?,#;K[ @pa|@IDATQEIyFc Rk nW+t HB* a"Eqhu3r*}|!̲hxOQy)vYQtև{ N]L 2T  @ U#h CIcq %Zu~X8:UpʑO9'i0/I !f@2NDT8 bH;StbecP\õO9XpasR8HM  ' ^A& 7 QgQֲ<1J/q݇A< Po4J%.dv}%00H]UZޮvDl2`EWA E\GygEϮ PkvsrZA'n Fy9a~,-T} +h!. eޏ0/ phIbd$A|z ~qMhuIܓв|DeI༰2zqQ"fH/30 0Oc_Lqqȃ{@ g|"@]؍׃yG1c"a/ֺgVI<>YGD½NcjnO]<Ip"? >|C[]K~: *LVc~14ç4PpϪ,G{#Gc򣱅>>e ݡy1N[~#ݥ~+w% 07cN$d qβ>c02mtJt&bskO!9hWZ4*Nn47EgBt%~Vʚfgrkoǚ%pXbLEZ,Z8Q 3歧3INn= "AeaU챹-vM~0w-]oW [Zj=θ1>bu/8>vAQD"^tRB|h]r^VXD{W5@!0S6ǭV`qnO@> 286\β7Wi1L 91AfƊւ,JN9 } 4Y$ IB3ݢtQA7;*yvDv23 [ׅq*Tt/QjKؼI:Fۭu6&cZf :uY!ڲ dq& ke?'^EZ06C84Yq84{!aCa^*nAܲGw:!`ar,^tWY?:V׊"d03+-IF|z03V5X)pF<2\z8N 3sZAJsæt7ݸ=X&VHYA94괗Va>QfXs\׃8dl#kHۦ ,`c,!VTcͥ&Mk)^qf7+4=& *9DdؽG9McQui-l@6؅W@O AhzZcqE~tK7 0ē j*\:4hI,\\ ./ _ڋ"U}4q2adfY8ܨ~ug>}< VBD#%Zc̋oj MnhQxF 4H,+ 1\LϺz@A|`?MArQ5>rHDDc9l(vvgqXi96#X `[`≩O0aK\N"ΌLc"+'Y6HA1RKE[婨Eq%)i>}'[gaZQ!|P!XrR?@!HC,9* V7LJKeKjeXs5>^Nqutl4@AE$gCݢ1HL ߜ c+IZ8cQ@<9begIQ]G0{[a6REh%O[e\9SF"N #>Lr%Y)tNMr7M qrjf l* uXW?.i)de3#6 fT芇؏%(&|:\aէ7 -FbXDB΢wqޛXƹ<òJ;Ɋ^NCFʶԐ9 ŧhcY n.\*l+#82~~wO9?k!ιCn_cPrʕ+3#\݄d&ZsFV`cˏ^E6k|]mk׽ "bo]ÎB.&r[]mR6ݺ9O[t68֎4K_k&*Tާp2Ÿomzǭdի]΋Yhg#D[#JQsL.nk/ee0@!pSnz¢:ºtP$!2 tB`饍b!Xg4J~vmM>\`M.>bG\xb=3  iêߞ[Ce=)K}v]/[z+ 4!g ǰ⁛o+7е 3#rbq݅>DchZ4\o1Sy`BaD k,W!ia..,H,x3QY[I0YXcM)LVBܱO"4ez{a  JQKE&*A &gqeԇp"^ n ;eIT\Bn<"a"We|!*"ޘu*2,r0$*q Uvg9a1[0:+,W:pVA,ʫ0AEL ɮEhha T&z+͊4&4iOX"WKׇvK ! t9Lи0: G4 j.{70 8iD+#X9vou>^DK3ٛEj39O nXxQ[}u\Ycև0+ pr ViZ7dʚK\q,i&d! ;\-̽FƢ,XqK/|q`rs StE͉OB:s??,\_pVMܧ0sWwW:N>eC=.vC'4iXs 9RH8Nmd9R&%qbB\DžPFi':)$}cBsk!nk@w6Kax.u,Q7h܅1Jiwrˬݸ4V< 8"4 )Dx==fK¼FNJK93Q׵~{s&<Dz[: b1ƙ| 3=ߞ +0.B 5c L/r؁kza ˯٪׭堀5̉`6>D *>XJX΄48tiacRF1e0FG88Ovqu캉 Z'&] ՖX& 7 LBb g0NEu6Rņ]Ҧ{pJ jnF2ִƢb)( =`9mL{1mmD٨aDXAL>ӉU6mF0D5p)"|8FȈ.Oc^ vL\ijZڸ@ryNKC X O䓛ĮfZh >' dfnbeybSu4厁u?* $('8;ǴθJ#ƛ1 '9M:$+$zKmPs9nc%#vSs"Ձ,6BWJs5p]xO^e*\cYi qXr2N&R>OP^܄Yw̮~|k\u:o]~N=B3rͽp?}ݯ]t@_o(d/z` zB.(Zb8)& $H~a4= u0?9-/vv61 ;B):`hWR!GuJ  b3+JjŸaz]k; " ;gs:M[LV6{u %)ӯMq{,IY)烱Uӓζܣ> 0 m*B z)f m(L+ןjZz?g>C 6ZRlvk8Ɨ9> )]u9C!? υɇ'A9&l"0ჩCaCU1|0 8+ ^:Q)'0-L3ZվCK%"åBJLNpr]*E*NqM -ߴ8~+D: Xjd˜a$ZʻQ Dd|rx}|wV8{Ul* ŰlmQi~PJY I*Or*0QY=" =*ٙ$okwa>B/։cd$D,}7$p̔j Z{3&9MZ(lWW{ DKN]]e Jt8}̓ Gcn0R1Pt\5˕%5AE%]&̩LaS 'z7w[6 ;SB@c3*#yNM@S T gF8.R0rYKp9Kk,)t2ž$ӕgO/[usEFR9Q&)V*S7G}AS2{ }d&VZLVbir//݉0tGƯ2w~@0;p܍[=jkw~/ q?c?o^[vv:5k[~xm=}_O~=B~ T'+!;X#AE0+/&XD!N6m b$O3?rCLE%:# a0"la &J᥋0+ *lbzȰ""!/,L"K Ee|\Ύ#|GlS00@Q >u$TRS*U}fjZ8 aPJHJqx}A]ֹ(i*/yIߚtElB5 \Q-FG75hΛGBCKk `;!Lyo 9f 䛐G/ ~.؄'e{߶7 Mأob8G]VBd~Q8LL&X Gwx/ -=|,S( LۦB7 S5qZpJt=3'RW~ #XYmn8Fb?SڰCI9I+][~Х(PER5hЖ]pIu]1'P.+ ??aI)s=O{N0HF[i>cHsR/ @]GNzB }C>Q9KsN>AT'6]2+Zhp|K wH6N 9Jq\6і!^P rϘirS 1(cƓ11+1-jMb=+ZIyHQz*]-lR4P "Ki 7{47`uJ50zXgsS28=YԢBRI1)JN9q8Cq;PK$= q_,wHpX2I ~} n!"U\ǖjwcgLN37m~~|rcO=V?c1jY&uO:0!rU+DBLɹ<,`#cL y=Hal/VQ9Ar/DE̹ v`ۻ%[x|r㞭|LhD#`m€:IƵX?m9+̥%AvT! OOx ܵ5P 4hE>f=uP#؅򑃖e&3aTsV%Ɗs0XaHxŌZDoX Vca萊TO*7wn) b%+mgbej|$C5BwW[ֈQYu{zK ޲a| |HS"ԙz `A} Ābjs$?6hĩnڹ9BeNFu cj%0">Z KL6Owq& 89f2A\O썊i45!U'!a6aq1B~G0xMj-&5 7%rE*Q^Zkp"#Gm{0>g2¤~zc>.#A;ϸaL(Y!ïrB᪭}HPӉYhxQ?B䯩sS: Z Wu".uQU#Ϗ:̫>OX?‚$g^^(){=&Wm& {0CqXŗsN ZG!#PBqMQ5_05hmNUn$Yu.-*&}(7C]U*'"Rހh(}Ś*÷J' :m aK.D\u[ߕ7ȯCsp@SٚU9O[& JZ J@np*5FaR-Al7=:\HϢYg;DZF\ yW KǙ z K̽#-^3O9}\xZS?͒bp*d(GK6G tV9 %CӴqNY,ok{7X[c81pĮ 퇃aZc;r<#8 '?b̢M 8_\r5N:2/r]chՀP$u1O]^z{~oq|/o6ՋY'(w ˙}OU\ƟzG{Om§ݖL_{V[>ueg>ᇭBpLRTJ' @+|P"9X1 ƸI'-bn'bwB9|XqF]!1DZT+مL^<  +10M J`֡GN"Fi/٥K0+l_wo}rm{˿hv߲-+vu/0[:!0uߑK:9 n)9= 1|-T^p54G,uaC>oX~[U I5EkÍC(S߱Ĵ2"a5lڅ˖͆~nG=m0s89#FܷzC_x 5y`Ҧs'<*?{~[RQ0#獖 Yk"EAI0z3,`9O"=m$a{ej9Llt98X 3"q@'s *$]R@82*F5\G"4J邆P@eb>Ha1\^ؿB"\%D X'g>S,{:FaƒVdt G." n6!:slG;na"Q"^ y{')P5$ J>Z8\+DIv2L3BX^PS"0*#Tkks]քq*uU*aY(>9&1`17$1P&^s-#tOD9-Cwr,*(幩  <`?$mnlT?nvXSZzxmz)c/Ҵ,i fQ-" >ri)ӂusL¤┙>>OD,f?|_gqR=ST:!E#I섏oAb t8<9Ĉ(TJ XWB= ""~i`Ju0jpt p9}=%68Hت xV@7bP~0~ׅ& P=O1oX+Pb(ZV5Z8?#y cI p83|Q(:@^zL8ߦX1a`.aYFtV#$Mz4mL|\ւ^X21KN(vyE#%`?ngb&rytFh<\gI!$aY[Ys\2:os-_Q HARTw-ƯbÅqFx(NUz6#"sPZqd9St-:qSb 0ڤBр'뺔0WM!T F+ehVo!{ Aj,M'B?u)I89ӄݦ&gḂqJtQ*Vkwbg#XpsuMP7itEkTT.f ۬f`;Da%..0iŬUk=ڛWf%Djq̦*mF&y^ܴ/>^ ,[r'`#fE- &.XaXX Qzm)ߓ08mtD I)@$VÐ<Mpn xMyi꾉t e)򹆣3q_ rh*%B@>S_!ա9+39S-3<D8[-oѝO Eܵavr=BڋC)):U+1JaD~n==B!h#E :@E/E+PKHӘk 1H&1I30wGk)sdHKt$9][ڡ}5Iʑ!aɾ[+1_* an}hYJIB9pyN6-qbY#?*-t4CfA `Kqpd||AKH !9i em hd0!E&V-C-& aUkp!~L,QΑKv(468bKqyCo+qv):6؋'Eg& =1y*$"FAujNP@XN@g@ PDAsڀ@)j"Գ0ZG*Y$>aSs< (E>#:S+;Yqȃs5_ &I1tY' 癵8bH~!D*}'[6yT!?b>s/p$T0a lK߭f CϰHyذ7=B};;;,r8/|w,'G?P 3)M.X,0m@0k Nj3tYg8ّrP\{z=}u)(Շ{z{W1Y"|o)}ֵ-S@B 0/L_&T̶zַSՋ(,XMGش@LՃ$9>Ǐ"2?9KN LƨY>Q|HhND3q%Rz}jT)JMڥ0G>(FikكC6 BߝȪ'hM*j_棄0  MpT,jx"^Pg?}}G)Azwȇ3/nS[p {c'y ĶYXR}sA]8}!:]]V1%BZDV2JD V\;@%zIW|^74ع7a斔4C٧;qY:!S9Xȱܟɩ9[>@"k.g^Pa[bJc1.` 7uZIb)$䉩yŜ3Cڂ&Ah\&rkYb9 KiLPG筗dԊsg]6LWsXG 38A,"Yr3mn}rO}5CcSýӵy)ȋ] vx8DU| |G! Du%Ο!VB+5pu"8%/7kv/չ9_-h!&ڴg>'qDS0-UTL؎* 3gt!QeTc>*ʺy9 i"籥g(& ܌]|sE> I6;%q>BϢ#mG&ǵK +# Q !( ѣ( UؽLz>k&QBTɣt=;xD y;U?Mǧt/(vROX04C`\ε>%a=TXXa a;X8?.zIgفQ%mӽ|-Ö5TA@6siGP-ZrWPt^Hk#[[ΰ 6cKeior}ml U 3X Br)7NL ,)'7; h+s|@I)Aʊ3۰SCr?괐"KDI$[?&hC!"2ջU ':'T"M*}ݞ$;2h#"b(Q˷(B8mv&I sZ;=RN(g~ "p Afuj"O D`|ܲŢ!'\2*Ƃ${dDŽOLElP qFW_Ͽ'<*? VK ֪E_gS'f}g-b^1}L.ᑮ,~ ?c'F3& ͇Q0x1I}Bbo{B#Rؓ!N r ^ `߄e'IE8!'.~9r$&8MOBD(SE3{>BqatǺp<)JtԈ_>j_{t/dbJ˭ ^*`? TduC79:>`-Jt6ó!ǷyQ.]lgabMGSE,?1x>yDjp.m"zv kfv8o tlC`PHy>;[k8`\c ۠ ***dnV+e{7pc.`SSyM[Aw>yC߱V9h/B]·r,x:slhwBkW;mx;Bm]g`Ow?/'y;Ӊ"QcB#MÀʣe&P _ak`4YL"tU W?9z{B$HIBUHR)>=٬w~n,bhda%K}L0:hla' LVػ!LK_xc%N&\-Y)kY]Ok4Ak[][xBmXEh;,ڛV붽o[%_0:}L"ҩ@e<icb_.`f+n9][LG8׏NqtTbKGc.ЙfΨ|Vl8#Mx8a ,|G'a6!L hn631 E߃Xl2o_-JDVD_=qpX BSpQ@/ϱڣJVL,GE$z5#w2'dĕ BA9b~zti 0X,a ]I "ÐH^eb$( c_=wCk®??Ϻ\=II95%+u?ڥO,YZc\\ݳsXw}?Zs1䀑#+)rb߲V9rα1e1|Mp?y61 U]:g% >_DOK.<|fR9$-C;Z-?WX6GNO Aq/tHJ1Q߽:t ViQ>L+AE\ulr?u,K,^ LPe?踖j `7.[~H[0 Ê6o,$0Rz\ҳy>9Wz(SWK_ b>uXy΂x=H?W``֣،$b#1mڴBls@Hw;"ƨj: O-.6ҸΒD|P `lZ EqR~;P+44bhF`yJ!}83 ()&Xv]y!u1\(C*9b~X[vBc#;>.lJbIECAE<VyV݉שX\ `3/RXbN۳O¸ln.kKsy T67W/uyn!V$d/,:䜥π Ug]Wq[yi}@CT9 lԇ9*G{I*WC~r89"3,kcW0='ŦЄ|g{gK/RKՀgշUK qw@AN9h~CJIo.Wi'- B`倡ƷKg_ s ZXiD/-$թ--=b\,aS {qٷNҰVHBݹfߊDVjr@r 2dHcvV1+Mەo7d[&Lk^g>+(}^0 ~(C1ƺNbWBty m$n8w0]>Q'6dINdSeqՖ })Vwd'T ̢5}=jWEJ#-`= JB aa@wbV@ 繎1!@_̶R.8xz^Э@O{1&aQXqId0p⥬"!`)1FwǻuׂxԞ6UpPT!0ڳKa@eVWH3I'a٦Ne'NMO3F݀ S;C}c΀uш?I(vʉ hAƲj>zctCdd6+p(DzD_@;5Do [o336?K{Q!IV7W#瑃FzNv*%g>ry?b_q9TXy T9ex>>=Fl)~tczٻ'LX~PRF.DBiN.!&G\6a:2H H$N&ΧSZo_ox0GlGȉ =*l)=;`g'T^ 9n>.CZ9c!pXvdDxb F5 .C, cIP$}1xN0R'!QTT>#T  :PgkP<1 &@": #@aA#n;}D(Tj(V"%I:C]怍a(-vs@(NM -xu "D|HLįD ,۶_G`,9ICy1{>~#Th,QB bH+IjD5z[>P2ތE./EZAEoѡ9ἇS\Y|4f*E抶 p91êF/pZf{0gSe#ǓEl5ĤFUbKK&B 4 b΁ = $8l4ε<%MQ=@eãng% j\zOGDI~w=+o6/@t@R#@Qd凪;UӏHBMő3yESgzjw4A"q-\H Sd>]]r>7"6Dώ+[ -ۄca`:CZʻ2qڙbr]NurglyuU$jOMdriWGO(GLZ>}8vʕNZf$qyl sJC\' 91~\BPR (9Ĝ tl'P4G Mmʶ 'pOX Z6-$)Gr3Q'LddyAvf/D^O$a$ H+H_Nhm,GHCEfI,&_FjiHՓbg/7lf[ܘodKS߱wl$WWr~|[@Nܞ%+mYP?/mqz$GeﯰA<7sFa޷2 zc;܆ RγWt:NyDv1IXd %ND$Z?,f슝dطU x~.$ #4 {.UX4 .Eb;1>ҠT{ i/S 3*Jp.-҇T_"cI-[%k$ *EnЁN Ċ} 2j?kh2RøpPQ~oX:Ņjd 8:BK;O ,DIX0yY#q&(>/7D*VO*r2 drA;E0|e~&an4\ؤa@%=V$j 9)4ܳRDJA^GnaYur=ۇmn1wpF+c*F_A uW`%HkiTrM98 &nWA `2 EX)B"C6D_94!,hf3.l]!29fPuHOS(y)*6ǣiK!6Z[)䞒bH}Ol}sgMvT&5G)8TS3F@: &aRí-ZMm@dB>lN(R2Qϭ Z/ΐM<X"i"9FZy*=\rmzl Trnt3է5>$>믧 ?aQ 1:H@EDǠh NYiD#0ׂ!Qm|7nT=őXZHq@' :ƪԩog ûn N}fsH5x%f+wwgxWf4B}g6<"gB/[5¶!j뗬ܶnC_/伟K໶M i! CF 0'~6!K!wg`m-,ͱd-Lȕ!%є;[#c[w"Uy BSU1 C!sH4([k #BܗW o:Fbvk+{Xe{+d2; Y' `T'sY&w OK$cl R0P^䐯P#3&0SQ!BQ: \mFIA [0 Lȉ.cOnip<[qX$HRB/K~+b J=Ѓ^fC7Sy2GWGET Va_)l5ZWz/ 'm2tARi)rFUtK9G_Gl{5dϼ4j"r.__tj$Xgeus&R9^ƾ_ѫT.7?:ᲲxIz0Df(E0hHz#ScgBu}c(h> h箅>A:=d*$s½)%Vup4oEpok' i]מ?`GVV?,,Cr#r<F׈_`M',P7aC%nb&^ji 2ZT,g 4Lmr1C<8?@Q8.br:;"j=:C g]MNci }-4wdSmpެ;Q dKWmh)HkRO,:i:|)C:6sflO纛=II./΂|?YAUERRcև(J&ҋxְ)י 03KSiKr0IETq "}uĈ2IT.`ہP<Ԣ@0c @KC;8z0IzƟC^ia*@[GĢy'rMR"t_\7ɩ?Ai7쭷~ļa~ڮMvni  7qUJ r,to*G^^n?APϥ  c8:@SB;CKO1g>';X b d%[+ ۣR2ϰP0C#rG5LՌYL:+ ͂dq+X=59 WC@1ʇmkn8֢0HFFk__irkyjܹx}Bx*(4l-FN-ڃ%-]d1a\Iw^'h.-_qB-ow+M'E|, Jhsre(d@Lf HJ )h^:%Q '(P]_ڼ9&U!oQaAMʳtТ aT.Uwv͈5"T©#6>C&ոn btE.'׶(n#y/NgC8 r,qh} eR<!@‘Gx}P@ fNHcJFr?AdFq"L8G85BFImE$7hZ T W?9EfuƕVqaPZ8#~Vr|ail.~3!(RDFozfm:a~ EjGrJ.(leȫ?7w^E@$aJgfRM@ c'r`-|"_E$r̼?cKR߸L{߹ekH,E J'TyR8u},:S =9Tsv k]?^w;b 7~3S Rƨmc4dC! \, k#*´#FfTKU-#r'Ux>P A} $5@3a !k N`Fe.0 ٤*[98Nۛo.;?s%W5%b`=k{{MzԾfvvpѮ&l& KnNDeΕ<1ы-Hw|KjقQŸ”¼]}V=ʛV]׿΢г,,TΥҽ3 L~R gS߃*xvb61;kT(o= m.TO6-^f"vN٭L /5V^r ϗ1By0K{>BhnFhFbar :e8>\m,URG.mda_Ai%nHOr@p^*ǃ+l8l #W"vZKwMnp"ȓ6#J\C$0CaXv80YyCsz9RC0 _yvNg/bű(Cѩ&u>K0gZxE!ph& XF.mQp/s=R`,r*EpтJ_ۮ';1׮Sir&+83qj]1 T0S{j`WuBm,6 cd.1p@IDATvJ9V!ϋ_pϲJ̹ n~{p_#=rx;"V9,FZ6I`ͦEQ -iҠ-bȞofe)$`122ѱ~K䜾QLhz(.Z`|lf `h^71t{eF@ڼzgi顠ꡭnO Ytpmvt dk_ $Rsv2Pγ=lR(J.SIa*INMXVmyݥ(qÚl EsPEl2^%*XP1RS< Ř@obJ l{=ѡxh!9^"~!c0qz'r>NM&#~xۅ4` Hzs#D|*ȥ.W#uG9s?ɨA6I6Y<-X ٥a~w4zU!TZVI/c!r`cv  e .:w5w/=8H1$fP艡\wCnʧ-߈p'IsXŃpLP !I<VS@~Ko`f*7ZzBa2Htp6 {mêr`jq*bh*' Uw(ccVӌC*-@9g~g饐n㞱 s_<877 ޿s<܂ YH\+-6F)hpuV6~r:OAa&:bH戔'zDK`eۍݥ&X(Yz%IT)W_d7l>GtDlQyӴ}ڵ+ChsΟY\Qp\΋TclFV׷mc}8(`?YCє]LIJ͇v~隝[Z&Z~Fgr*73CQDr@7O:{"K۝J{ !MM`f_O_GQ'`Z #i1y{0oL"XOڱn.Lb咐p& ''OBfh %v`σ}yʰ[7lIuahr&Mo~KZgf ǺCOo|W_g*]dt"=`U0V)I2Q^ocXMfv総)XZ~&d++|GGrsm#Cmh_Y%k_=@ƓrY ٽ{Fؗ g*# &/b(+SERQy)@wP%p)'Q.B8!y sCky',aid>X'dua զS %̀lҎN3J7.7$L܍(~KqND(+0,R'`845}PkW=BbÄo^=4?,;Pby)Ⱦ~D\r47}:3S>AERpQidK'*pC*M|MU\Uq$[!q\ܹ< U_}9yYzh{ Vh1f$@L TG=~O|I[ ;7oDJ=v,$'\/%+@tҲe}c94߇kz+A] 8^ms?uz/0 Nv-e7*5ܟ!'p-_. #H)1$$F->bƔ2uB)͐^cHK_ }(B8$I%6}0ϚţyWCR!a |Ukم@ۖ(Ip  $ ) lY |uX:%+gmѳݣBG$WG'iH+D|}3tHntuR'E)G F';q%g|t}t?T8BQ>MX}?o'е{mC6Λi`ͤO j %O;V\هdW/prNc^s:"I?:4=SXkB˾tzqFc`30hY7ՍM#M,fE$yȨG瀮+={?Y{wI(vV cN6p,OɶPݤٲ`?~ 8 Ԛ"=#cPڃ#/X'̞_VnIkv1͔NeE}Ov`j Oa!+][ￅ!%erF'bdm3Cæ^ S|g~;}SbSLjN#BXyl\rPL8ձ贒kҼT^PR }I*:ޛ02 U/Bϔ ˫yk0FLnёV0jCC{2|e9ӂu!&aB :y X鴰MT H"@i: NYZG~,Fy"L]F3mh0X,c6Kg[h@&-In-I5CT Ypư[$k*P֙pŁΤcF80(qIU_ޗM SJu0O~ML 9%@_f g9-[$Pt)XF|BUH_e%*h6JSS66]&cQ\"H:h}]ta\qUFV`P ZVKo&_m'^WӛycZ~㋯]};6#İ&^s7?{,rs* ;p)!i2ŇC ׍!mXAJ0*4=9;%7VoQl#vEb\AI~VvyDIrpK9v['oj TkhvyPE'ԕO]Xu[gP.VhEGd| 1:ƣ`.y` ߗ\pɒĩ1_` {oFwfC֡vqN阢_Hdz?-7EqQ!sUE`ư5*X``YƒM+m"Z0_1•Ҙ7iUL 0?bTY+ `o$| \a&Nm´ո=`CQ{l1A~t&L҄–faL( ט`pX)0F ѝ!c !Y!99n %zE@ZPUFQ> %0vU w1!:Ϲ@'kF&<>"1dO2e) c1~ L43JunJk-i4ILjJk4T73~%l:!j#w 1& Iފ1Q p\^YPR2T;(ZUI& erU2~Tǂ%vXIy&-LWc?.&WaG8ys h3XqwkR!)x9kô\R%5$ytUxfA7?@XPd9ZUNC52I=:d7aV"M+b Ym% C8/4!#T2m %<+; AUøCi@t͞=ómBi:dw  =R|pO6jiinz@?L s M -mhJLba$z"i~̡85QtxE/VBc1on޺=RTs/okj #&U|7P-fHi55sX nƃޅa3RZm%d~NI5:@Uuxt4=X "b0:'UYZ?d\e!ץ3z @$BcXceKdym?'_|a>}l-jPa2 S F#B9\r*}m@%k95̓Ӱ7ja28ISD&\cbtZ-E$-ts'g)3ք{  [YdbҠ8%-ӕrI,,Rk ) ԪlOzNUZ "BI|V _`@(q|6)R0 Edzr r3|P>qGدnŚq dC Aff=F 3R:CN[$Cx@xY/DtB̚&^ 񋳔|2b80X-H )AjOa"¡]=JG 6 @bLUM`r-~PEq |^ZqBEkr | 3R![(_,ؗ&HzT_-xSS9!1*+؄5ǀwmuqE6f◈`5vM4mOl޶-OքxY_݄X!伅Oc"FD7>8u0rq<,oAѯbD Jݚ޳L\"Xy!!cBya|]:muZt?fv,<.v{5n?Ut{Oy-v r(ƶ} U}^-2B-^Vyf3|36M~$pn[ h=d(aL%N$ <[07Ry ~@:Y G,Uun/̐U룎`75LrR ' p}vSgʘꪵ`5W-7׫=ZRA=$˹5>h+9=fHzlmItSu@ lzeUw#5-aܦsY d`Gw5;\c2gTv {8mB}s0wǼ<`A|hQٌkE X4a!402*wɛِYI8rYqf  H@8pQfL`5Ay,r6ɠG >SwUTR1r~1 kpBtQvBPp?!VP&ta2 ٪kIc}3!iI:[K&m-10yCP n8JV:(0yD< i(zpʾ|K+5^Ж$!y tF޵Xu\7UV>K?xD4r@UyAZo"ėhO ucڈ^ٜMvuGՖtA58HՆnr}nyIHV-cKUmyƇ?Lt ?jA1U+N)?Y$hSL(VNL :$46?|.s4 AZfI!c D)f{*XLQsx~/f]B/yus`aJ 6I PnpO!h}*tOHz ̥C{YA{)JM4ˀn:Om[-[Bz ҈*OqAkfdS 7 1^p(LRIYwsLLeu\\}:dk8XesYa6С6au ݦz{W~~?yl om:". ZуE!Vl&nyeI-5 Kv7j _vtPѸgU\܋Ni.,;^ $ dΓg@^HyzO4)I٤‘qJ6G,*)25iRSC427}<#4aZ ϰ]C0;#{H!O da<=B,2L902Hm @9٧ZeS> MpVPXɇ^{(k;w\0zE~^=j%Z$>To|:LӀTG#X3هm(=:>, ʱ0T"B>~~˘۷d/ى,|a1SEke>Ѳš˜=E,b`%2X7P0ȱ(8“ A:N0kq/J ֵ:&Q)q(gfauotdӺ!N8~ ,k%E)iAzX\\`lｏ)li!MZT@"3:DUBvc 2hZܜ1U$7(8'͛.(cqyac l9L1>Hg$}AR(x.}0W%Z>>hє- ?фu0 }s|0Bs1 d\, A3iac|>y8ʮdP\Z)RӤЫ:Rc^Z7g ea)k☪Y/zn ^4'QX Ɏa/^1 `g3$$^daZ]GB &flHؿ?vtqγ:At:wa@J@;vhڦ|U&c=A~%IGf 9APޢZo8RSh=7Q~=tE%m>mz7[oj7Wʞ-3g4b* n{y}{_ca l_nߪ ڄKU!Kc¬ѯkSOU]P 3}Ef/0r5 Q&X5w</D8Ѵ ]<`Q4̀#ݷɄ"  Q9LJQA'@5J`%SP3B,؇> C!zq YCN'1(A6p| cBGk⍗-6a`')IySTc1G?C+)͞GsnjIҕƒ\tkhF`Ox@Mm70VtވAN"OF`4ꀩّ}ɬ~1Z e`Wn5?ew]›s1OXHPl)%A3{jɖ- l V`3bP/Y4zbdORlX h3&$SV%ԐVsA3dr".o30.a?&i`y$àް|Da>|iz$+ѹ``m \:J4y<vUJIJ#٨ OPK#>RZш0z8Ì$,PTc~D؃%&=aD014]Id #}ܐ Oxg{n6ި% LBb>rE @ 9nϞ>1."l6E=l؇Et}qev6 ǛV 5븮 {-+']D 7L7B,HC9R2$&V5&<1SD6FUC?Zp`,igas̟s`h\*1%>;lhdy84 9uqv_oOJvܿ{鮕]GEj<;<}C`/]5u7[faB~[@Uh#KB6NEz]Ҵ MEyiXFFFeD_Lw!IX ]aһv}146z_ ØNH-{U2੷;&2ةL~k>+l4A%|ZP &X/Q7Th ^I4{Z瀁5Bݤꍰl,RBw<ϗe;||ONy(}S Ew4j) ;ԛ w`A7l3$4AY'.Y7i0B.+э6СU*)$$%~MڵMݢvB;[&/I?m(DLςBawlU8@Z9J}&^Z^ mJ^0)>Hɠ8yFt~h -8U3! Q9X%=58N&x !K,bbYi?sjOy#\ #&_ E8c0Z0՜73U#ׯ7$m[)hhWu Vs1認H3 &>ıQ⌤"? yg;H4"j$ ,qTcu$2.vV{J%F$jd> %TFȆ:T1,In"Ut_N80sRK&G?L5ԛ$kr[@[Oky_Oe+KxPX8> hWJ0bOiRt=Ds&T3#$LUÊN:dţyaR*)BWUzypDMB8kACq= 9M5 ›^_S}W%oMtmۅ5G/okJRO|hh"mzhY 3ߦ|  3H߂ {<2U[h쬔}, ;ksJ` ״/=`&M2G k；F`@K1>xM&@[k8Ǖd#F)JGk^{Ϭ'G% "NbTJS2I)  yzaKp? {xҡS>Mht !^*R o5׏^0Wû!O!+KE0z e%<:)J:ĵ WnOUЄp%9 a~ߩ23u2d`ώ0zP:#hI +9<%0LV ^}y xOLB~bP1̈́+?_@9#+|4kH@%EBOw Z[DaɄ0U$7tZdBABu5V6&l)ɳs8()h_2h50d1m^Fj \Cz+aU عh׋^kگWSu-}X.#CY~cSAP&Bꫯ,aqbuQ*6B2Q6/cW1^>%!YUۣVAKL )iE:9JEn.~< OQq8a˾a ۨÏM` K'܀YA$q̍y X .0hZM8E_v5ӝL"oWa| ,bmҪW=.1 <3yoDmJo`awo\<FfQkh/p[]͠ݡҊ]Qύro| իL% e .qQ&$EaoP2Zg4flV1;amNdŲ2Mch Mfe#70ɉ]_`@[IS( }Z=k.aFsX4K?i+`H\(@4S qIYT8[jsbؽD&yBux]x1n ќ!Xt\P=nR|="Sϊ7 ݂E 9<3&̨T_k3-Z_ϟ&QH޵.9 R%;ޏ@ژR=&SH3Te)·AڷRy硝_2)B+#4GdC19„IN*^N9TxǦž9E?NBIvfz k֛1vj9Q.9Ym6u9Vaqx͟zcp5t7Fk^u`o]Kf3W\|-}O [  4B i6M)?1Y1Qv ^X8B3bJ(lbylh>Dy'hl!-܇1VcnÏץ,06\]hs bTY^NO-2yIֲ^𣥌Db9,:uU"2.mij@)GS@Igj&Mu'S1nKK 7 (/F HٲJpR$JL ]qY({ \BFІmZ!IИSǛk6LE0?"%5C *.{sY!RU)JYc"غEQJqH$FV6b3e O%qOi DqvV7i=;1`PE >ɐ?vޏh,o$t@`\\V>-/W.051KFw 9l)x7y-.aR?6Z#3Q.a'B>z`;DmG\A+/Tm[IϺ#UXZl-䀔yGp}& v*q1!NyiQ[/(‒2h@ vB$;t]}ru4kYYyW%{q>uI[ܶ%o_|mRg7 {V/& xG{{ޛ-}wWUT= ?!؈BdJԖbΌ ~Jed~n0Pclk ‘m=SOh))Bxxcm~kbH&7`U0[4Pl=?`:/k!c0\DM QfND Fj \b1`I@lI陕%؎NDMBAeJƢuL'Gsx=oUu`]mv-v ˽(!kx{Ӛ}w;1^s=-V k=wuSt$ZuLo;lBS1x]`D^J(GFAB]%f 8@O2Bb.AwtXb_aC%:y⍐͛$ e`]i#DŽagU7Blޯc]Xn& %lYL#j.=OlҀQ6롄 m8S9Q Q }ba}dQC]"yHHvk:YЩb=I S~.`@D:/n8lI]kq F|Ĭ-va'b``*!8d*鴻6H)j&CIH302%l>%._NS6νTƎ ^FHbBtj=r pSP)CdIr]@axrh:^7[%z9rt xMڵXgV׿lWҮA{6u\lOtӸplc:ژO9-y:]wn+4 0 !ըnaQY̠}TپďИ@Li=G 8+<5% c>$Ќmರɖ?C3_iL%ϰ]|a6.w#R@IDAT.nHc`t 1tD12v4%yÄ-G&ז:~K[,*s 0"|`qibsP|Oݏ 7a2LhUv5ʒ0E~8&S Yp9L9F\p^:$!YV%Nt#t|}li?a)%@ar>m=B::/HnD8TEٮF=dNHT(s2{Lf`O9tH):L[ė3_:Z8D{w.yY&'F-xx ~$a +X$u ZjIPА$4*OVvDN{&K.,C$r~nO`^.ta[6$Q&dUuH!ViδakF=BZ W7iSG.^B)zKBy{ i G;G_.^0`Hs ӗ9}p3XxUKn>~THDGZ4yd!G>g_7U+W2x"3qϝ ʻ[ /<9ѩG`Vx|ݾ_ i5`#h?2wlmmI^򏮅CwA&9Tk"puo|/okc1o K0Ȓ-.M' 4@P'9"ТBJ? PB1|)%7{em=445*Xvm>#tN(?[` yB~hO@|Jƀ"4< c[j `&y'L2SYq ڎڵ}'.`"UXYU`Hf,Q♚ Br aK_Lg 9iS|Ԃҩ燗h"roX"&lm|AJHSL%꤉"d 0 s5DlP? T [D*?saw4a!XxuA6H̳<~D:7(0#(MjSI&c J{TIT3BaZ_1}0K-M7y֖a/0t94d#'ω*P- O۰Tao_Ɂ8ĠdtؼeAޣ5Zb~T^ٽm:} L:Wdڱ"Y)&,hVcD!R0LI 'M0`|LxBlMZ   6Qor;xOtO{-|P%9>6mjOza}^KئMropmK$/,*6w,؆2thv2%jE u!}Wl{!|?)%qׄ u^ w>so i]vu,mؽ~̺W_?ɺtUZcsoz+h-JZ݃>68V17iy @_݆+4zD4MXX:l|$Ίd Jt cdvbf$_Rm`3@v|Ѓ&?o>xѧgadKa\WdRd>K=~.@FC.Ns S/^7ؾ'` z(w/aichf2?~|w\!4gTaF0F /ɹVȪg2U()oY2 Wp2NIƈɄ_-P5\W$ u*`$LTOjUR0S,*cc?Z;d 0H5Xa,˰<(*&:Τ)٦S $ g./a`Ϝ FsD4#a;&ۘgm3MYļU(VUM!&ru;4=C1Xk0cV0ILi:S첝LA_b+ Um:Fd +]PSZb:b<#z`+!"CA{+Tc5}=yPZñKYn@ߙxf'hX//L- LR#}FDc`l&*̈><ʾhLRXɯݧ,dgR;-A"Ii4Nq _nF#$\8"QMd2LÅ-* cE:U q\n_vMvڰ<;']՛lea;׭W' y E|[,ҐMZTHD$+>r:B]$Ï1Z\.+ &<ϓׂEׯ)ݶݾ{-H2h5бfB{'-]f,CpyQ$E\u9Ƨ ʴ4{ Ru YȖ>yl|~*"hwM2OvȨ6+n*B% X%0deKߦ;02\2j648C}mBJ@[6bӘV;H$Wn 7;{f@FB$$F$Za{=£(F=㘙17f_~ FΧJ#YzMh{!}eG`3ܗ!^gW>Lj*ardkEؚDM?uY3?tS%4mDx> IK)`H E {R$u0R\>ǀ{[OMۤ@~}lɋ)z0,#T'(ۚE7aU ~h}v~a8粠dD"9R$:I8")M2.`s٘ i^vJI4 !.֜1CI&- )+Rr5GrMZ50|Q? Nzr`Fà loI<n.C7}v{b; qC'psZgUnWnYvο((q`=:hyȮD^)/+aۮv?@WJr޼zu^lYaNzgg@8k8y?*TzG_kl{gz>}i @(>O$E tڞ=yJs<`aP#ayT5B&d4C,)S /9'$]>4π\. X>|[~wd,I*=L|HV,J.`0&d͒0CvEQ=BwVvBGTLGU‘~&&ɚ=_v+ao1)N=I u_1Ȏ3ii~Ⱦ6v* (¶oOָK(+.;!lk"K 6Lv q dKC"H jcQIV>S۩9"v>~ uLH3D*7C =5r9YghIS$1>;:>$$e*@Ћ5r5)Mo2h;璤 X*Œɚ[k%0=[ 3ER#{UҒ7e ?HhOvOIxS!FijD FDhsK<=)S;9Te2 b < LL3@De>@#;1Ě 3&Py; +zD-o_ˤ# C`kՊ+;VL⇴g"EgU&L`Ȳd5BMI["J.qxh0!m `3@ (gk٦ޱ5_~ \./ GHTʽDjl v*B>&,,I˯1">AvUDiQr<3tJVш!My/@"`$bA9 .'iz[w^6-vzPtxq<,"4P!?{`Wk ?ؙibv! }>sV:L$yn*7ufeҡDƩ`s(D6TtVW.3:ɣ'6ٕ~ +cLiwڇ/0-p'fAM[Hr T'1JF9u ow] ؁t߿nz}jXZμOru]aqL"qu9ss֭ [)(,&lZ0S!{dAa&=/7<ݥLfl 7ivS"X/ad l޺oKHv/MF H-0k+4|H"B5+MJ˘AvuNIu [Ek\T`F0n@fO3<: C_?E ]WוXSJVХ+vvN8{F%08E] b jC%fJa)%ckijY `2CK,mgshbB=x{rUK/+$IU?>)M$ ,::9F8V(歅@% )%mU,!l]$ aҡMZ41ADŽg{2)@VVx{J-5r"𣗥 8Ȓecّ(ꭷ1s͝%y   %a_Vp"yfH!DiPcø̓eB)9S.5ڻ&_a#v9|e*,#%)3n;?X&dOb7.6Kua-@ a=1KīA:^'A;!}n]t]2UǎF$&s!]l_{ry }k[v g 1b$7Uv$ %m{ssD-¹0R9>K[ 7$㈘T /,'J@eHDt13H\D󳱲L%'*6H~CN߃'[U=πn4rө X8P!B;ڍ ML ~xۍ7( 耑{w}﫽7p>A#23#6_}crXqFL|2ux{$'~r?}wg>] L-*:ޫEU?3~1Q/]!ÚKӺZ\?>>(N!=S5tu:>6W|g6ʻ? S1l)Dr"ds_F΄sG$" Q!pbu=lW7ybj?;@{zItnlW }2 W(w'\X |t5 VohS;+DBЛ^+O61WB“wqWa[(yŬ8 6IK.nj*5Næt~t^O%:&b 5߅"c=蘢 8@$B,%"dR:fK@u<|b5ThO3 J,\z :(_ou朧$TK*! ̺$);?mb߾0%=g*hH#6&-b:<0vitqʜ&NOH^F Lzf vXG/A 1р1l.rڳ2҃[^Jx? )ۓ,2M$^q ?VEsXt ?.mu ua{yzAEgKעv>Qa9'a00\g|F1:λ}؈gDIV]Lʦxo }]v1SLԨ4~Y@"R O$sÁavXyON܅SyN+H//ŵц=;@cm|t]X͋r}7E,fM~TiP^P3Ce4TEf xsb!IސŊI :֍Z"!=.q?\ ɕ{Ȭ/M X pb]mρx,0zn7 yWx-Vtߊ*1{YL U֩z5sA^Ohύ}e,rL(* tIs" , Z8 pQdl xu& =ͬw:E]N5+5@~yO+i5#+G>\lVX[%-h<>ڑFfnＹ|oըdJ;3 />*AG#h96InD˕- e f cX9~~[,0^Htv^tRRUULx_O-gEʝ,vMJ! K8D0"19l8}Ul< !0Fmj$W݊`0[zрW؞hdKXz v.) 1h Fw$0X(P1Q"1Bg+c*- \&H5 @G$I t\Y':uKh*cfuD@8:: QHAO8 a]ވ}#[#˻H򕪟 W'ofK7Y Ȣ(lHH.ְj#γ>ޑ3JVeRw"SļBOիػh^Meaxƨ:A.%1Ovk8&cSJG]Q3qa @[B#-%5] hLd[CV ao@, ??cBJ`iKa*h!_ah"kg~q@;0IȏQ= J6c[S~ irH_8mgOYe{BWI/Z: {1;lvʱ| )Ʈ"ɖ LWlR5߽q~iɌ49$wNnz}u<Dr|y "}gꢹq͡CNA- Su;qÔ޻f*'5}w܁u]SmoK{'[(T~_-Žo]FY#YD!I2a9!@V:M=4Hmhj!JfApϾEJUqxm*ssSR KQU.3Kva-;(.ۙm0_, T>DK(:d3N`VJt#윦ä}?Gq^<j$f12pI(#-\+&-*ɺ:VBp2W8Eus&N!AՙU08?V\uVz28ԸvK_WTg>'τ =ږC*-i,cXgJar5 1䣔D>2fn|2LRz-Css 1~: 1) _ $a?ќ8dr1\ŊygL,|f0D2uU`t05I@+e8X'<;C AWb3)R@<$HD9w $p~={'pAP"zU./hܛX"G8 %cu^ݽ=4-kFS_w.O0O򓋘ms}ݾB=gqN_, { ȷ/}0C3a>yޠEXN\F-Xɨ+g0rhD80)S|yTb4x` Vr 6=uXʰa솨^-j3[]+P d A*c9!Lao{ ԶsR@1=}ȏ>Y@Y0r)E xN(vN2jЏzL>V# ha?GϹJv":7Z$*QfՅI K`k;m kc"Z[K{IjտأL(R 1tb2 ??PLޢ}p4Qfq~et>:?·gO MM|ВtUR o x:\=Uw] ;q&x[pjc@F^h<4Wr}yhct.;Ą%Ym1Z#MrB2q[bpmEΛKiHy>7 su,09v'Ji\e(ZHڜۃ+d vܢt]XtU\~s kɗa.#kqD:=scwYE~{|{հJDHJFzOB'%-赒aøW"u|Ms, Mz cżO߷p.l3H$X'zJ}>{&3D일-ob$z`vAFqK pIU_eݒ"1Ƭ}X&%Hq-E񆛠D_L(COnOa0``&J ,:\O%v>|s vczLɇ97lz dZ Q0f 9s5a;>G$ȎFSb5ʄ,tMO/~vnТzF';šs_蠁0Av O:8ݫi#J`ɮE\T 5N !{}:1p00(Gi&k*lvD.4DσI%\9~CjG5HX(,3ia)Kߧd*E1կÞބ h}1|>^O$~\m <#JnL{$Iz]y:2DFjUh@$c۝5ۗymqa-ə!n4-%*+ufdFb~zfgl^,.>w=1D'"oyMaq&gOC-$28,ecWP;btV $Sﰚj?~ {]#eIFa%ml`<fgU%LAeZX@;F,uEK39xL!,([Ur;7>XbR&)w/;/< KvK ;B[̓50 hMv01p'?v kOy^7@5L4&]1iT>=QmN~G [ nd* rJ%0 m51 *7*-D鋆G.DÓM\ w[1l%IcEo׈A낼)+nfl/fnTitCx{DGO ac 'eOީc 3pRIgy8*QKG~iͥ5{eb0.C_׌cUi{g(!0t?C]Q"3y{E (1q,%] 6LIuJ΁E\.ڿ/D4e/lr?~9U*7cVڊ7(o{1ݽ}c6@>] HNJ-ɫh^^@+Q6LLp!39Gzr8I H= J k7 @'C3E/}ORZڷKP^n|yvSq7gXC?D .e6#??&qjOF'RvH@_x f8Sy44rgOiap倁<,=((DcY2S|XsO?& N,4Y<ʸ>bNںwmeydԔMjiv80g1h.G56}o U}-h9L$#$=g$p)31 }{$y>Kt268d%gaK@[ʩ+_7 #P9:D:wd9wJ9`J6b+/opl8L6؃[n摭 ~;}cNnE^/oFIwI؃{bW3& z/ M/ mGeQABqU]\ͼ|5k}з1t\>]ǽ-*} ]-U]@WĚ%r?4 t^ͩP<䑞+WE }uz?ʧH%X9p Avs{'JQ!T4BIB^gU@28"cO>Um_`R_/uc;mC 'qSn.tBFEqQ!E!%;FRqYicΖa+߆6s,09VRCΰ1  8Vӽj4;h0/xBE\1aIca)r_|@41ʊQg3m婌C܆C[,4a)Xz"|!+ҵ8rE2Og4R0R08ӭcfWq땀7`dgQE}SI}؁\Oy D5f,pXn: r7O~$h 3fhNdKk7'0@}ek'~l}9eCp$CF E`Cc.s] #f[xhDs̅j#0aAN*V@: E(D_9ʲd-5ٷ?O_U88J%[L>KYBL2 K>moح[7%&MWlgwMpi譅5'綳wH:k?1vxVO#P*7j;7|\n9XVnO|DcS}h+xԮ,vDv*ުf3ef6Ep3pz'4ȧL:#B# GL^Rvq^}f1u^:.M4\y?u.B!@,'\Ż|v|ҿq>:xq|mt=X{a,2tȭ& XMRf#s+}"H Ci+ayŞ<ڶ?!OPsk P6cv(ÕU*0deB{DWvbhk$_#=gmWuH" Dw{l5B,>Y󙝎_c= pxy~a(IU$Bcrv )Yrakh'GGC:(,B dZbP&RؗNg Kr+_"Ł+ٜ5a1H0L`QhvQ'+=$ܩlZGl3>ftuu5O :Z5.8/%PnIw}|m!_̪v8 7n7a(3Z(nP]{=F.(>yÕ#x+lα|qk"o3y2FԱT`* I|rG_WçLr6=np3qKkSJФaΕQz(! E}Z2 0-KAfg/mt\Ha"&{ Qh ]2?Pz`lMՔvDH$ nROpFѴ5f9C>LQJy+I~X-dX}`C[;lee6oՑjgg%@($S8p{.QZ.boΠ }w][X[DN 6tW˶l/^yS\JB6! H( ,9))\QG7 iQPH&%;:n>m{%t!aXmmY m>$+2 J{h`}-ʝ6C%"B3d->rj者d8cb\Gm@*0]Z8"*fn Gd^0V}w+᾽y޿{:h$Z9W,la6 NRO-DD/o2dv>#J⺄_B'4\ҸZ:74nn= t$N2`_sSV#[ eȷ$Gf4Cd4=A0 n(|y{NÏBXM^Vmk~>ro.5c KN R(-Gvd#1Ci H&dD*Yt0=5w,SXyرDeGI,"L+cKAN.v4պ^% O_jZ2xIA٤ 'ʤYr=ZJk2tv?A -V,UvJSaC&tqs4'}{2%"~~==?|e|{+ ]kQs҆\^O]@Z4PL?#P_Π&ݚ&{dz}@!`Eyn.A:R!] F]uL~- F'KP:w$ނmnnx>*# S E$BbRfMôkCQ*N*SF7V7)x)9V~vblOPY0{1u ==z05I?ǡ\j]_{uq`8V6a~֧Xx,sʢDBEm-ۀgkss9[oqNH/p>?e`)K܂L BH4^tPDzX -Kф}*ra-\QzH&xNdCyУep6S92G!J|Oϰ44kXOڽ{7&{czqOя@QStDv8ќbxL^ʒ+ /8ֽbQOS\P}8@%?ߺz@s751ڕMSkss^6dI 5]רSy׷}]Rn/NƢD3Õ=a忻[{vS"c2CӯšX,I]^dpR1{ w >+m䐖 Ofa@d˿!ڕ'V%Ї<1ɭ՞ÅF?GXY:L  s4+Ak6 L,Q4`!4NY ۃOn"X= >PbrҷUh8`mS"pW(O)c@V{ޱJTnUOYHGI#8)0 JћM&"{+1yj'ui0 M?z=\_ڶܱ)։goe>E`;gPb(!RXS,g1Ĺ":DWH1;]FsOH죣 H ܺXȭb4NcT*[1\1`i4D T(d%9`GNL3@%'#?5{;X\>Wm̭eG2BXQ4l'KH k(MKQCm8;55LrҨ >:B"g3aOXS#ܪj>j$c,}qb<"Y(L\Chw X23`B&BĐaЄB_N uX'VX2E29E{a[-IK\.Y}&}ҼmbEcr}Jjg/ɚvik8PC]51?dRϞ:X6)z,@ ^A2?kñ/V%" >P<|^^ oUl>{'R0o{wɞAb(h2,I}6E&IJC[zeE((:^XfjxՐt(^?>3O/ͯ:~dV/Ju-ŰTbL0601W('8bPt;fs?7L,6!,XV|[}X62 }Qp53`q{1µUIzl. EeT`'Y^ /CpU@Ȁ<3) 9ٵRp Ed/@?B0ed`bUb  Ps cUm|1[6$ O#͒]e %TnZ%6MaѤ;6MG p\Vti%blwd GU:;XJ'7۰FZEu<&LC`y`,샛XLєilQBjC*,|` !g pQZ \^Ejk7歌Y 6*g=["irGs=ceE&:}IMev2 (Ç7;c+C$4((T x|EsHп|[ۉ ';i?/; 9έB~\lMLUDK@ +?׷}Ï# 5v <@#4GPe5"wQQJ".M6)ahlJ]\+ik88,q؏|ƀVEg>4 2-VR X.;p*Ci)}\ASX/Hި,DR)1a5][ %x{޵O^"aط@r#ZkX I|2Ȏ`zoD;`!g,#ficӍ9Y|> LG"fҔ{ 9XFF$ C)`|qp9;=?a˭FL*c5x~SnltEd}ZDG32"Oo NRɞ4 Z}8e \P/THݓ&Թ0 _Lh''L`@> g_NH w`kwI)>C,œPv n&cy䄆,hb4$Vg[d;n;; }l҄H >'XDN(DKK  ~ÖHAAfaµ.PfB]s*Հ'& S.]UR:-Ec=A*BC5}J5ƤvEBc=#@u a$E 8yX5dU*L,"吴SF3< Gi0<>[ݯw ']VN&jѧ'u&& }B(Fچ/L15G}HGĂfOՌ-&6mE^k' ,}d9T k6k] EvU$P@}9' #&a8u 7cizt]5//Uv@(+C-x^w\%JZw]_z\7AbڕEA)ew ^p>S}4R ێnjxeŽ.!T/[}}@MEa/v+S;G'B0pk3#^a<#V?e?Z~2ۡ9,Z o@@~]܃a\KX st @ qd8g>OqAhkŏqbMK{hXqC{X5pEqhЛ oJwYB2 ^eAmd T ΀,W \ npl$h q"[jD fׯ2p eݙQDooWkY8NO(hmZ?5 ߭ N`Uі٬DW8"qDx٦YB(l 9&=bJc#m@Ƴ~Ѳ[7m:|i{VjLKJ9_DK-&J:d^O ;<%I05ZMTĸĭ鈀&P"Pƃ 2#wWW,\g4V'j/勿q*YAeeV~YUxx0fmd'86^ź*BW.Ӻ&b9&~xh:g(>sn/廫B/*(-E:0m/=v] ˒H=3"#"T|n[yZu\^ۣ 1 ʓX/lp̀pY~b oDr 8.4#>-_m=}@"@#2u՚G,F3AkRr6'l띁ef - )wB ~v 0U4[EZ? KF7u5Xs&"4"ߧ qYT2zn5vn[+LҎco\Bpn97j5N., )gx"8V .TEQǑp'L{IЉ|imڇڋDw9WNF=ILeVqo]'cOħfrD(/x X!vE޼9g?:OV)UyAN0o?|h7׹? 0 !wNYHkq h8ރyM^Yp4Fed!*zc>aڎpII^+uc\!;Bbyl z?!eߑcx؞ م |&8u֐ ]]鍎4旬@ q"ޓ׋qv& XfK$ex::9Ě\yAS,Q!)nLsPSd]Pke7WVhȞ<}f][{ѧn1Ѣ/8'>^0% cg:-pP^xTwXZ??AM'vimx,yUaC[;lT}]Cgy9xYi/ &RMC!L˗L2CId@A8c&-Jx`>䞎`pp6F:"<qۆ8^hڲʭZ4%sFՏ\x0dNn}y|w!-gC]Dѩa2NiJߏ+P*X7h޻{ߒ?:g cϖ1|FC鑺2fOA@k@FL*k36[D .&feٞ?kV693]#2j|e`Rl:0ulGQ\Jxl[7LD*J\r V 2ggpFB%@pbJ~:@FNxX`5EC5 FȲ8M2Oݬ+O5u\;Xds伆X>e1bM]>>GoD\CH62s}~ԭTHۅ` )O@B\r+=k(IIrَI\pHQl 8?uDA2)Pedh (UŁ'T(CmO޴^,g ~3ygT#JIasas1KCq,Pbp dtyԝI& &9B߶fBF7=Cɹ}zL[xKH$lQU߉xLҙ DPӶWRAs,I !ְ@7=y-:>A:oGăK4a 7LД=o9Dp2hM'IS)q' a6oM0`(خSS Jtz5Aj997PzAx^nXPxul됕Srk3@.ĶgOE~489F2U  p:k G36x@)-sb{3(:# N2=+QG"Ih_[O`Ŕs> uG⩜ÂHvIuqw10z%3 |̖cg1EH6C">K'Z7V&Ftg,e@3xQ*rr@rZAlYpB$Q8.Pܛ *l\ T+SVkk,Md?BNguNQ?g}`}R~*8N(+E::4N,6.[7v?SҏIcX@RfHj.W/myd.PC'0Ǚ+|Bb)KV5ZQPI G5,ˀ%0Rm>%HL0"W$zn ?>wÀɚ4A˘疝sL0Y6ץnWU& X\bJƒi:Ie3#5څ҃9V{4b% "ug PE )&⛉kڌܭ4XLFLe"yۃ1g!ENSH!!1ʣs.JiYV%?@M^:IYCv 0$ pݫ5p@ N K&OQ\%:^s1!$j 3B/eKg LI{MחX)M1{T6>ӁK!B0+^ ']ҡHEh?l!&сO$S.ڋ,mD?>ц~a3L3LRUcE]\:O[j1$p" ,NW05G A Ԫd^i # Y{rf`JVGt7֭|wG1 U휨xl'\7M(̠,:&ΤƖKו""/>Z]$xt#sdv(35PzQS\D۟uIr#! > ipM{(|ެP7XwcY@9Zch`(9&y7=x>' *Gasޝ_@-JMr@. G36#z8K ۢGå`f =<&]kB8s=*_EpjOu]]hBulu<9@1Y]ݏmKk?x n3s0{ӎ]6EMp^sOh X7Ո2s}+hw`Ӫ >ghN:7KpxhNnwKUNU;[*q"N`b؋vS-DF<1qgpa ,9!R9x;q' _*Dߍi;%.{kV i㶛_E=ǵJ4fx;zJ4f-2W3Gt  y#uaJ1M ݤ aa@G]g 8 < )pK9"3Ɋ9_l9_ѱюDI uiRNEK: 䄆XTX!\WgÄ -wd ׽6`F A (!_Y*뢒d5E:EFvOkc+ ={l6DY:AU`Vq8b-0AB?e렍)+K3.q%.6`k^ I"eH_ɱLBY&Y]p)%x tJ{ CH~"MÅgv TuKpBvI&Yh]YZdj:|rsIJXx3#D ٗV,z^Yuϰr$]njǯhzbA;? xwq: V;P:~(-ZbCPh'Ʊ"_E^@m)nEt&(>KT GKh|3>]}WXG%j!(ڊ&>@/C GM!Ze!90LI\*G'4/%GI֯M7Ժ ]syʅ_EW}DLMU!uE;q;_^~} s Ϩ٧31ӣy2p* At{^#`1%{NBօ__>MRfNo9T I, !ebi#a0éߢ"aCm6* bhडMntdX6c,7!@w&2=yi6JR!ߔ"z e+[᝛h`"E64"A w#ZD3OäIc"uYyoŕܷ%p'`D=.mbX\8V3%j E5`jwk7L@1\>^7Ř[ a }bq a[\!waY=k-2a*w+S`ExLO n!bXoeYe8kE8 sL* d'bq g}P22qc dsXi:L"t.VF up^?_egg;ϘX(Gz i[[EEBJ2xjmJY'IE/ *@_ NdrRR<#2!Zuxh૾Zuvqg VNPX UNjh8)&JlHH &1<j[ .e<1: D8ۧhBe"^B-cQ<2#0}5(0l*C3w#KIyiܛk+ȤwgFy"qOI=4Y2bxt D_34O뤃Lg_I& E.wz>׏&wPl ^Ur5 5EV:7#pK2Qd#*N>H&Dm81hrt1G <j[]irfZpu-ĦkQݾ\W{*6ܒVG^=Tosm"Lp<RGA@_Ͼ^ʬ͸yoS&>`cՏ^y{_7l59۸O' !'+%ߣZ"t@EQOh pGL}M$n/0HM(:ֱtiEi[5r?\C+`;VwyzLX#sd0l{AN#łH3Cf ȍ.H Z`,AS-\E!<XJ+?饻GPloʂ$O=B 7#QÀg'HE2}hvmΈW&itW3C[b}Ԙ Q}An>Rap$bX_Kk ЦVD| 4Ͽ=FsEdPE=jvSOǀP0y9߻zLH ʸqU7oKd=J ATLYM (KCecU4X3ʑ7UJ@[yGDB9:%;c2OiQʂET\zcƭ, #i)Lňl7Q8Xy(Fy2ԓL`fE)g:FlZ-KUIUNG?u,Zjm:Ivy?~U'؉m|sWֱޭqr`W?~:fêc*rc#o?ϱu/*k ]Wg9 1<]$PI=Ĺ1ֽ%z爵1˥c/OfY_}W~U]T;[ zRܣiL[Gxw&Gm@:qK+rz" 8Ip%xt,I:C Y\ ɊKQ{w6l;\)"gȁ<yxqFlKEF+^H)N2'ֆ*r ngPBgO71QA$QkˮDz' -fT#ߘ(,bw=dJcebǬȼ IYIO*u_V_7Vp_]x/,Q=EO|􊙶p(%Ѷ[uނ]ڀz?@Q?4qv,)3eRfsLT.mNYSLJzM7л*N#u=-Wwo7`/<NGG}egZ͢{[ tJ|gY*o2.0Fcd.̵u~ x\^uG:۸o[BS؄,6 6~7[XȘmKH1i\n0(]fS`?Jhӈ0\j7%3lL @QN0yآi]f``NHzq:&Q wW:־$]Co'@IDAT$J\;KX3}&k`-2)K,+{4$ASR⟪la䗲I_t@X[` s&֡>).fGOX/- S,i $elAQA\)g7nKN|z m>&լ}\=|!bdЁE'4JPY>.ھ,HX} ~z3H ^NWn ݆1`- Cd^Fթk&&Τ J:?4-^eGvw vSg)8Ԫm X5M4Uzvt (e R\-2%u8c28N|V`,Dh(`hiZw HƛHd#"4GGN)<)=e}I>N5r~kئP?tgH{oU _߈ YB=}kf.my *K;n'gա0dxrLxO^ڳ/<@/F!WD=7OQ S!4U~0TfTO:w}Rm Wԛ ?j%tE+|ћy ꎯp^=C*")r ?dI$ik"w8:]trcT=g)P ST]Jl+#J"h5ul(Ls (uk6fZϺ`[_1CQ# ߒ}u W:=.Krxp똢х㲽07 g_@ǿ쾤ox)7VOOHWjW$\I4xgtbnqP,oZ!p*ol?g}ZQS^߉fw&6$$N f҉V0t=gu.ŌDEI+N悭Ӱ*r03MxT(Wkr,/=܈S,N#c,LIPJER 8Ky*zG#Â??*; 箥"M*8\[$(* l"#ĸ%\RQ isp<=rLʟAI-s&Ci/1tiܼ [ Ș&Q%-dW ñm_ $}wDŽ/L?fӆLgaѓۿ~L*wcgƒe} XnQ/gP@I+{A 4Jp܈:Y`B` ib/suUhi/bqwQ/c29fҨ<Ҹ ^@ Qm=xSCB<9ře:pnѷ IyE2^@|b& j QSH[XvftG2 L/hl<זiL%Ơe"QpsmuC:ae$sc}|lrϘ;TR`Ѧ#/ qPR`G-VGd9:$ /G{{ $iC: $Q)m@R.Č)5J@LQ 꼜B1 #bfУpxTHS&Mt^,/S 0ΡU^M]J{y!oWk+ZuYgTy%8瀉e?=g=Z}!zUo;jWr㶭,e#qj;(+Oz$.0n\ վe;J`PX,>ʚhXHg"2Jf0dM nP) Gu9; O~bwHӹLSY`U$9f@cqmFHCxTPz %DD踽 ƻXyY !Jy@nZm@? 紻@Z-d Hgzpf%\oڴjϭi1 %gH i<;Gp_k*vFpFF0~dYuyK'i }#@9| @ϊB Zd n׸Veg/ųC z-ָE5_ qc5N{okHګnTpPPҗŅ@ʜ9:YW' @hWg:@T$!`r %Nq\W%P&222N!U!E hN@f<*.Ν`p' +da!" f ,Zjj,~JJˠ>:0B/v;ʹenTH4{caXsVz>kH-OQC}\l c%ahS[b{m!EyڣyRX%'Z,: DEnCLbY{c ɜ!R], "rJP|..R`3b_EOu "\䞖Z^(VOBr!eHj@xׄ+}-{ N8nl#xYU]9te~s:*+]xٚs{iM\ fq97>_-FX][5Q|뻼ȫc?7MwKπ} sJr 6O>µB'9CL Lg* >fX:S:0MVu~6}w@gwo~gijooؿEjG@ RJ++S;xկEN&AS;= l#w. SΗqaed QRY#8KQYƸ7tf@cpSȲ m,#s@={z|` ۑ ~ԗO6 TMq$O-TUB*Xjy喈jpg0>]Y?P%EߊXXW~ mķ0r^7XFܻݴMtWvC ߯P`EZ1n߰:=_>i/-߀{#kNwm PWxl8?Z\ _gP)'[;W{.Q>Gr \TSZIA zp]vt{o0 h22h!;]^߱)>V ns q#%O8o"ud/ {(JQCYGAG I:}L)qU g &Hمy'F4)?ȍب^*KJY,MP7]0_*-c9='lmk6Y?"(=0ԋWEkm0R$Q{ ECz.K8$Ĺo :$~puiY}t[G-l01vm+}^ ˾ g~ Z"PV~˚Jp:O ݟPYvH%}κvz?vSs9}$r^Ip'^V^AjeZڔd!x}m -96TXk +bDG*1NjyЫ|vU)H{4gw>jS;94WPjBbm7#R )QV7z'H(,.˖H!0'̂$ ЇeH>!yt\7 [YB|Xi#ta,bRZnH!z:6I0?BoGHOmS|ֲ :B (5:éMy-sTF*_b^΄yPax8_CZXAY}L2.yVL4`YȕHL>%;E`|oaX\18HM_5U-uKR]n߸ޚP9Y񾊭>sՑ6[%x ='-$ %i?@"k&MƎ -W541r_>ʷEpN{. xBHk1XLoq^% 4`눛^}BK c39qȳ? a(VmvZ|rbڦmk]g2:G ZK0 }HgF.6a0J5BF,e?_G+X>W e$ٶSVh" $yW^I*mfO@F_yPG M *`Ƥ>_۟KhO=/b.1tu|: cOܹ<ϳ"U|3-@^ZO( W#f?aln\yu^u~?`!wL8nj$,rPi+6qgqv"FpQ2"ݼKd;Wp{I?>ұS[s=bŋ| NWdANlo`퀍K K.!ibO`XO'VLQIxQ \غɢbͣwܐY-; u yBA[JQXX 4w p'@͛9}gs6}3vBh+'2 @?62b5&# U]f5NP5C 51KE6) (/+ OˆJ<3?՟$s(r]0(+t}]KS%iA =TQ c0F%+ ҏa <@wv֑D멶^P#ݲWFM!sU:86m/Z>Gc9Ę= . t.Z꘴} ֲaѱS{ k8<T a"8{v&J͇a!n,|&GɎɅJ&*v #U`$uf`pZ} h 鱌hFaWo11 Kh'#qHQ8"p<1.R&:Do=:y:V-M6bXvF㹹J3=0B&|̶H Ѥ+r&礌—0CCPcpf&[:;by4 o&R$#Xk2T>ӌsR"-B,wU6TV1 Pʮ2{º @GIO c=^O@$ݧ4aUlՅWI`] +'"C $!XF6ʸ,xB\e@e oAzಎ]^s?D \/Qs: yhF9W '`b#ʢKg+C(>3|K&mI4mi{C`7>ee{ZeA4`8 ͻV_0\7ΫhOX]`f̈́}"Iyx%Kby4GeWhn&ri͞9 E2@8Aqs [xöFS5\G6ByJd2=RPШ⮰D 4\R>; V[q쬶彺C²rnIyڂ1s@J ILj$ *hZ8JN)KڀA6-l*˴௮tM[ZON2[h?k X&&4~-ibT]g0% <8K{wi\6;,S;ε{,6nOgn3!i uJnwQpɡ5?~g;NéGQ0b5C:yqoeZ/hŋo^哫GD|  Ku;D;oH P ёM.T{$/Cs !9PUѥ* &ꕿ 7L?szlNq23w;{f YՋ^Y@Igg~0NGNP)wp-q~:kҺW 5?m+( 3Nܚr !S\$9*.qLIa5A~0:SCY˭y$ǃQ=szlI: }_'kw*_!AdLTM9 ~A B &̒P򑏐L1pF/L]V>ds4*׈~`rgӼQM 0<"3غ& "ML<*8Xl3}%*ȃg,M8XI>-:b<Nؾ -?2 ^PD8*2lu=8ep!p>^09_cmb$b_[D!t@{+*8R8 F[ 3uc(UBpmmrOq MVi?. aTXmL, B=}QģNe@cQ(m\~0;- V>7m b $N%-ʏ>yq<%;aǙ@j28fT\-Up3H9EgxD`kX5 1RwhbA>9HtҨ0"ZU5/=P 򥧔 WHa\#lkP@.u&A${si.=; W-BJRđ_ D/JxR#Mi[; "ɱVhZY畷JjV? ^ZxOg>kͣ}ϭ_}1smj:7q񛪝7u+ / @ %La9(GE نFB&ZʾWuDqof-3 $Ƞm )D $Ae0r2([a (ޝ_dSM/Vc= \\AxB#Sp&CDB2(,6EJO<`a3,E>rkiR*VU0 ~jsXH.KHvR9Y)6WM[pi 4y]g7u^/}| i1\YӝAyrwV>Kh{/ʿ]zO4P%ctj0L'U *<${YK5;f6$`tqk$' ?#b6˩'IPuJhCn DY+ ƒ3żEn%B_5| W(b < aΘ,|Im=8q 1!PP}s5idM(˕"W~mcLv^IOŇA>+Saѧ%~_}ܽv$nYcKԾoĊ!V;Ey٧hvp5ddV&]vO~A%IaS4.5@KSH!ICiEŌ;&>XP+^j(wryFD"%X0AW|7_3OI(d/7s693@5LBO%xM1Ѷ<;٠VykA;%C)n&>u-v>}x:D[rP<L9Uv+ܢh?Y &:W~対ww֣k_UW# `P>eE:/E{|p4i^~N=d#-S~UӀvռVT..ik/ @=Sˆ]bxGMv%nJ7`~0e{AtVzk`sq K#) J-fү@<(,"ˏE2ă#,Cf>:K!B: AI:t_ h3,EIƳIP76 h Od<짚K*LG;f 'SbDLY`d ?QUcM=6w?0[N>QDX5 ^SٟE egȼ6ami'H|Jc;V'[y@Iʰa>ee%5 AƨrHݣiFr.yRd/FX_|1<\4 5$Ҕldf!j:&/Y:2tMP `Tks I41yǒt:jY\!M d-3A"q*v8@ 'c7k6V;H~333v 56>2l7ڌ?aaut$,`o '[4@'NA%n=r&i`}k{v6ispj˖n'1ɏtL0!@X2*QD w"eJEYTMX<€X AD0*xǰh-?aEt8\P Lo;py2i3X+y-JYϴ/ ۽q'of)Qѣln9}11J`8.apc?x%R4r1.0vutTnaVOک *d^ߚixxt ! xx (V\KSD ` I1 CNު~VT:PTwuMq]/`$AC󾾘 c#PnUJYD&3C)ʼnZ嚬`;07w+;oz$V_K>INI=acǬݲ ɓ}IrbeY]8\T0Hw%;rtBH, 1? Yy5fuBm )lbfAR AzWnfxfyklAZw);tm ]e`&S9 -gK%12t-:'!w^0|Q@7RDDkjr@uXP=d:Cm!PtUv<ךXfu}"!QAfF4$z"LMyq{*­([1pkoGna~j=p8FNa}u[c16skդµ3 >2ohc).Uy6qG^gU@.pZ)Pr3`4}5L9չ% į1WR -f^@Hl;_оGB vdt C}ca!G"c;(Cs%5DÓs ;4Ջb00@E' KJ[AS+4,ٸ48UaU옄ZdDȆvlB`ƏQ8$>?;Tk< Qe1^Rqnzm{"nD~^E3hYd ÷op@NR"@t q>e[ԥ߽ T2@).\\Oݿ+g;?=@_vZNK ,I_Aַ|v%i7[;=h6Llp:]!UhcL۟_]z 7^m^*yca'<$G_I@DiP t%%xX 76+0"51n8鯒{_hU-bv+A,H(1T\{ M[ O{ z0P,BBM2VuSÀ6 # b#W 3{Wy6Tڄ'D֨:4yډ,^8CH>S+aGDBW;-=l [2RACvyI+gp$֐$%:M˜bg}l 6 D 2%F _K@ v[XO` eD2m!s&ȗ(; }Dްb 2[s#qh=iĈ4Uw0QZv*T[*kU>qduVԔ-]qpow.e&Wp;nk)a[$՜색,=zM.̯r`ŽW%ڑKsNE$%I[122a smbJcԭ܎o&Rdp&+0mWxmeבRMTmvpdȡ=UaM4Wa^$X9ySnr*z⚕TvDMBud 9y6LKeGhTڊAܶ#a_zki K0NZ @ٮ!m/GgK ]#}A2Adzdll!A"2v+CQapѱV# sa/3_q /%]89 j gTf=y}ZDbIBlЪ>8*4?4GtGOVUZ,$%^z]h?ݕv|0:Qk]O|^A96S[e:%%L+`\hfhU2Al,]5qKǜ9bvٱl}ZPd2dhgݣZUP Rx&O$Dv ̃,8uڽR>Lӱ" *- D<{&kL:!qE&'JӶ]0V#+ Sje?ˀ"LSU.%( h,p$gPRI*o%DQa jbd3vpj xN˸(g=2T,..嗀$hi;=$ ʗW1e|^WtHk]DHg\bY9=8m6!{ю^X\y\6z%5ID( reQ=XUbՌd *\ ~yeJ 8E/YνX.g_#.O!IذcT7;u[/Ы|~=}:,|mɇXqM^ﷹ^ IIvwerE<1qE|+ HAzo^XO SSb #ӖM! !B;-xK.V־$q:@F tE|q fʱX~:+.:UB)‘]{,kNx>aŲ @`D1l_!>Tk(>kaO/:;CG& 4EXOL ({J$,K B $널gXCEOoc *TcP`彄*%y M5Xj\0ѻ0UUղh2ah'QyW]D| aM,OQByBUN8'V.S 24C8>ƲN?NP.4@IDATؘ4sNe2!L%u/IECcb*aoލ =)4*OlG`Xtec$_a_da 7 "U$z $m0;dߣK9($"ꆁcӬS}4M]hwP7 ʊj!Acfh]_r f5#QOs"I+@iqú]V^bid\?> 3*[b_d &C֩$k&F+ɯUmn [ @Hl6E2a&^fL&U:]$R믬-@ER`g=8@*9. YmɃov.A/uX xӊ,R{Gc S_h `U KVU:B5>Œa£I o`B-Ь*L1jP6E5#r`2[d.8%N}mb:n]_|c0@J7F)HA)ttC)? 5Yɂpn F/2KT6!틮PDas 8IP%ue?3ȀK ེOF!9Dva>$5lu&CZZ_EjnÒН}hs|gz0.IP{$B1IC 2 z{*q,ꁵƯUL lЇ6SN s`с i$EgM.EV:5N0o ۋi|(0{s`QzUڗħ4Ovz{HXπb{|!'PȐ#ɑߠ+(wZaٝ 4DP(EL` U諕 \Ji=e;RBC0rG"A5Mtc 2 86Z>ގѨ>19:dz[juƏ:ow]zu& uBzO~$`~pVsm0Ay"Y%FRٍ^2кAf4e:`XdBVE24q}]XڴELObTٙao+GMzDgDڴ&D>/t4>*Dq07 $%$@^€Z5F,ƖhSjopQ-ة]A>"Q'6@(~nӖ;HB*!GV)o)$Ij][&`'k=e dc-I5yL,ae[*=/. ˮ&N6 yhl6K&i@ga0xR3A.0נiCK\O1<,j܈2QWWcTCh}/1#&>*ZL +-Ku`·5Uz0wgy%C\7r(R3RH 0G$* k@}<zp48@PU>S!$S#\~=ÇD3`% a7@+$+CJږ|!`-M!.+-<0A1?hi2ϗma>*[+մOD#׻#QWA%"UB aumh?#?މ~؛?c? ;w\>ֺ3umɿ.tP5l-dmxJi` G}iD{FqhBxJH{ёсp " yǺ4D 2Nlr,o7b.jd1xmvqMY*zRnt>:^PL&=Q:("5 Ry7 2U?:`JDJf8չ]i @:OBdԆ=w(&-|Xp1(d'' Y-S\$TƗ0f39<$g6}γ8ڼum)%=d!P&#ݹ[)#o>`Ht_|h)(ZMx ov$ ?$c;nuϤv5X*_0L&l9LAI\i`JORO^YIloxaHK-Ho:~NtP;;?7nf{^w1h{׾Kz!{|;;oodpL>"I7__i7}79iڿ˿؉'ۿIwooqѕ)cXUxp0`} ب, BfW |Xxy_zp)Ar>R &4?Ԧe&T(mS3|ٷ^w4ҭ ˨ZN0W@yP?m@~n{ܜ3]HV ;fm yC1gwdzD)@>U ˿a3JQ@KD'0ݢd$+M9#bC=>,*ט߆%F*JYfя=ut[ck .֖,m}Q[\\| oV|9@h?ﰷmɟv>{n?C?dO>}g}}T}֞= Ξ=kۿm ?~ozվOggmbb¾˿~w׾ |A{^~8~mz+.@r <繁?5M@'$Oe[a!/~X3؉A' 3G2;H(]NSYhҔt,ae}MfEe $lLGa@isd>4s$=G|!Badzo Q$OI R򜉁 X%K:)FdžfHF"b)ݡdVhK>m4:/ga4 vjv8ޗ*BEvzaVH"!rC B=?Q[8Ku%Xγ3&& MQs?׽? GO<{/&S@sppЁq5yL&VTp7|7ĎJ?y^[=W.]~(DHp*Hnbf5 U:@fsI6]7$b,"ql>%"()(!:S! aKgɶe CL@>a9[^gh^Q2(N'`?GZ3Du[x߳NRY',B#1ПFId:85NErKB$LCGm.[MG+dSCKOv:I2Q`E8*ҹ!l#{+;zgf8}<0?c$MRT*- `$ Ձ(qͨ=gl),4]ywHؔ,`hUXf5o_789-m:=_Y_et:m,jפuw}|ɗ\; -BbB~v.Oi;|޺us*>,~ޅ?>$ނMMM߻翍?D`o$ Ǝʡ_k̓mRaGd r^dWz_.Ne%q j=# &&b?O#2eDW5mx \Y[Ƈpe6g#)y&-NQu}6JlZ_9:Aw[,F b Uea'Z'vIy6;>B{ɝ鯛"O!T`i78XK i@$41oe;LI*P)ǨCQ`q9*2 vA6M2ݖϧMHѮW#UˮrbH sԢ_vxEC Wy@%m#^4˿K?tʔߕ*,W];9Pе5W!S—YEƓ'O20˫[nYo˔TxwGv*Nm3t AL!z:;0-;][RcOHDhah;iC멽|?l{ ?6z= _]$t `,eY!$IHYLc@(1:Hd Bѥ{؎ ٮO~@! NaYȚ"Y=g+gJ< $WxHy&0Cab~CCVlPəD8&'""ILEU)6l$rw֑wKfn8xfVՏ $MTN mN1Чg ǰhgI!2ԜjIUd&?4Iy F:P[i5\nv(lĐq6uM*IJpF.ۭ.bek5)$^>-=6-IWB 9vv[tF*INbKeK' (ZJ0+p(mc.Z;& ~ٗ}Jˈ9p?M~ =9s2mJQ7J`} S N/L t ϸxjD$0wWN` a7 8+8OwXF0uvT7Rj+1ɕī6/*&ԧWAPtZ>Y zTRNEb% )p/YԤ&ve[|wzaZ@uǕ\XtK` hSN:]E|kJz&xBT&'}']^}W {{UzӝcS;WQwgC_u0yO J_n>iM?};B;c>/ήu__?&}j Z!{uo>fs'J[ S @?JuH`3KfMYلwy2M!wU'þ',D }7:s6Zx"bW" # I3ӲW?9n+Gd]&,ou7Om7M@/Fd« .FpTOAC Wۉ чObzWZ>g9eAXR2sdYlnϒqln{.zހ; IL q zU;t<,m A h$N"/)Q&d_E '=aQm>4OCQDHjR1),mkY(.mPs[4<{dLE[WG}Xhyuu<-0+;gڪ2+ XΤKeAم! u^WY;2,j|Oԅ&3UGNYѱg- 5_岈af2B8zX}W|}%;Pi^;B.fyQ+5n.LT !&SVG=vx"%V7/[Z+_˿덮_ICV󪰼t@ 4)Iݽye5_5&'1M:ti.}A7R#Gp4di{?G>}6!=O<sTֹh&a QCR=$^ u셂d 1v월 +'T60yprm-QRCr/PR,XF0sU[>آH  f'1c/;4>^yFάwYr9AFւ0maeJ,ݵZ*h'lⶌwgҖX)Egta GcܡD cڵ]˹M.%xlgl7K:.h衍TE<ޟ bD#IY,?%41x|"qrx! 7a)[ssr(xT3u0cPiupx҃}II';rvv־۾Y(CB c:^Gq:7>$!NQBbmT,FIV5Bbnы}mi}zU"aku0P<zպ4=]Gk[@ ,>ڤAчOSSSnp^6GWN +HU]Ҥt3 Tv&IG>\>"KΤu&y*}}}%T]ZT}ci?;u__vKe߳~QJ KӴOsQM2*I "R'" Q!RQLJ KG8+&f+JKY@5a n)Z쐀Mū0T qg'>,ZQFO36_GӘH,L8؁\ >юIn%m1LWUX`2,Y tC=1)FQ;<%b4,.c(L6R-fK~jyL3öAmBq](r\J"˞+Z4^rLD0F05TRr1GP*ťT0TMRxқ{~ dd'4}"2Z49 kcA#5#chfnP.fٞ`_ ݌tnxJP1"|K_JxԤy~PmKLe}{ 9cUk1ZXKi1E&%M()keζX( ,@mT.;+Ǔ[@ֿC_ifs(pus.%3M]gj.}aR$K]|daYDIb{f$w*+z>Mf-$`4Ai `@SB)X'B!ۘ#Ӳl'Ιہ~+6U}ŧ#Ǫ1U~i\)c)=%ml,Fe4T)$!]X(-TnZ* @'Ji& %' sA{ {1ga,[9GHn5UƼ .ME!CC@GյUhmߋ+zX29ω%f"SVƤWaU:ny/'j/f8ѥ*3BY/Y[U@PO@b>~w{|^6rjF$)S<!$lrz0~Ғh!O0j7x̆ƈKȺ" tGRLm LڣL&R%rTD/IWqBM}WYi~=6wLy`@w$] + wlv.`-XVHf›DYOy˕ O~oT=fN{ jXLUP썦Nmi&O tBF!ΤW} ׫~4΢Iw+5lJhjW#[5 4v&e Kϩ,ziയWΫe׶%Xpzx>Z@wwZ{֯9/[߰#y|f-;VQ&:Kv3{Gb4oF@n&0#H5t3 jǭ-S"k=b[92?ȒFsf~n2nқpοǎn}9D % ^Na|B=H zaL/eR@U;+h:-`oUʂ8$YU40%?%s4C3v޵/'er,?0 {͗`hVicuO{厨He_9?Ǡ^;N PUI@Imd58z2uU*K%Uh[o{\أw]ξFSNPiBfuҦ jz;BүJIa^?@&!=kIv~a^MY| $O-Έ~[ҩyZУ"l\#2 Sk t$!olxdLnx9z&-50_ζ^6u݀M [/i=T1fiþz7ZmPS=`l¦--YL{ W(XN ̩2݃О <Ac6e4(] T#jD1 ɓA5)goALGyD `_Nk [ܵaXrz;qǧ}/'&&?𶴝LOg!TE&M޳ZCȩ^ꕓ4tOg+?IHcv9ﻯ@5 B7ܪfҖ ɼށ$Df|J }!G<6u_Qߗ>„U%0qXb*0CbEJTQRC 8{$N=C8$D?m|0e_mS&,QA3L~aaU$ oh#k|\"% yP^"s7\o}0[$iY t+ +&{bejQm'ec;rbG'֩l, !GvAWD/2 h8w(I},~:VʐrT0Z{n XE%L!DyhiU]My$ (GrbHVF@xi}-mn <_-W>+ P hVJ e7 aB.4`Z ,Dv/: [;nT{c" 5*&0?ȐWV @,@Mf$ZDAQXRO=69K7ѝ-mn t[/Ы|r㞨8)=M㺭cT^޷p ."e VHN5!BU.W6v+fZ:!mhaTfx||"c {7{dNfVekWw6w߁ B TaIO~zP8KЃLS&iR A{/.>R]]YYɁO0hW3]y'.sҨ:7WaWwCY??>&:Wd!.Iȡ̱/0۝S싘skSuW$2v= E1/'*B@;zt + T?#=7M Օ[[R]u8h˓S"8L+ċffF378D05rÆOɕ[e~ Ah4IIDC|pSG(1/V NO=ᤷ18%yE `-VZ_OڐآhzCAg,~䳙s4oo&`&`&`&`&|'`/39`7J:3OVŴk_]/O!_zP>?+//Dvͫy81LM^Qt#AJfI*ʠ`HM}h}>in\^&sO>`_j%VyLRӒ̚%2Pt+Eqotrd\m)m8'3㪸vu4L;{ђNc pq'SMcSy&=$c浝>ύK dj z'^#ҿa>|ؐko2Y7~rzxȱqQ3%vIHX%t҈),[ Q/} 8S#_KčUzNuwB]PoWa@y{3333<@Ef|cy?=yi'%D4G }BS=jJA}рNupl$QO^L. ;QMRrjL,/]koBEj yaw7n 3|=9Kƈ:qS4DNʸ _.H:a~C2x^6F8B/!OpM(ubJ1},1ASt1ElZSIgB.u$_hQ I vP[Em}.gH!}Bc ɹU`cstkW'ub戰”umIYN.!#>@lFl3efffffxE5y,V]RU[K4dU??S@'/eysp?\Pt[g]*:oz\*s_~-3ϊ8NQA~*%wPQٞ{z}D3%o d+y`M05NcV5nM@cʭ:5rD!(?%L:d$AķJPv5dPyzP] 2ѳΈrA!KI飯 GL4-}J/}I '8Yk2 siۓ=uqC@~bER g@IDAT}T6Y3h;DUF~k"6䙒#0zYYIT733333<@Ælف]XTeSytTgnJ,#,/旮 9\cE푴':&bJ71y8~y,jj:'_Ynt IIV! LaJȴb Z Ԣ~NDC`{mZJ iLѲT eI3Lyf*)ѣ\gC9߯ˣ{r'5a \?}T.!L8TOJ Ƶn_Z׾,-o. ANaT% LaL?l$fC Dst0nkS-. uH\mE*TҬkjj9 &Yg\ݤ@Jy>!+U+A = }E0v R; i~'jy2m0\wn[NL'4:\k9I<+ <<9b,oP`کeus_A7Tݗ_dBPʱ#R(򉐀~lWVSh'E6fffff|4܊p5GV`1Wr>,G h:" !n~ x -^r4#ƈ9EE&-FUqy0m5ѮmSh3 iC\k~,(bJanܳʤ.h,c s"J]. kz *i]w_O#J?dKmL D.k> } FәSFл*`$;21i>m6ZVs k{}cڒ0SKMB/J\Y=O)LLLLLO77PI,L2ڌNVg=O@kUXcܡg+i>ĉ bUG`*!1xc^_)aƊ|*E~UeZp5hո$|NԉUP)eEy˲wЖ4Yɗ1V2rҀ]&ĥE>2~ZqЗprxv*CX,.wH:_A2 z=i@`B&Тt (000000tx%k/V&Cj!ĸ=ҷ%9;7FopSU='CXJ^ WDEǢ-s[N`F)NxoɃ{2?_ǜv2;9\Fj!D]L^Mh)W1"<$ o@q/5 &hq3~9^Z90a&`&`&`&`&p'`}|w'|`wVɢ cIږ|rp -Dɟ}eq aӾzY],\%VփH<`;Hs */ji%N㋺aԓ9eV`I4,k:  |7BXI?0LyMj7 qz1ds`@d34SZ_+|퐏4%4 {:s Y|~9*a\!HV廿uI[ߣita$=R}Ly.r}$oʿ"GG\Ki"M,ȫ*˛oEQڼSZNuk8Zl@&8/4[q&tjrʄN`U'Σ-E:"/_0u+})/:Jfffffw>£" {O&*ғKg0`h\_9i<JA_@ 3в[ecO6 ? qXtS,t8L PujEl+M.Z"Ev HPXK9]# @`;ή@b<9K+dqz}11nkȔyˀ'~_YȷW_ C/925*Oa=ιXۜK'?@Hﺈ;^l3e巿)dzj4C&`Mm=yhB6+8y,y? {\ NES/t:h8offfffyu,x3 mG0u(sa@|"f=\>0ڛnkrҤ&e4$i쐓煬'=:O< 1f T: F(F9Ź$GF]IB)^Ix : dv2%~9#sl1|?G}H 0 մn#TU $e3xuW奛Oݟ/VN0p dj;͡4׎&\_X#[k!Ykwt'p/ଯ+?ǿ%o} qч,`Ҙ30P*!NT k"Y9V+ j vlw2$Px`2HLLLLLO0t! '} :h=#FlgVF}R0y9OS~~8l(!BBq͛x c K1̔`ºΞb;}~rH&o6et3ʾ.^ECr60y2j$t'ziG5QU @փ鹣TOE&@:ɺ]1)z34/%şɏ5QaT6O4$MCfW}tΊT7S5rG{=YT  V_k#毐kE@l]Č=o '>KDMK6dJd|~GS?Ҹjާyb~r 06uk7100000ns>zVGxؐ} mṛ,oeZ.ɰՔD@G*eμȕo.;o\?ЎAGjSp~rX1/kd 93Lő\s`D(;aLПdΓYN󏐖"TZ8& dѥίRs XBDFMb'h.i]#YA,ONMnJV(-:GCf~5Af\II UbSaMpyJTcU0&n bfffffw\:z _`51|lF:r&5\HuqGG&'+lHH&W+q +d-ݿ?-P7r\prkp:#VҼuM.E[hH t.,9hv*J;y&IUi5)<@w&=Bә!=t$,0 š`6QQ i`5sʷ>++PV8`}poaS3wԢr.r[MrqÓGӆ2/K[E9ݯԗ6V"@;P}~P @g/Q ڻ)633333;@#3N1kb+N'2&(kyVղ5nI03B =vF#={3GՔaq庬_@vƬ9R-ԇ+%zޓ0s^uaXmr'w>9bI;/H 04Wp@s.9|Sy@Yќ< L2Ts$^^|[ͽ}:5Q7=OwD6ZHFYy \ zwWYLrǕah27d)BQ!L DGquQGIyAh3!`QXr;Uu).9t'ߏ[R9qk3ޜx09*GTri'B?:Ź>QPkǻGqz!ٵeiOԩΪ AnxV&]Fn'' te#^#CnfbRX#. xglQ[e Ia,א-,c"74DTajŨqm˚TISa‰εBtL< {hH߮ڕ=MYk%hbhH k}܇etCua&`&`&`&`&p'`y\taHH- :R:!QH?qa,/dd2 Rr76X UC*=b1Q>KzNh3"KYYÈcy@mfffffyؠ1D,v`G~% 0Y%'u!`FzeDu i{taPanxS~rlES4& š.4>-Fcbh, a[u,#'z: `t{ڨXD*9ͪ,D׬MFR*i12 Seڹh^g!H\Zc.tb*˩8 pY0aMS$=[L+Yt:]N6U J cf5IFBi fxBΠhax5viz"*Re|NZ0ݞ4<\^.wD(9Ou-GJa&`&`&`&`&p'`sZf<PNpAkQA43siǬXn~][<3N{ b5X:7ZárU"nZ zpw\@_dW-`JYiaOFp?MJQLˬ8LYx"fs }Y"3x" e}דN5#nNb>E_CAViK@XYtd';SqR:#k#lǥB[(M1:gNx&1CLNǜOr0>-NuH&erHW ]W: v"%ezU=Y^s?34%mr iaIk֖ϐc|LLLLL"O0|w4(ZPp$r}TK6V:tGD4c a>Z%՗O`$R&f­fSE>: z0^57aG10x:SCK:jZǀRd9oS,QZX5 =^uhV1L)"BXY՞`fffff| @N=['̃T=JwxdêX(ÄP%4ȡIN:A]A @;[oʼ޶Rʥwcm@.5j"gn<7- HDTrab @UtØ"HO9K= r-SkNs=kxrN`C{g\chK z@$-̄MPC䊛f?]j,5\XdV:lљ şJ}g]h5:|Yh$O{F E#"e(XMMR 0WU}JN|Fv86H5_SZau_ӓ&hhyE++7ҼsuS;vGq^IYWl7d}:O_ـjvщ4׫2Q)%5\^$`OiJp;$YV%dG'# 6fcJh4"҉Ue;LU{<}Jҙ6L-uJFu:nJ͕ӀO11yiJnz1}$$,hy$o\р͝+١4& lơG#y"N]VƬ=XД9Q 5RH2J5Wո=md XX6}BB{}s8-i܇;HϠpN3KnJb 3b8?|4U%j42i. Q9+.loƲ; Ԗqdhh6dk[NEtYd $3E} d=4h$q$P$H Sd( Y) 4 )Bo@< ) MkU ckL):G0dÂyhq"YB)kO_)sz >oOfffffe +'fJ<!$`B?U8 ㈿3kňV  48 "-K1J/egZTNtMNrJ!`l7L1 `YNfp^!n'HfD;YTZNy}^c7vT9C0nlV橜֍"5`}BWռgבtBEӘ% i}yaЊِyu7&@6jz)SW,0;TVQV*2)V_f8C>C :^zdB_ \kXˋ O0+Ư%yl9lmK Ci41>|*NCj@F"bt5yff av}CX=Og|$;AT"ކv`^i&%BG9@qD7VMV!}d}"yє\pUi=v`fG[U.I5Ӈg?5533333<@]5]vx>87XmKTw<5EPu]øv rp~C{I]'ϝ'd`&Rt*cia)u E.LOv۰}z0(,_vS;VM}?cjƩh6CQ 0=Eڛ6yB=1c@[5=U,䦉`R}e&,e>*M 7Ric4މ$uCbAZZ'6ŒYCx>_Zé,{}jW4sڼ,-ϊ=a˓_u.3tOϟJʗ0:h*"LLLLLNOư^z0cG>td+~:c \1O&hwFU[98cik, j#HЉً4r,lz8iWۇq .p ^ 2Rh9A];x\7.uC^-'btE;QF*gd-4q (DRu DUgbgf>s(C>"ES0:L{=WƤ~R@F(?'w-$WƜ&ܷ-S`S0ظVe8nLLz_z I bH3*y \ ;k 5\X3q;i)~TT鶴Fn5N; $mޑvQ2!B'h\lOb` H=;iHpLY?@ZQ,(g 4?FCؓy^\;O:(Nh R)B9n VTT#]0&.H:I{{2IHXZ㰣z=j UG FtOh[=c`#u>V<_5SSbQy^c=FYXVF3XT/q4NOx_/ʻ|َ|=:&KW`dYoBҼs(~rQ6Y"?gly~O60000x0yO_c0_ AKtVЧs]Z9 3f$BMr9g!`?L( `ҕ33L^s'h "h|ퟧӜ4OJYA;'r\ 8<9ȇ::@h!V.Og`J>+Gm]8qLZ:<戞:}58ZB5$k+ʕ`yb\hc0꺏%~'}l*O' 3pѻTwhie.pnjrmd̔!`4)e/\ c2F@6nD<S5.\/E%aRVsG9{733333 <_<}M@Pc% OJMVO#}l!yō0fX}6`ǃbiI Lڰ=*{D)q<0x x߱8g&2@3_ 7WY?R \Hq2K='r.3qj@Kyh%j;2$vGt`qӳ.-OyMX?ܩI<Ԥp+SZ% 1ZXe[\[RⶇԀ2%4䔦"TAsi6kZA9OywcRQaNѽbr9y Gj&O`=˲{#N業KxU J=9a&`&`&`&`&p'`y]nPR&R?jV3h'5Su y (l h8@)؅@`sC4FL5 (Z>U jCt&`(WY7j 5Hi =6:P4Tb7=aaIє*`TaJ9IavdoN'8^sN9 >9r2@j%׆ YkyS(G]SVΓu@WjcN`Aj%kWЮl( hd|Ck틔B \5Gd3G$6D.t`}ɳ/,R {i @ cV/rc V!qI|N)$0pA/hS!:m1"(Yq2Xb4>`06NwDK3:a}I@Y㭂iȪ9 M:+(gK$<9X'rS~XGՏm./mˏSF5e =|mQ [=eVs7To <. =盫ABE< H'F|0x3ySX?!<vpLYgl&p韡*=t Q2mA#c0 k`o?59/j =2FePZ]z k5Mh]SJ'AbvQV$/PǙ&Tcޮf݁Nޏ+ u58Xcq5$1"* 3*Mv"ad #V<=)G4ʀsڧ?;VW*krב;s ޟsScKebGr^/-d^ynXB"7*&iH>vFee9)6qTͳ:dY43333;t}o܀|tAS]NY#^U'Fi2b)oJu#58Sd5+4LٛWs*'ՔQW }=e5?F?Tp%ȷT TCP8#_IDAT#A]4 Մ:S.$W|Jgilqk/{dSp'kr6[Q`?H_Al2(4)aA`fvR)kǁt hÔCnӗ+*Ud&KR\Lʭďd!y15oݓw|Y~I%a&`&`&`&`&pq'/52UqKi7&3q%.o:0T)B @=1Ѱj)@Ԥ6o6fi՘ hU*ҀTuS#AO7R;I1m!-(HݓcRZKnKFhsjxw;6:͐!^1+oC9ڧ}LN[Wq[s>qR=9VZ:tЗKtD}\0! ZͩPgV ;bĥr(uLZav:>w*07eDsk4ƭQCRƘBQ(,.fHo^A0r ?|@tӜP7+2qhN32k$4٤[.Ԫ033333;@ުf]j|jW2svQz?D+ E:!gkE@?#CY8I>R+>>,φ_@6e] 0*>4Cu4~qJ 9H6d Pڧ@q)zKA9E Q]l7} ;AZդa&`&`&`&`&pq'`9[5"D5(uitXcDCI S(qXA|dEH<ǃAO2-A-چ1"AYnڭz}]n>/ &R(a}t=eMwf,ٗ8^u$ˋ[À{ ->@zXӚ&4?TN%XyS< &=IM/3)RTZNd8~q-O Us^f2Q @0Jjg0:,SccpTvpGX'˭ͪ-03fэVPTry \ z7W1y~09H 3 ua ]|H2Tњ 0$J ">.>Lc+o%.c:)"ŢY覞%/0|M`G6 'UL4P>Ll&g's&n3 Pg pƤo r6&αy U0 @;wr}cN@Ҍ𴲫1@gjTe~ŕW0{^C:5~ #lU?j4Rd}qf+Tg.`1 ׼UU+D54ƹ ^̥TNGznzR mb`eSit,[,LIi`~}E<<. ={T H6F0 wi:`D9(E~D{LX=RXTUMѕӓ5KnI^rVAJmr5]l}9j&Ԓv[Nκ*reI XB|/AP^N }c<| -ԮtLV0VJ3)€h0CS?A}ܿݓ35ddLPg]/_AXz&RgXDXzɽ#tOJ1I>yy X[ T0#6j8b¡v˾ y%Hk@u$R*ڣt?'}%u`t>)/ddK9YYo'ד#!ڼLU昵)dASm=@e+ɴ\3zP.UP|j>(fz3IC,qLuqyCŘN IRiج jhrvԑfgik&`&`&`&`&p'`yU`K5ˬCL+}e<5&0 Kke;K5jEa9-FAؕʆ//~Ֆȥy4`Q05h4{?=/+ yfV-a0]:73E9-c9dnflX:c@e\2i'PbS?Y!Lڽqs&y?:&xW41kް;dm!*]5 -LN]br]wOgҢnޙDI:xSeZ&2s0ZںWvYŤ~q(D1S*M\Z +n5:kBT [=cv:m(x ږ.H|!蠁9u՘y \ z77f#T&yD'8x]۲C| q#i.-7AN5Y`$O4O;rgC@Q%BxpHh! s|Z&vsi##hw=(h$eFfCd'S9;1/YRPXgXpujj @5-\=5tamRivdNZ^@y,}H!3Oj$V(Q*!A3F}$>:?s)uk@T иmh'ӶlQP0Vd*^[,? 6,y{3333<ty`t/NP1VԊ(09tk'}z[/u TJ?~$?#j")Z8.y3o>"3\.b )/0+^-[J03A(o pӞai9SŐP)%2i%H ؅IMd2b< ;%$Ȑsg25|ԐT1E; iq"]&LJ=}m ?K)I.ǢxdG'! ;boTSj<.i8ik<uG0oLJ>kU%`$z߆ 毮JJLg ps1J롸LLLLLOs 8|D@#͆jf9A+]1@"門!P^Wn}e8&;?{MvoO$Hϣd"v [oa$R pDF'1Jy,MZI.T@_Ŭᡡ dH `2iGә!x|#`3MDB=Y)DDY8& 3d6@]qE^@Vsr9shG}@ukgZMǢ=kinEd4Ѿʩ\UݻqH0omROVfzSip3>BSFRJ3B个^U{Q<pc8 o,Ku=+좝>a>z\000000.O /EzOoȄ㳬9u}ЋF+PJho$"fTܓp"Cst94.Jjnᆪc۾OI(|$c=Y|)ޙFeaxeILЦ֫l5^q〢(3"Ӄ(#88""*N8^&7&&$VNJ1ݡu :N}^C-l̇v HFB!c|_ۗȯ!6NkKfCdq:[ rd)TB((),OjSgIm,7 0sP m2y E~#5 ( Uɖ 8㉐$? !d" %g7U`SWX܇$0=~"+΅tu6}EVK6CFn4\~d4ByA1Db-r= kqGL YB3m2+jݵd\Ƕ^hS VayOFY !qYRem($YeGl ȚH@!Z"@AQ "ݗjIdw> =k]F[i)_$qmɉ& @F.*ʲQ C0K 뼲L6#w%KBLHXBWZp+X]Z+)66:'C͔ts>ҶT!>AHB3b x9bau~$p|Ĥ xBDCPy'>WVg}I~% n}caQzqueOˬIa" " "К D&kj$?]1~~F_aÁ,Yݣ%ߦ\&wyJ4X|Pc p`z{Nrpۛpg=uockyܺ s{6&\:<lA=C?~?_~'Nts|{|>zm 8Љϊ ;r]p9yDc…rJqㆭ[6mT7۷o\W֭[9z!" " "-m{;[vv-/_ZffÇw߽{D >8PbS b:n\"58ϘSn4ȶn9eL]}2Uh-=lRr47~޽o>a;c1?࣢K2 hj*c+I&9;mRGee>}(j)Neyc۷m۶mNҫVKYD@D@Dc7s;wvAwnsSd65X@bB#})$ٵkWD|bd2ޓ:t0^gҥKb{1 rԱcG[b/w^ = ]z9d#n xMOOou\D@D@D@g 9KJMkڄ \N:se2&IF/^pts̴gq\ H~lRt4E(cB LT\\lN8pΝ;bF-Z,E,pK" " " -G@Y-ǾU[3''yOl+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i_@IDATxxTmP) MiGQDPU)*`EPPAQE,(HQDA)bAPAzzOv3a7!e6M${޹3sw˻gc    a7$@$@$@$@$ P@$@$@$@$S>HHHH(@    ) Pfg$@$@$@$@| ٧X,XV L&dggP}6>a 0Y.vy͖o łJN|ֲ&FQV@@233 …0Z_0oVX*_*O_][IE%\fZIMM@n"C$$$Ǿc% ?j/111w''))$\CYrr޲|ٱg$@$@$@$P) PV΋&   #@Zv3 TJIHHHP{L$@$@$@hh   (;eǞ= @$@Z)o;/HHHʎhٱg$@$@$@$P) PV΋&   #@Zv3 TJIHHHP{L$@$@$@hh   (;>زeKWw^lڴ Nrݺu+܎ @!3ӧcݺuy3`ǎ6l:릥a/l2L2vvxHHHH DZ@&%%Hoh"L: u+We˖xG`,-    _f_ M?ӧOcÆ v)"q0s4qGΝɱ~ Zr{DZm6<((+VpFXXBBB|U`0@x}9Ȩ(Z]{^f48 E;RV[0Lk kڔ l6Kff<+t_}Us=zZʎcǎA;l>|T?^|Uԅ|OJߎϱ q| NabX4͖{oGħj$r/_ȟ/?r{-lXɽGD~D 8'_V ߧ"V\D9gs46p@Ǧ~A"OY*^"1%%HA!iaBa}۳nD@we021RR`he֥dZ9tt4?y,_}벰5 qZju<۵jŌXڵuA$@$@$@$P~#h{!ׯ5\Im7n$׀:@G\%s-c#g\z}q=y+YW }UTk@>X {d hLLL- 333^/_NH">322GVVO~sE>gvJ!*Zq0'w&#jㇴ(rUX/xQ36ߖʒF29rdCN4?6EYV'T  Vo6y3&z(p~0:(NQ̙3|IQU =X-ZǜXH!~eV=: I/΅e.^Lhe-E?Ɵ~ժUs2X֯_W8t׆~巠ҨQ#RJAUHΙi|IOѣ.B,2\ 󯿝s_lʒhYþ?#**mt?8;v݀,,]_~%V+ZjѣG#((HpB4h@> 5jq_|ǎ}d$$$@ڵKOr-ܹ8IJJ OϚ5 wqnA-WedzkŘ1c?Ǻu裏ja-K Ə^z)ك'O{m՗LK]i_\cvPjU==];c){ｧ۝sdY,p;vXͰ6xk-YHw(gN@t^:ƍR65jX.#&wM赞b]5ۧ4mw}cҤIxpWm۶Z`$oOuwuR-pb۶mJ[nE޽QF]fR7o:uzH[iE]\RD4ر>M4^Xue]k''Bp͚5Z.g}Ç7xzjSږ~vsƍZ@G|a{}aڵعs'/^ݻ;"Z:{UEqIju m=0k6N>?bEpRQ#k h1U]vg!'p 8"D˦Xo߮u0 ID8!T, @"`]=jz̏y8 `~Q`JxUbׅq$h | =;hKY)H$S2,I"/זHL"QVJ cǎ+N'S?{聟Y 0E"&]n4+b:}c„ Zw>}"v}Jww2ھWkCl2ȯ-װQG/J$Y E:s&#k[>ێw c?Iv-$="Fߣgz>o;LEuMBjTS\wˏh~T*>Y(V8v-"baJ&k)VE)2}.aÆW^=$3)kBE-"S"$48DI<5ID*]5רW(yɩSI+YfPEĒ)NQ",Ib h˖-ESd"DhJ&a(?d, rN@fԚ{)<=E݂ou 5%W!]e=3b5b٪HE"D9bu>P"N G%ǚƼ\a*bAX)^t -"c1,D(;2M.V·VZ^ԛ&V36fY!)_~[ޔx2]ą/!s'GDD PPKΞqVd ,{UB{aZ@dzR( CyB~DO'ȅNAg~ R_uqħ#kI˓1 xF lY78(?CRzzy|q$䷷#  \)?ca Cs_Z];CgdY*]%2Fn+" @ HH %:$6#j- M  Exʒ-eI} @1d] q78ϐ%Gy|f7mėA[nGV6Y$/h;q @1 vs7@VVHx5-> dSC"oP3{!  0?K|ԋw3~0('g#uҫ}18W?W<HHʀFud0[U`Ga%>Qɬ,-GJiv " 2)$ z6!  rAOY@%3Ӳ'%>Sn .Ew[t5# @wc   s!G^xj7p.=\* Pdc$@$@$PQ͵M|@NEIؾ .I >[*oߎuAgFRMDĻ:iH;S?H^?P牞|8wm۶?)b6lNeٳs#  (鯿s,J|3r>^7#isa }I7/!!R"Pk@qa4nX_B5#GxIJiFٷo| ֭[  LT%hZGܦ`wM}ۑ~KXTxCrpp(u '~lFFF"66sslȴڵk|r.ػw8p/ƛoU:L4 |~.믿vFxx8%󰰰bbbH…Nːl%Vrwі];հ0PVE^ y3Zk ףj7tEYzvUMfL&4;.1);mabQ!|%==P.@MEmU\XE +5\hĈ?Rd^:PG$E8LM}(hFI= 7eDnʷ%W !C&l6#88اcV``-,q0W(љCa#"eP. -lfT.,!)E e֯A`0CUP˙;7@-˄\E ruA^h(ާ.@T?DE4EX?k׮/ 6`ܸqnd^z@]K׮]]u+]}s"*rDT y.y_ˏRǒC@ħ%sj%!BK %" 7 Ϋ5d_M|-{ƣǼٝrxZ*w7/%L|v#*QG>+/HHPNs$q//DCs7WcwxtLX29nGغ}hRfUAzF3NE$@$@@Ȓ7`WOҕw->g͆1.%DI=: ۶Yp^j_:PĨ0Ajb&_=~y[8(  $|][ʺ0->C"Y)[D R`}ݗ@w+WcÆ uWu8F0&5kU 'Pq@ GIHHP3uS],"> ^(>?B_\ߐ}~qMdvWE=Ze㏃k!2%mf*˧C|w^WZ@p<$@$@~M@rY̨C/] Uk|~}1gװazUO?h)> ,c4HHl dv_EM7 $gt$9fp;Ot@.'U+J9-)nQ(@p\$@$@~K|!/W^D7iY*1 w7;_.(ax0!ɪӏ 'p l  @">`ڷ7uGвծ _#cg]p=z*GL7rd4tϗ_WROy``! 1c6T1تVH=JUyLxc׏^ڔ)I*{ ˱|+m>*gI|7HH_ kWQЊ`Z.,n? HḺ.6 B:qby&UnIHL ;3RD5!^.SzÇMh,Z}9x#n*~;*KT-e! PHHHByZy_{|WŧQÆ:=Uz`mv3JM~:AOPAOq^}5xJe!@ZY4HHg$}ڰժpLh@iXZ|v옉9sѱc~b(iغUd!PIHH(%z v7ރ[E ~DΩ>YWU3'~=铆3|ƍ;vzufI*Qۧ-wc' (BK#aO@Ӭ_??ctбc76wr}8x:R6H$@$@0$X= /C ~}$YիwUذxqOBVɏVڡPV[ ' ( #0 N|23K?Yrx_],O֭3qX$DMW=DAsOJ 'ϷwV D_93HHOܧ4ezy@P 2z@ȼ3y2YY`_} l]a5")MLlxe-xҥ>jG\Ӧ%.VlV˫# 3Y͛tIF|Yڨa0="mi#b(/yPfCOի!9 oͪBI$*L|J#aoY0vl2ֵz6+ULHH=: Is |dyNL [TZDk7lU"䅗y))1X/*~i7tR#͵^(wGM[/˓Wwwg$@$@$P2zޅyex!Hy`2ǐO?fa,ży ؽۂ~(1zZ /3{Rʴǡ TYC⛋i3nA*W2?jTGT@V ݿZ?ψOa^1;!\yK&OA>NMF:6+TG^i*}E=f9bBj9V]g(@+= Y׶B t?{w#~ͻ`b|veAokZȼF5 3ǟ`?t!TƢG=;^"o/{*tD;>wD+3g/3 hT)Q MB^^ @y&:alN+\K;+4Lǧ!P9՚Ѱ#i|iHLD/g#Gb4Ԯ5kZUxwݺ+k];v-HH&-y]T6z"īW|ʖ䍒O->c|Ƥd YZ:@Qjׇ *"?,w36ǎѸq %BW/Ǐ0q8>qzߣ&<\[nH$@$@+W#E|:( 7urF^i^ & bG h{K˗_ԡaV**޽(*X0qqFm5?p}LeL:)SХKUN*v/j<^zh-=lHHFZbxTۦʒ*| ]Llm)gG_!~J^T jUY=#Bڠn٢ȡʕψ 7T\<ΔL4"†Pt$1>_{Ǒ T" *> ̀~ ,BB ȰA3`s D|NDH;)>t_Ly1UCV2G|E?h079ɄEty{Nu`E$@"   {*(=>veN 4QüORNCw!x@ 2߻wolذ!DWt?@yevQqB]J`ЖO&Z h K?wσX4zHDzeq83y9#)rv8\  0*k`Wm \$t jfڎLUD|0@ߎ}]v*f4[Tjc/7ͻv#H6"> ѵk:TC!>%Ugae \vY6.$zZX}+{e8  (fM{8} ^EҼgUv=wZ.0" WD~m7)#!>0(Tk>1i̘(شR* `Ϗñ @QRgY[!3۷"Դ75m~jU m!|wѬ{'GO>&4!JÑO˷[`ڷTUJJT 3++g?g7n i<N*)ٔs-y_8*  `gH.y-Rt^InNqħnD-S=)ީHW)8ǁ?&e-XP]RyF ظәHH 'p^ 3f!y*lB%YGF@pP[|6n˳76mVPKTys).GhT >qÒoN_5Upp>T,3.~v 7y#(MJ;tؔ%l<$aRxXn3fJPH'JKzR.i@B"l#:w^ލ$UgϞضmoX~=Jika3n>Ŧ]eNJJO5▕+M><@}nT, e}LrMʽSi\Lȥ׀5x`0ߴ{ӦMݾ8׫WOۂλx|}#T:>Gؔ`UtdP60Ƽ:ES|襉U  B0l]Y+GlHH@~ӧڴi뮻Nlg}V[<{HHyp ){?ݺ M-d7ԓΪӢE&6RGIx231~(4 TXYlޝx8f  (ħ4UF ~^zUWÖ-[`ԪU/Yө`Y-2ￇkr֗Z]`T;mU'c*QUW9fL2~XUf3!Ag יrj;  x">͙3GolY/8k,,\Ƈ~&;W'?,>q^MI!*%DT#(Og5U@}%r=mY{xZ (@p`$@$@$pq1표7|}|v;w8LJiӦAΗq-H= D#X#aWJҢDhaHH@ʁUL,? ;fe˂`I:zt(-FӬ#6 ѣG}Y*|.rzplɇzjp)z;Gz8)^QQQ٣=/xʽ7/NÇq8rQFKؤI˸袋O8^6աdZ^޳E$Y^1bdRU~% aD"'pz:ST\+V+1j0cFF8R}sn3챨Iwo|=Rj _y]}ANH~   ;<-"qF0`yovVիW;b o>B7Th(R_>\umKDu?U Q_nQWXd΂ԩ*>ե5MWGbf㻷g @ lHHYaÆ;w.+Vॗ^R-|<Ǝ ~Μ9S[*/[2;݀WBVrɧn_FʔԠ, b:|'}I^+*kP1aB3!N2Ю{¸4p hiPe$@$@$2Z$ S֭U CR(c#R_-[LMs(2Vo;b:tFF`<Y*ҤO#y3=@5)l)o"i:8]}Xl,Ot,Y6&K-Ϙ= _ڵvJڰa__Ûonݺ9ŧz"> ӧz&Ϛ8t?icF nGZ|;AC~T _O)!>*S%D`S6^L=^ wzP!  (Ԧ=zڵk`vIĩɓ')yv~A;*]s5mO1nO=+w{-{2jTΙq|'x"o 7!j(ݗZ>VbܸiQ(]vK4$@/x'o lv? f"{6zD l.z}fΞQK֩SG`:}4$v{vz˿+B r[Co*,w ":R ~})BzF դs`)Htt4*>*SUNUvSV ٱw>P\~ ;HH*-[/P!)L!> y7W^>3'ٳGO{ GH{ L"J|A#U93=$OuwQ{ÑhWYJ"BCBZ*[#|RjTjh0 ?P->۶m뜊:tvDѻZ>)^~Ul$$' +;OSFW[0?2)#u0=Pc:Sofl?ufSUx%<*},>'@sHH@JJBƍu#2˗/XM]ٳ/t;$X\Z;%?1 pzV2>dve {1Dķ^+ټ%EɓF`?cDktZZ3g&k4㏃6~lH%'@Z =gx?GO( R/kQQ9jժp#2e̛nYJS`HNAa;󬔇 k/%PO®2TfS^i*lTrSp >ɦtuTܼzu='@9+$  M@2&ɟ񘇤@IDATc˖-jZ15%SbJ.y/HJN]zπA믺O9fyo *w|&~)k[ѷo^ڮ]5zq睩[қ UKXHH*8 /Bu֬Yx7.=v옞u0D>9(vJmv+u/Ta3uNДK)S" \+Q0jT {/D9MDTׇ:xyq@M @9' !d:^s]鸴,~뭷jiT鈦N_~":Wu]O:N)1>!#~ %^CA&#>p?"osEp>Nʙv2%IOGr𠻍n qOx TxblѢE)RrʋһﾫrOP(]_,r\osؐˁW8mի!]$?> [=,L9'Mw+Ftt    ?3ʑ纳ԼwΝu͛7PMvfQU Uy'ywA%O `޽G- 5#A\^M[h1&$@ӦE`0%#1dZjjXE|àOJF0:DСr{qRL*$dvOu3?J m%UniY *iJGjP4V~zN#$zs$SΎ p1_$@$@$@" k=t޽>S}ܪ Rwnٗ^_ժ%2۷ȨawKYH;=X{J5doC,gP2h  |: .@_x38 Ruk^ٳgL{ɏ= uxmOֺj-[9Zl*eg[yᩧ± ͛gaĈ䜢VE p @4<@$@$@$ =uâyWj0׫5/>>Rby]~O|c?? I [4p:C~q;tY' ڕW|^sMZZ燩R*T19_}EbذhI??Q>   'Y)A_{-'LwQnV M*E̝;W[<3"siiiX`6W)/]v;v,/g?md7ko!~U-~Q3i#B֍zZ"p$k>MW(7+hQ~~]hrel X<Ne@$@$@$P(X}SGaҥ:^hZpag%Wo>9{us54c qc%Py5CW^{|<2oXZDӦYʫ?C;LK3^V tｑ:VhP]1Us֎J\J|y$@$@$ ܵkz S, F|ѥK->cbbTRɠ$C%w}lw ~kͅcKi{zi͚NowI)e->e[]&RR nm[TX(@IHHh۶-dƍ;8SQ^T^0?~\w|++S~֭[nRi0W*L4 ʊY⊆<ʎٗ5@7ѧna,nԬydɢ|R|*&h1`* TF}ɒ%Zy+ ضmJt۔)yWoӧȑ#]W痗2U(\r$*Zb޹ H'$=a6U7B.CW#I_ߟю=`H%a`ܤr h`HHH 矏u֩lAC[o?QL裏*]:ҦM9sG 4k,~͚5tRd?5۞Vk=_ X/x8z9AY_CgFݓbOu)C8H-BݺJԲK2AKx"6dȼ2gyq6$XQQׯ%Z~jTT*.   s& ! |_U*eevޭWkBesOs-w@%P3o2<V.mZ ‍"u=>:^3YՕ뎊-yk}Uj֬t%!9|կ?cQ%[JJ?ӧc%Y u)deeo,$$ŏucOa ϱsON-j>t">*pɓ'v8qDu$qE Z82/?! #QU)r}wZ ~PACZ|Qu) *DIHHΙ_]M t1ȏ=z@ZR4Ĩ<~uUP^5=-<{kB˛,U%lx v ` @KHjż7DFüo?2]4dj}Mer z-dv aN!>Í %{HCPF$@$@$A6w)f_ ۾]LA0Q}#p ߤ!CgM e* g)jz2`6O$@$@$P<veڭƯA &.*)%hZdn&>*- 58 !Ⱦsz@HB$@$@$ ^E3#陰^82RtI牏6|^78`Z |%ɼD  (D|Jvvϸ/U>woė^`<~còsRޏCHY{KU P =}v5.4hp:yLBHY)7ʢe@-Js9 n 6 *>?˗_#t~]ժ9 CքJ yI6}e"%<Kx ^nLIˎ;0d矘2e |Zd x }\l۶MKKK_bٲe 4_.I$@$@?Sً-*80'MF0Ee4:B^qs7Tj $q%`UW]oӽ)K/ڵBn*VƂ^x3gD&Mp뭷b޽T:}aٸ+WD˖-u [?j(hժ&  (TH$nԣ}Y~ڵ2U;ճ2;]k*5E'a.^w_Ka"9%e! 69A.˓Dhs/_hE o֬Y*"YS!BDn~֮]LVժU9?T?]zQDhVVOyj[ʗs%!T za! R?_;"TDYrgPh Ӑ}7I{={%_@SDChuE]?_2}ic*1l@jsL q >l|Vs}L,S=)#ߕ2)d*tQ˖$%?aRbѢb|-V 4kjڼ!~^<`R25򺌉)p[@ lҔX8rLϱ T.! !t2 oW[D8׼by^c!UkɣIyxjY_ڃ+rv> K$@$@$R'CmVMȼ`P3F.3 ve$ٰ,Kc'$HHHpONݰ64SyC¢aP!T(;~wK8    8 rF|T>y VIZš2&@Z7ݓ @ې}Y#4rH8'݋DZ,ks hYg$@$@$@&zDp^w \Yle{-e˟ cST&  (9`*v:ϒ>HHHD@ ԩ&* J{q6S(@K.&   [[|;9wΐ- 1Tc`XHHHH (@M xNsVI$@$@$@$^&HHHH<'@9+$    P/@d$@$@$@$@k x      PzΊ5IHHH@  (@=gŚ$@$@$@$@^ @lHHHHsbM    /D6A$@$@$@$9 PY& Pz"    XHHHH (@M xNsVI$@$@$@$^XߏF/ 7܀WK5 r@nM68z(Vvahݺu9 HHH_ w ǵaN:z)IHHH(@⟰m6l|/EzzzǸHHH8+S̜M^iFy z$@$@$P PVƻ^5w Fc~/ 4i8@lPD˞,Ñ#6᫯=$k @~*čĊAqxg PF`ժU^+c֬|q' (xյ+~^zjZc,HS5k30fL \ L@,Pz{״V~݌J׶lY>73Ӏ/ɨZ5n'$@$@$@nhu'*L6 GPH%]mosޡCf,Y_F7/ ssRR JlVS{!&ƆQ!nmȔ7ߜ? B߾1Pwkք(Aϕ){=WKpPqG%KB0aB$6!9tĈhU ,\ס铦'#T< ݻ-ӧ$  -bb7*ka2M=jwTN""80M⩧1`@= Wg*ZMX'oҥ!xxc= -ZTǗ_c $%T"Uv@VJ)h{h4g?[2$Ud<~4Tp$IHH\P4 gdV5-#@w S?I#D:dBZ9(e+kbq P8:b +ێ"v6k:iRoj73RR)uG@5iw'Q Y"zEQQ@p^B*".EwZQ@l튢EpkW)nET@*H)"X#-!d#3K$33y 3g9s2y[=ӠvȶҧO)]*Mj_?@@ U}X{.uJj[NשSo:SC*(pVҪjQ'ějxddzԼp7ۘvz]A[Se WO/ Re"o~"2wQme{|< ( tZ#6%ʝwzS-aSԴvmvWooٓ[uڵZg?TXvSiUi2qb.zktߛ٠AM}dgl5~zz=g= m;ŋSm*oB@6m[t}zz[b֢Lf5wtPJꞞoJ,L4]힖`z'﹦PrܔgjS..qIEMsfʥ ᇓLum/jvxasGt^kڌWO.3T酟 VUJ;_}{6&L1E&LH4k'fSo:"Ug'у6omONY&XL1K:J&O.6kmiynK6t`խO˟g"d:HnTUMd[NN}.! ,m×IVV-<[+ >1?LILMMoE5V(gJ(0D$W|D4ں0ޔN֚ -4&ٽ;tL'oxSҒ8hцm툔_knZ]ܱcmfNk.P8P^:h8?E[BZ8L z-W?Fڶw(D)r9uNjڸ1Aty}2tDsr3/||a{oKJxt>J+ӽsϞn^#'^I6=/{vz3m7 @!@ ,6m@JTSJdǎ5Z~e93ÓaQQhкeKz.F'QmJ;kLNphgKaYՉ6?Ttx-Mݸ1Q֮M4sNjV;Rdt{O]AȑmO|SZ!T2}'~" @pRS]lԶSS=ty ܁yiULJJM5K22j=yj^{@N8ћm_|u= *klO)\>X,HE=2Fq' 4kC еklڔ(wY LsrwɨԴvmvWooJ-[uڵZg?TךTnrS>mZLX"cƸe8ޚ- rl_m$;ek9yoؐh۱.^j;P9@q#A`Da'_7;Wp1#Co9ǶLmzyy5{_%顇2m Tϟ2%v"ZcG 8iĉY&07bjRؤhܒ#|`KL*_;Hu.]  GMȔMS`޼tiȐrSݼ1@{܌ -^4@ [u '̐vz;{'B@8l=lB2PY3-  [aVϴ8g~r3UW\}<dj{!C*䭷RͼmE'%9v_7\wgɃfJ*M~m䪫Ӏ=lv[#~hw`zutB 4e~ND@Ta! $RC'+m٦Kt_N5z| L[KfmGTRo]QSr ޤn#V9hP_c|LŲ`A,Z߯_y_$]VfQen8y@ P܇!ڵF6mJ;,Zjmi$S߾=T'In+ߵkTW~VN5uZU>mZLX"cƸe8ޚ- rl_m$;ek9yoؐh۱.^j;P9@q#A`Da'_7;Wp1#Co9ǶLmzyy5{_e;<=P^aSdND^KPwH6 81RYYSۖj&FӺur-97 6@֪| եt"~  @=4!S6NyPD=Շ )7Ugσf}2aB?4CYgU;9z:,Syd#kdܽ꾬~sLO<1e{?>8'L(>Ӷ+L2Ӯ61ض [fMiINNZ  ĹLj|ۢ0l']PP %%%ÍwJd"dɧ*s ]ڀyMcO=s%%q&hφm-ϯ%X;vkpH5//ό˔:4~U` 3 c}EwvvbhA$\cVV"EEEM훛kjFuk cXc:6Pe۶ޡSG &mV𩧚p\t#< @4 4&ׂ Dh$N@&h\   p8E@@ @nr-  @FM@@h0L:nf"?OnܸQnjS< &nʕfƚJݻ_ʳ!/@ZL࣏>~ێyy˛@ vRѣ嫯Kx_Yu6loQFwR}wt_}`! @h&N(W\ql۶~>gMy GSI'$^z3=Δ̚5kL/]G[9ꨣdD믿.{r'# p:t .@t[uy gϞ:t :`vs^̞=󾸸̹]a6}wm5oll^uδqqq~ۅu"GZ$AM4(N5 <+{_r)xN4{z= Źg3Cr 8dc}V0jN=ViΝҦM{Ή|{ @ihIVkҪ{͛73<#/oR>{gժUux)/῀wsh@^^^S6 6__|9iA?.Ǐ.HZW^yew3 /~I}'LJJ+B,h!@jMMIU 0[ՎH:OKN5i#- pkwﶯ(Sbcc7ONs#Z$@JJD~y __.ϹiٲeA{%'p1;S%??~D 3A.-ڿ?>\VJKK}sⶆTiոIK?;vX|֭['os9dz^뵴ӹ>V{60/;8߷ YUU#3KxS-.? t~~/_\:u]=ڵkEG( tKkZ*iQ[@ sw<+3пtqb> yC۷[K,UN5v0R2&MSw}z)~]x{=!V 99YN;47o^z6ڄJ҅ "R x?ߡIƍ;_{5[pmgmi{#MMZZ^{k5#!Gwm[MdݻWYAt ysvmm|;cj# TJnmvcź 2@C8m>hTiO,N<^Kڎ_;&9O&A|:˛i@n;~ih$Hg鵤tmh@ v.3WDv,dv;mm}( hhs@@tbC@X:!ɱ @t$:ћosYИ\8 ЙRVO:N  CJ @ hou >ǎkG,)))_]td  J@CJ @ :ԒH7lذg94I @(*y"&Pwc.&@a7EGwޑ"-@z؄dD+و?>F,бcG)** Q9 /@;@ ;hΝvQGEZO nps<@ D~-Anj#z#G@ F=h9   >5eChw,ݺu 6#Fyɮ]<h9 "sҤI/:)SdĉҡCO~"ӧON:Ig< h89 rNj|.]T "'x\q~zQuf#zsɢmC}]4hg=/@pCc !xdʕl2ٴi@sԨQv{жmjIHHAjO@@da! 9Z~_ʴilܹsW|goiZ[[+{쉜 L@ @rA o$55U~m=o.ԒQ T<@b@Z^@\Wr$''.̔;o=o@p [!!OG}$vt~Μ9vxl@f 6@->{JJTUUɰa䦛nj'!@L b@ kK@׮]+ݻwC4us 9tB{ř"@ TTT… =:oy_I%!Mh@@ev nAN* l"@u PߺgXSϱcʫ*%%%  F]@#py',֭:u  y8i5m}h֬YD4^>r ;vSd&%%+Vyݵ]K> Çٍ @ P o !ڦ??O>J?O>! rh!@4 +vNva._%]tiu`yߔ @P1Eh)2uƢDѣVGur= @]к"G$p1Ȓ%K>&TVVJ\m_&$$Xڦ[n޼Yx ѹ?s9dСr)b{LJs,HuI V;<+^ Urr ET{+HII됭8˯kHr  vg׮]y(X_Hv*7p,[L֬Y#^z1[j_fgg%־!YYYӌ#ض.77WK赶k ۷m[b-pi۶mH @ !A{7JΝC`?">FT@Kkva1]hZZ0 @T 0 ST^."A@ƨB;9"@K $ (pqovC"O*Ȼg1D~+mݺU,Yb;q2x`l$@ Tɵ @D lذ:LWyyZ$ׁ-C.{v87 >5M:رc;6.'u@>c;SC똗+VUuTHs7Dh0~-J' !"@-w@Щ8M[WZZ*:t@_P_ ^#?g-:}Ci̙vnֱ DHk3DVrg999/= 6,ꮗ B`ؾ\="8yli@h4(׃/+ @   +"  b@@ƕ\@@a1  @h@CJ  @@@ 4q%W@@`X  и+  @0,F@hh\@@ h# F44  @4 @@B#@WrE@ @   +"  b@@ƕ\@@a1  @h@CJ  @@@ 4q%W@@`X  и+  @0,F@hh\@@ h# F l]ޓ 6]n*++O>˗}W@@ \RF-_}u]o4H4sLy衇Doٲeݮ\F%~̛7r̃  [ ,#<"SN[nEfϞ-s̑*?oV.]j׿#F6W&L O>g}?o@@"C 1ԧY]]-۶m={CuAeҵkW7mdwĽz 7n .[v~e֭ݻw ҽ{wϺpHLLp*"z0.Д$qqq1J<5}PZ1N?Wg!pNp8\ ;w6mΖ={˝ ({NG}V벴4Yjꐿk$L=s^-K kWV 55xV`RD4jmuTn`뜌'OlF+Iiih[U[)n%/5i۶ݻt>7^΅^|/̔Ps222lꐼEػWk㱒hhmxJ!@~`h/v'_;qW,m8}Y:u伵?kj8V yv,]q9Ys³Wꡉ2xΧjxV C.ϊC<+KciJH=䝐[oeaɒ%6 H\v>޽{˚5kd֭4dҧOYg%NgҡN9@@"K %q7z_Ғ{ǣ4n8y夓Ncʘ1cl5eΝ+ 0=u/ܯ'3^  z8S5'999AQVki]hcź_8 DT{Ǵ$>DKi}*;4w{b2cU޻my[QQw!lM'yI6X,IK(9xcnk(it  @d hdp  --@Ң  T4(+@@ZZE@@ hPV" hK  @PР 6c/6E#FHNdƌ)mPSS#-Y3R[[˳%.O<ϕRp4Vϕ֒@[˝<@@H e4H:wcy dff%777/+QGexB k(.!ۇ0MΟ6MbC@@uK(  @ojÆ ZVth]v.]tՑ,𽦃!--Mz)qqqvuiiYwS9&:*++{X}rJmԽ{wi۶}۔gُ+سzJvd˖-wy벟'.;_g}v40VPo̙._\q9h;r=\ -QFaxe ^/7tp(++k?o'c=ֳ=yrJ=l`C,=Þ/"UVWW6zv'JS5NX<+2m45VUU/7Ov!999v;rH 0ah@,hʳ)3͛7̘.3l]//z-mwW8~v|.BQ/D@g{1s=Y4qDׂ ~ /x":#๸cǺy_gS5X>+OLYt嗻L =/Soq]ve.<;`5xf. h~ӦM酪kUh;-ضmCСf Խ믿^*b-oL!K/Ɋ++ԣ]/6n7 A}'+oh>kѥWg:I?~]̞={H͛g93^:|쳣Zc4w9hBʒݻw{;/msNiӦ_՚ ԽdO{ŋ?:& 8>S[?w\1b(fY@+_}h[۟^zh{>kN\>+jsÇۿ;̔6V ۙ-'ph`)gGs`i::!JHHj-Ԏ#uS.4ԺY>@ϊso-жZiΜ92D."j))z\wuDv&}.EX^ISvW{ox93x`6`Su4n^^_i\q6:)b/Yϋz.]ds y]J\ {V[ 9RQ Vۘk{P{e_W9s<_t}γTg-:TնYG3ƎUW\qZ{O<宻 ZC2O 34WZ%U`Æ nͮ={?4VFVl_рO>3R]ZgE0\Go;/>>b[6>س2n8y夓N"f?c9F.h 2=M >+>;=kbFtup svF@hhs@@@@@+@\1GB sN;k}ҥr׋#!$@MwkAϗTeϞ={n;Ugff: M̄MwkASO=UzmOܲe;>)))G = # ZJkKCW\)ݺuφC# >4@FFhgMMwH (m7C38C:w,m6Yl$&&W1!ZLf."A`ʔ)yf_j=z."9G@6 @ |rg/,Çz饗lx_~;89#a 38C@b]NHp  @@ @@X 'G@,@fp ĺh?\?  f0s8@@ @c @@0 ! .@O׏ YKhW%EIENDB`ggtext/man/element_textbox.Rd0000644000176200001440000001203114310623726016025 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/element-textbox.R \name{element_textbox} \alias{element_textbox} \alias{element_textbox_simple} \title{Theme element that enables markdown text in a box.} \usage{ element_textbox( family = NULL, face = NULL, size = NULL, colour = NULL, fill = NULL, box.colour = NULL, linetype = NULL, linewidth = NULL, hjust = NULL, vjust = NULL, halign = NULL, valign = NULL, lineheight = NULL, margin = NULL, padding = NULL, width = NULL, height = NULL, minwidth = NULL, maxwidth = NULL, minheight = NULL, maxheight = NULL, r = NULL, orientation = NULL, color = NULL, box.color = NULL, debug = FALSE, inherit.blank = FALSE ) element_textbox_simple( family = NULL, face = NULL, size = NULL, colour = NULL, fill = NA, box.colour = NULL, linetype = 0, linewidth = 0.5, hjust = 0.5, vjust = 0.5, halign = 0, valign = 1, lineheight = 1.2, margin = ggplot2::margin(0, 0, 0, 0), padding = ggplot2::margin(0, 0, 0, 0), width = grid::unit(1, "npc"), height = NULL, minwidth = NULL, maxwidth = NULL, minheight = NULL, maxheight = NULL, r = grid::unit(0, "pt"), orientation = "upright", color = NULL, box.color = NULL, debug = FALSE, inherit.blank = FALSE ) } \arguments{ \item{family}{Font family} \item{face}{Font face} \item{size}{Font size (in pt)} \item{colour, color}{Text color} \item{fill}{Fill color of the enclosing box} \item{box.colour, box.color}{Line color of the enclosing box (if different from the text color)} \item{linetype}{Line type of the enclosing box (like \code{lty} in base R)} \item{linewidth}{Line width of the enclosing box (measured in mm, just like \code{size} in \code{\link[ggplot2:element]{ggplot2::element_line()}}).} \item{hjust}{Horizontal justification} \item{vjust}{Vertical justification} \item{halign}{Horizontal justification} \item{valign}{Vertical justification} \item{lineheight}{Line height, in multiples of the font size} \item{padding, margin}{Padding and margins around the text box. See \code{\link[gridtext:textbox_grob]{gridtext::textbox_grob()}} for details.} \item{width, height}{Unit objects specifying the width and height of the textbox, as in \code{\link[gridtext:textbox_grob]{gridtext::textbox_grob()}}.} \item{minwidth, minheight, maxwidth, maxheight}{Min and max values for width and height. Set to NULL to impose neither a minimum nor a maximum.} \item{r}{Unit value specifying the corner radius of the box} \item{orientation}{Orientation of the text box. See \code{\link[gridtext:textbox_grob]{gridtext::textbox_grob()}} for details.} \item{debug}{Not implemented.} \item{inherit.blank}{See \code{\link[ggplot2:element]{ggplot2::margin()}} for details.} } \value{ A ggplot2 theme element that can be used inside a \code{\link[ggplot2:theme]{ggplot2::theme()}} call. } \description{ The theme elements \code{element_textbox()} and \code{element_textbox_simple()} enable Markdown text in a box, with word wrap. Both functions implement exactly the same functionality; they only differ in the default values for the various element values. \code{element_textbox()} sets all values that are not specified to \code{NULL}, as is the usual practice in ggplot2 themes. These missing values are usually completed by inheritance from parent theme elements. By contrast, \code{element_textbox_simple()} provides meaningful default values for many of the values that are not usually defined in ggplot2 themes. This makes it simpler to use a textbox element in the context of an existing theme. } \examples{ library(ggplot2) ggplot(mtcars, aes(disp, mpg)) + geom_point() + labs( title = "Fuel economy vs. engine displacement
    Lorem ipsum *dolor sit amet,* consectetur adipiscing elit, **sed do eiusmod tempor incididunt** ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.", x = "displacement (in3)", y = "Miles per gallon (mpg)
    A measure of the car's fuel efficiency." ) + theme( plot.title.position = "plot", plot.title = element_textbox_simple( size = 10, padding = margin(5.5, 5.5, 5.5, 5.5), margin = margin(0, 0, 5.5, 0), fill = "cornsilk" ), axis.title.x = element_textbox_simple( width = NULL, padding = margin(4, 4, 4, 4), margin = margin(4, 0, 0, 0), linetype = 1, r = grid::unit(8, "pt"), fill = "azure1" ), axis.title.y = element_textbox_simple( hjust = 0, orientation = "left-rotated", minwidth = unit(1, "in"), maxwidth = unit(2, "in"), padding = margin(4, 4, 2, 4), margin = margin(0, 0, 2, 0), fill = "lightsteelblue1" ) ) } \seealso{ \code{\link[gridtext:textbox_grob]{gridtext::textbox_grob()}}, \code{\link[=element_markdown]{element_markdown()}}, \code{\link[=geom_textbox]{geom_textbox()}} } ggtext/man/element_markdown.Rd0000644000176200001440000000520214310623726016154 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/element-markdown.R \name{element_markdown} \alias{element_markdown} \title{Theme element that enables markdown text.} \usage{ element_markdown( family = NULL, face = NULL, size = NULL, colour = NULL, fill = NULL, box.colour = NULL, linetype = NULL, linewidth = NULL, hjust = NULL, vjust = NULL, halign = NULL, valign = NULL, angle = NULL, lineheight = NULL, margin = NULL, padding = NULL, r = NULL, color = NULL, box.color = NULL, align_widths = NULL, align_heights = NULL, rotate_margins = NULL, debug = FALSE, inherit.blank = FALSE ) } \arguments{ \item{family}{Font family} \item{face}{Font face} \item{size}{Font size} \item{colour, color}{Text color} \item{fill}{Fill color of the enclosing box} \item{box.colour, box.color}{Line color of the enclosing box (if different from the text color)} \item{linetype}{Line type of the enclosing box (like \code{lty} in base R)} \item{linewidth}{Line width of the enclosing box (measured in mm, just like \code{size} in \code{\link[ggplot2:element]{ggplot2::element_line()}}).} \item{hjust}{Horizontal justification} \item{vjust}{Vertical justification} \item{halign}{Horizontal justification} \item{valign}{Vertical justification} \item{angle}{Angle (in degrees)} \item{lineheight}{Line height} \item{padding, margin}{Padding and margins around the text box. See \code{\link[gridtext:richtext_grob]{gridtext::richtext_grob()}} for details.} \item{r}{Unit value specifying the corner radius of the box} \item{align_widths, align_heights}{Should multiple elements be aligned by their widths or height? See \code{\link[gridtext:richtext_grob]{gridtext::richtext_grob()}} for details.} \item{rotate_margins}{Should margins get rotated in frame with rotated text? If \code{TRUE}, the margins are applied relative to the text direction. If \code{FALSE}, the margins are applied relative to the plot direction, i.e., the top margin, for example, is always placed above the text label, regardless of the direction in which the text runs. The default is \code{FALSE}, which mimics the behavior of \code{element_text()}.} \item{debug}{Draw a debugging box around each label} \item{inherit.blank}{See \code{\link[ggplot2:element]{ggplot2::margin()}} for details.} } \value{ A ggplot2 theme element that can be used inside a \code{\link[ggplot2:theme]{ggplot2::theme()}} call. } \description{ Theme element that enables markdown text. } \seealso{ \code{\link[gridtext:richtext_grob]{gridtext::richtext_grob()}}, \code{\link[=element_textbox]{element_textbox()}}, \code{\link[=geom_richtext]{geom_richtext()}} } ggtext/man/ggtext.Rd0000644000176200001440000000076614310623726014135 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/ggtext.R \docType{package} \name{ggtext} \alias{ggtext} \title{Improved text rendering support for ggplot2} \description{ The ggtext package implements both geoms (\code{\link[=geom_richtext]{geom_richtext()}}, \code{\link[=geom_textbox]{geom_textbox()}}) and theme elements (\code{\link[=element_markdown]{element_markdown()}}, \code{\link[=element_textbox]{element_textbox()}}) for improved text rendering with ggplot2. } ggtext/DESCRIPTION0000644000176200001440000000260014311057647013270 0ustar liggesusersPackage: ggtext Type: Package Title: Improved Text Rendering Support for 'ggplot2' Version: 0.1.2 Authors@R: c( person( given = "Claus O.", family = "Wilke", role = c("aut"), email = "wilke@austin.utexas.edu", comment = c(ORCID = "0000-0002-7470-9261") ), person( given = "Brenton M.", family = "Wiernik", role = c("aut", "cre"), email = "brenton@wiernik.org", comment = c(ORCID = "0000-0001-9560-6336", Twitter = "@bmwiernik") ) ) Description: A 'ggplot2' extension that enables the rendering of complex formatted plot labels (titles, subtitles, facet labels, axis labels, etc.). Text boxes with automatic word wrap are also supported. URL: https://wilkelab.org/ggtext/ BugReports: https://github.com/wilkelab/ggtext/issues License: GPL-2 Depends: R (>= 3.5) Imports: ggplot2 (>= 3.3.0), grid, gridtext, rlang, scales Suggests: cowplot, dplyr, glue, knitr, rmarkdown, testthat, vdiffr Encoding: UTF-8 RoxygenNote: 7.1.1 VignetteBuilder: knitr NeedsCompilation: no Packaged: 2022-09-15 13:50:50 UTC; brentonw Author: Claus O. Wilke [aut] (), Brenton M. Wiernik [aut, cre] (, @bmwiernik) Maintainer: Brenton M. Wiernik Repository: CRAN Date/Publication: 2022-09-16 11:36:07 UTC ggtext/build/0000755000176200001440000000000014310626672012662 5ustar liggesusersggtext/build/vignette.rds0000644000176200001440000000037114310626672015222 0ustar liggesusersuPn0 :@B08p/W .vحY+tNqC%3!P#J5)ݯW]"+C(n0hӧnLM&NG6(&r4;E ^ZGſ ~N Xolo The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. 0.00 0.25 0.50 0.75 1.00 0.00 0.25 0.50 0.75 1.00 x y Rotated boxes w/ colors and alignments ggtext/tests/figs/geom-richtext/0000755000176200001440000000000014310623726016431 5ustar liggesusersggtext/tests/figs/geom-richtext/rotated-labels-w-colors.svg0000644000176200001440000003157414310623726023631 0ustar liggesusers The quick brown fox. The quick brown fox. The quick brown fox. The quick brown fox. 0.00 0.25 0.50 0.75 1.00 0.00 0.25 0.50 0.75 1.00 x y Rotated labels w/ colors ggtext/tests/figs/deps.txt0000644000176200001440000000010314310623726015340 0ustar liggesusers- vdiffr-svg-engine: 1.0 - vdiffr: 0.3.1 - freetypeharfbuzz: 0.2.5 ggtext/tests/figs/element-textbox/0000755000176200001440000000000014310623726016776 5ustar liggesusersggtext/tests/figs/element-textbox/rotated-box-as-y-axis-title.svg0000644000176200001440000004550214310623726024705 0ustar liggesusers 1.0 1.5 2.0 2.5 3.0 1.0 1.5 2.0 2.5 3.0 x Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo vel consectetur luctus. Morbi facilisis justo non fringilla. Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam quis imperdiet felis, in convallis elit. Rotated box as y axis title ggtext/tests/figs/element-textbox/plot-title-with-fixed-width.svg0000644000176200001440000004502614310623726025006 0ustar liggesusers 1.0 1.5 2.0 2.5 3.0 1.0 1.5 2.0 2.5 3.0 x x Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo vel consectetur luctus. Morbi facilisis justo non fringilla. Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam quis imperdiet felis, in convallis elit. Plot title with fixed width ggtext/tests/figs/element-textbox/plot-title-with-styling.svg0000644000176200001440000004470714310623726024270 0ustar liggesusers 1.0 1.5 2.0 2.5 3.0 1.0 1.5 2.0 2.5 3.0 x x Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo vel consectetur luctus. Morbi facilisis justo non fringilla. Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam quis imperdiet felis, in convallis elit. Plot title with styling ggtext/tests/figs/element-textbox/simple-textbox-as-plot-title.svg0000644000176200001440000004333714310623726025211 0ustar liggesusers 1.0 1.5 2.0 2.5 3.0 1.0 1.5 2.0 2.5 3.0 x x Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo vel consectetur luctus. Morbi facilisis justo non fringilla. Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam quis imperdiet felis, in convallis elit. Simple textbox as plot title ggtext/tests/figs/element-markdown/0000755000176200001440000000000014310623726017123 5ustar liggesusersggtext/tests/figs/element-markdown/margins-match-w-ggtext-and-ggplot2.svg0000644000176200001440000010350114310623726026256 0ustar liggesusers 2.5 5.0 7.5 100 200 300 400 really really long x label long y label 2.5 5.0 7.5 100 200 300 400 really really long x label long y label 2.5 5.0 7.5 100 200 300 400 really really long x label long y label 2.5 5.0 7.5 100 200 300 400 really really long x label long y label ggtext/tests/testthat.R0000644000176200001440000000011114310623726014676 0ustar liggesuserslibrary(testthat) library(ggplot2) library(ggtext) test_check("ggtext") ggtext/vignettes/0000755000176200001440000000000014310626672013573 5ustar liggesusersggtext/vignettes/theme_elements.Rmd0000644000176200001440000002242614310623726017240 0ustar liggesusers--- title: "Markdown theme elements" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Markdown theme elements} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} --- ```{r, include = FALSE} knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 4, fig.height = 3.75 ) ``` The ggtext package defines two new theme elements, `element_markdown()` and `element_textbox()`/`element_textbox_simple()`, which can be used in place of `element_text()` in ggplot2 themes. ### Simple text labels Simple text labels are created with `element_markdown()`. To demonstrate typical usage, let's start with a basic plot of a parabola. ```{r message = FALSE} library(ggplot2) library(ggtext) base <- ggplot(data.frame(x = c(-5, 5)), aes(x)) + stat_function(fun = ~ .x*.x) base ``` This plot would benefit from nicer axis labels. In particular, assume we want the x axis label to read "independent variable *x*" and the y axis label to read "dependent variable *y* = *x*2". In Markdown, we could write the axis labels as `independent variable *x*` and `dependent variable *y* = *x*2`. However, if we do so, we need to tell ggplot2 to interpret the axis labels as Markdown and not as plain text. We do this by setting `axis.title.x` and `axis.title.y` to `element_markdown()`. (Note that both are set to `element_text()` in the default theme.) ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ``` The new element `element_markdown()` behaves just like `element_text()`. For example, we can modify the color or the font size. ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title.x = element_markdown(color = "blue"), axis.title.y = element_markdown(size = rel(0.8)) ) ``` Inheritance of theme settings also works. For example, we can set both color and font size for `axis.title`, and then both `axis.title.x` and `axis.title.y` inherit the setting. ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ``` Note that we used `element_text()` instead of `element_markdown()` for `axis.title` in the above plot. We could have used `element_markdown()` as well and the result would have been the same. It doesn't matter that we set `axis.title = element_text()`, because the `axis.title` element isn't actually rendered, only the `axis.title.x` and `axis.title.y` elements are. We're setting `axis.title` only for the purpose of providing shared parameter values to `axis.title.x` and `axis.title.y`. This is important to keep in mind when trying to create more unusual plots, e.g. with the y axis on the right. The naive code fails: ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + scale_y_continuous(position = "right") + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ``` This happens because the axis title on the right is actually drawn by `axis.title.y.right`. Therefore, setting that element to `element_markdown()` creates the desired result. ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + scale_y_continuous(position = "right") + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y.right = element_markdown() ) ``` Additional styling can be applied via inline CSS. The CSS properties `color`, `font-size`, and `font-family` are currently supported. Multi-line labels can be created by placing `
    ` tags where line breaks are desired. ```{r fig.width = 5, message = FALSE} library(dplyr) mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG)", title = "Transmission type impacts fuel efficiency
    MPG is higher for automatic than for manual transmissions" ) + theme_bw() + theme( text = element_text(family = "Times"), plot.title.position = "plot", plot.title = element_markdown(size = 11, lineheight = 1.2) ) ``` We set the `lineheight` property to 1.2 because the default lineheight is too small for multi-line text labels rendered with `element_markdown()`. ### Text boxes Text boxes can be created with `element_textbox()` or `element_textbox_simple()`. Text boxes differ from labels created with `element_markdown()` in that they tend to have a specific width and wrap their contents so it fits that width. The height of a textbox is normally calculated automatically so it matches the content height, but explicitly setting the height is also possible. Finally, while markdown labels can be displayed at any angle, textboxes have only four possible orientations, upright, left-rotated, right-rotated, and inverted. In practice, setting a theme element to `element_textbox()` in a ggplot2 theme will frequently not have the desired result, because textboxes require many additional parameters that are not set by the parent text elements present in standard themes. To work around this issue, you can use `element_textbox_simple()`. It sets reasonable defaults for the additional parameters and thus can be used more readily. You will usually be able to use `element_textbox_simple()` as is, with only a few parameter adjustments required. The following example adds both a title and a subtitle to the plot by drawing one single text box. ```{r fig.width = 5, message = FALSE} base <- mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG)", title = "Transmission type impacts fuel efficiency
    Miles per gallon (MPG) is on average higher for cars with automatic transmission than for cars with manual transmission. However, MPG generally declines with increasing horse power." ) + theme_bw() + theme(plot.title.position = "plot") base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, padding = margin(0, 0, 5, 0) ) ) ``` Text boxes can have a background color and a border, and they have internal padding and external margins. ```{r fig.width = 5, message = FALSE} base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, linetype = 1, # turn on border box.color = "#748696", # border color fill = "#F0F7FF", # background fill color r = grid::unit(3, "pt"), # radius for rounded corners padding = margin(5, 5, 5, 5), # padding around text inside the box margin = margin(0, 0, 10, 0) # margin outside the box ) ) ``` We can explicitly restrict the width of the box, and we can align the box relative to the enclosing space (with `hjust` and `vjust`) and the box content relative to the box edges (with `halign` and `valign`, not shown). ```{r fig.width = 5, message = FALSE} base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, width = grid::unit(4, "in"), # fixed width hjust = 1, # alignment of box relative to plot linetype = 1, # turn on border box.color = "#748696", # border color fill = "#F0F7FF", # background fill color r = grid::unit(3, "pt"), # radius for rounded corners padding = margin(5, 5, 5, 5), # padding around text inside the box margin = margin(0, 0, 10, 0) # margin outside the box ) ) ``` If we want a box to be rotated, we can use the `orientation` parameter. ```{r} mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG) is on average higher for cars with automatic transmission than for cars with manual transmission.", title = "Transmission type impacts fuel efficiency" ) + theme_bw() + theme( plot.title.position = "plot", axis.title.y = element_textbox_simple( orientation = "left-rotated", width = grid::unit(2.5, "in"), hjust = 0, fill = "#F0F7FF", padding = margin(5, 5, 5, 5), margin = margin(0, 0, 10, 0) ) ) ``` ggtext/vignettes/plotting_text.Rmd0000644000176200001440000001456014310623726017146 0ustar liggesusers--- title: "Plotting with markdown text" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Plotting with markdown text} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} --- ```{r, include = FALSE} knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 4, fig.height = 3.75 ) ``` The ggtext package defines two new geoms, `geom_richtext()` and `geom_textbox()`, which can be used to plot with markdown text. They draw simple text labels (without word wrap) and textboxes (with word wrap), respectively. ### Simple text labels Markdown-formatted text labels can be placed into a plot with `geom_richtext()`. This geom is mostly a drop-in replacement for `geom_label()` (or `geom_text()`), with added capabilities. As a first example, we will annotate a plot of linear regressions with their *r*2 values. We will use the `iris` dataset for this demonstration. In our first iteration, we will not yet use any ggtext features, and instead plot the text with `geom_text()`. ```{r fig.width = 6, fig.height = 3, message = FALSE} library(ggplot2) library(dplyr) library(glue) iris_cor <- iris %>% group_by(Species) %>% summarize(r_square = cor(Sepal.Length, Sepal.Width)^2) %>% mutate( # location of each text label in data coordinates Sepal.Length = 8, Sepal.Width = 4.5, # text label containing r^2 value label = glue("r^2 = {round(r_square, 2)}") ) iris_cor iris_facets <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + geom_smooth(method = "lm", formula = y ~ x) + facet_wrap(~Species) + theme_bw() iris_facets + geom_text( data = iris_cor, aes(label = label), hjust = 1, vjust = 1 ) ``` This code works, but the result is not fully satisfying. First, because *r* is a mathematical variable, it should be typeset in italics. Second, it would be nicer to have a superscript 2 instead of ^2. We can achieve both results by creating a markdown label and plotting it with `geom_richtext()`. ```{r fig.width = 6, fig.height = 3, message = FALSE} library(ggtext) iris_cor_md <- iris_cor %>% mutate( # markdown version of text label label = glue("*r*2 = {round(r_square, 2)}") ) iris_cor_md iris_facets + geom_richtext( data = iris_cor_md, aes(label = label), hjust = 1, vjust = 1 ) ``` By default, `geom_richtext()` puts a box around the text it draws. We can suppress the box by setting the fill and outline colors to transparent (`fill = NA, label.colour = NA`). ```{r fig.width = 6, fig.height = 3} iris_facets + geom_richtext( data = iris_cor_md, aes(label = label), hjust = 1, vjust = 1, # remove label background and outline fill = NA, label.color = NA, # remove label padding, since we have removed the label outline label.padding = grid::unit(rep(0, 4), "pt") ) ``` We can separately choose the colors of label outline, label fill, and label text, and we can assign them via aesthetic mapping as well as by direct specification, as is usual in ggplot2. ```{r fig.width = 6, fig.height = 3} iris_facets + aes(colour = Species) + geom_richtext( data = iris_cor_md, aes( label = label, fill = after_scale(alpha(colour, .2)) ), text.colour = "black", hjust = 1, vjust = 1 ) + theme(legend.position = "none") ``` Rotated labels are also possible, though in most cases it is not recommended to use them. ```{r fig.width = 6, fig.height = 3} iris_facets + aes(colour = Species) + geom_richtext( data = iris_cor_md, aes( x = 7.5, label = label, fill = after_scale(alpha(colour, .2)) ), text.colour = "black", hjust = 1, vjust = 1, angle = 30 ) + theme(legend.position = "none") ``` ### Text boxes Markdown-formatted text boxes (with word wrap) can be placed into a plot with `geom_textbox()`. It is generally necessary to specify a width for the box. Widths are specified in grid units, and both absolute (e.g., `"cm"`, `"pt"`, or `"in"`) and relative (`"npc"`, Normalised Parent Coordinates) units are possible. ```{r fig.width = 6, fig.height = 3} df <- data.frame( x = 0.1, y = 0.8, label = "*Lorem ipsum dolor sit amet,* consectetur adipiscing elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo vel consectetur luctus. **Morbi facilisis justo non fringilla.** Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam quis imperdiet felis, in convallis elit." ) p <- ggplot() + geom_textbox( data = df, aes(x, y, label = label), width = grid::unit(0.73, "npc"), # 73% of plot panel width hjust = 0, vjust = 1 ) + xlim(0, 1) + ylim(0, 1) p ``` If we specify a relative width, then changing the size of the plot will change the size of the textbox. The text will reflow to accommodate this change. ```{r fig.width = 4, fig.height = 4} p ``` The parameters `hjust` and `vjust` align the box relative to the reference point specified by `x` and `y`, but they do not affect the alignment of text inside the box. To specify how text is aligned inside the box, use `halign` and `valign`. For example, `halign = 0.5` generates centered text. ```{r fig.width = 4, fig.height = 4} ggplot() + geom_textbox( data = df, aes(x, y, label = label), width = grid::unit(0.73, "npc"), # 73% of plot panel width hjust = 0, vjust = 1, halign = 0.5 # centered text ) + xlim(0, 1) + ylim(0, 1) ``` While text boxes cannot be rotated arbitrarily, they can be placed in four distinct orientations, corresponding to rotations by multiples of 90 degrees. Note that `hjust` and `vjust` are specified relative to this orientation. ```{r} df <- data.frame( x = 0.5, y = 0.5, label = "The quick brown fox jumps over the lazy dog.", orientation = c("upright", "left-rotated", "inverted", "right-rotated") ) ggplot() + geom_textbox( data = df, aes(x, y, label = label, orientation = orientation), width = grid::unit(1.5, "in"), height = grid::unit(1.5, "in"), box.margin = grid::unit(rep(0.25, 4), "in"), hjust = 0, vjust = 1 ) + xlim(0, 1) + ylim(0, 1) + scale_discrete_identity(aesthetics = "orientation") ``` The previous example uses the `box.margin` argument to create some space between the reference point given by `x`, `y` and the box itself. This margin is part of the size calculation for the box, so that a width of 1.5 inches with 0.25 inch margins yields an actual box of 1 inch in width.ggtext/R/0000755000176200001440000000000014310623726011761 5ustar liggesusersggtext/R/geom-richtext.R0000644000176200001440000001464414310623726014674 0ustar liggesusers#' Richtext labels #' #' This geom draws text labels similar to [ggplot2::geom_label()], but formatted #' using basic markdown/html. Parameter and aesthetic names follow the conventions #' of [ggplot2::geom_label()], and therefore the appearance of the frame around #' the label is controlled with `label.colour`, `label.padding`, `label.margin`, #' `label.size`, `label.r`, even though the same parameters are called `box.colour`, #' `box.padding`, `box.margin`, `box.size`, and `box.r` in [geom_textbox()]. Most #' styling parameters can be used as aesthetics and can be applied separately to #' each text label drawn. The exception is styling parameters that are specified #' as grid units (e.g., `label.padding` or `label.r`), which can only be specified #' for all text labels at once. See examples for details. #' #' @section Aesthetics: #' #' `geom_richtext()` understands the following aesthetics (required #' aesthetics are in bold; select aesthetics are annotated): #' #' * **`x`** #' * **`y`** #' * **`label`** #' * `alpha` #' * `angle` #' * `colour` Default color of label text and label outline. #' * `family` #' * `fontface` #' * `fill` Default fill color of label background. #' * `group` #' * `hjust` #' * `label.colour` Color of label outline. Overrides `colour`. #' * `label.size` Width of label outline. #' * `lineheight` #' * `size` Default font size of label text. #' * `text.colour` Color of label text. Overrides `colour`. #' * `vjust` #' #' @inheritParams ggplot2::geom_text #' @inheritParams ggplot2::geom_label #' @param label.margin Unit vector of length four specifying the margin #' outside the text label. #' @return A ggplot2 layer that can be added to a plot created with #' [ggplot2::ggplot()]. #' @seealso [geom_textbox()], [element_markdown()] #' @examples #' library(ggplot2) #' #' df <- data.frame( #' label = c( #' "Some text **in bold.**", #' "Linebreaks
    Linebreaks
    Linebreaks", #' "*x*2 + 5*x* + *C**i*", #' "Some blue text **in bold.**
    And *italics text.*
    #' And some large text." #' ), #' x = c(.2, .1, .5, .9), #' y = c(.8, .4, .1, .5), #' hjust = c(0.5, 0, 0, 1), #' vjust = c(0.5, 1, 0, 0.5), #' angle = c(0, 0, 45, -45), #' color = c("black", "blue", "black", "red"), #' fill = c("cornsilk", "white", "lightblue1", "white") #' ) #' #' ggplot(df) + #' aes( #' x, y, label = label, angle = angle, color = color, fill = fill, #' hjust = hjust, vjust = vjust #' ) + #' geom_richtext() + #' geom_point(color = "black", size = 2) + #' scale_color_identity() + #' scale_fill_identity() + #' xlim(0, 1) + ylim(0, 1) #' #' # labels without frame or background are also possible #' ggplot(df) + #' aes( #' x, y, label = label, angle = angle, color = color, #' hjust = hjust, vjust = vjust #' ) + #' geom_richtext( #' fill = NA, label.color = NA, # remove background and outline #' label.padding = grid::unit(rep(0, 4), "pt") # remove padding #' ) + #' geom_point(color = "black", size = 2) + #' scale_color_identity() + #' xlim(0, 1) + ylim(0, 1) #' @export geom_richtext <- function(mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., nudge_x = 0, nudge_y = 0, label.padding = unit(c(0.25, 0.25, 0.25, 0.25), "lines"), label.margin = unit(c(0, 0, 0, 0), "lines"), label.r = unit(0.15, "lines"), na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) { if (!missing(nudge_x) || !missing(nudge_y)) { if (!missing(position)) { stop("You must specify either `position` or `nudge_x`/`nudge_y` but not both.", call. = FALSE) } position <- position_nudge(nudge_x, nudge_y) } layer( data = data, mapping = mapping, stat = stat, geom = GeomRichText, position = position, show.legend = show.legend, inherit.aes = inherit.aes, params = list( label.padding = label.padding, label.margin = label.margin, label.r = label.r, na.rm = na.rm, ... ) ) } #' @rdname geom_richtext #' @format NULL #' @usage NULL #' @export GeomRichText <- ggproto("GeomRichText", Geom, required_aes = c("x", "y", "label"), default_aes = aes( colour = "black", fill = "white", size = 3.88, angle = 0, hjust = 0.5, vjust = 0.5, alpha = NA, family = "", fontface = 1, lineheight = 1.2, text.colour = NULL, label.colour = NULL, label.size = 0.25 ), draw_panel = function(data, panel_params, coord, label.padding = unit(c(0.25, 0.25, 0.25, 0.25), "lines"), label.margin = unit(c(0, 0, 0, 0), "lines"), label.r = unit(0.15, "lines"), na.rm = FALSE) { data <- coord$transform(data, panel_params) if (is.character(data$vjust)) { data$vjust <- compute_just(data$vjust, data$y) } if (is.character(data$hjust)) { data$hjust <- compute_just(data$hjust, data$x) } richtext_grob( data$label, data$x, data$y, default.units = "native", hjust = data$hjust, vjust = data$vjust, rot = data$angle, padding = label.padding, margin = label.margin, gp = gpar( col = scales::alpha(data$text.colour %||% data$colour, data$alpha), fontsize = data$size * .pt, fontfamily = data$family, fontface = data$fontface, lineheight = data$lineheight ), box_gp = gpar( col = scales::alpha(data$label.colour %||% data$colour, data$alpha), fill = scales::alpha(data$fill, data$alpha), lwd = data$label.size * .pt ), r = label.r ) }, draw_key = draw_key_text ) #' @rdname geom_richtext #' @format NULL #' @usage NULL #' @export GeomRichtext <- GeomRichText # for automated geom discovery compute_just <- function(just, x) { inward <- just == "inward" just[inward] <- c("left", "middle", "right")[just_dir(x[inward])] outward <- just == "outward" just[outward] <- c("right", "middle", "left")[just_dir(x[outward])] unname(c(left = 0, center = 0.5, right = 1, bottom = 0, middle = 0.5, top = 1)[just]) } just_dir <- function(x, tol = 0.001) { out <- rep(2L, length(x)) out[x < 0.5 - tol] <- 1L out[x > 0.5 + tol] <- 3L out } ggtext/R/add-margins.R0000644000176200001440000000353014310623726014273 0ustar liggesusers# modified from ggplot2 function add_margins() add_margins <- function(grob, margin = NULL, margin_x = FALSE, margin_y = FALSE, debug = FALSE) { if (is.null(margin)) { margin <- margin(0, 0, 0, 0) } width <- grobWidth(grob) height <- grobHeight(grob) if (margin_x && margin_y) { widths <- unit.c(margin[4], width, margin[2]) heights <- unit.c(margin[1], height, margin[3]) vp <- viewport( layout = grid.layout(3, 3, heights = heights, widths = widths) ) child_vp <- viewport(layout.pos.row = 2, layout.pos.col = 2) } else if (margin_x) { widths <- unit.c(margin[4], width, margin[2]) heights <- unit(1, "null") vp <- viewport(layout = grid.layout(1, 3, widths = widths)) child_vp <- viewport(layout.pos.col = 2) } else if (margin_y) { widths <- unit(1, "null") heights <- unit.c(margin[1], height, margin[3]) vp <- viewport(layout = grid.layout(3, 1, heights = heights)) child_vp <- viewport(layout.pos.row = 2) } else { widths <- width heights <- height if (isTRUE(debug)) { bg <- rectGrob(gp = gpar(fill = "cornsilk")) g <- gTree( children = gList(bg, grob), widths = widths, heights = heights, cl = "titleGrob" ) } else { g <- gTree( children = gList(grob), widths = widths, heights = heights, cl = "titleGrob" ) } return(g) } if (isTRUE(debug)) { bg <- rectGrob(gp = gpar(fill = "cornsilk", col = NA)) gTree( children = gList(bg, grob), vp = vpTree(vp, vpList(child_vp)), widths = widths, heights = heights, cl = "titleGrob" ) } else { gTree( children = gList(grob), vp = vpTree(vp, vpList(child_vp)), widths = widths, heights = heights, cl = "titleGrob" ) } } ggtext/R/geom-textbox.R0000644000176200001440000001604414310623726014533 0ustar liggesusers#' Draw boxes containing text #' #' Draw boxes of defined width and height containing word-wrapped text. Multiple #' boxes can be drawn at once. Most styling parameters can be used as aesthetics #' and can be applied separately to each text box drawn. The exception is styling #' parameters that are specified as grid units (e.g., `box.padding` or `box.r`), #' which can only be specified for all text boxes at once. See examples for details. #' #' @section Aesthetics: #' #' `geom_textbox()` understands the following aesthetics (required #' aesthetics are in bold; select aesthetics are annotated): #' #' * **`x`** #' * **`y`** #' * **`label`** #' * `alpha` #' * `box.colour` Color of box outline. Overrides `colour`. #' * `box.size` Width of box outline. #' * `colour` Default color of box text and box outline. #' * `family` #' * `fontface` #' * `fill` Default fill color of box background. #' * `group` #' * `halign` Horizontal alignment of text inside box. #' * `hjust` Horizontal alignment of box. #' * `lineheight` #' * `orientation` One of `"upright"`, `"left-rotated"`, #' `"right-rotated"`, `"inverted"`. #' * `size` Default font size of box text. #' * `text.colour` Color of box text. Overrides `colour`. #' * `valign` Vertical alignment of text inside box. #' * `vjust` Vertical alignment of box. #' #' @inheritParams ggplot2::geom_text #' @param nudge_x,nudge_y Horizontal and vertical adjustment to nudge text boxes by. #' Useful for offsetting text from points, particularly on discrete scales. #' Cannot be jointly specified with `position`. #' @param width,height Unit values specifying the width and height of #' the text box (including margins!). If `height = NULL` (the default), #' the height is chosen automatically to accommodate all the text. #' @param minwidth,maxwidth,minheight,maxheight Unit values specifying #' the minimum and maximum values for `width` and `height`, respectively. #' If set to `NULL`, are not enforced. #' @param box.padding Unit vector of length four specifying the padding #' inside the text box. #' @param box.margin Unit vector of length four specifying the margin #' outside the text box. #' @param box.r Unit vector of length one specifying the radius of the #' box. #' @return A ggplot2 layer that can be added to a plot created with #' [ggplot2::ggplot()]. #' @seealso [geom_richtext()], [element_textbox()] #' @examples #' library(ggplot2) #' #' df <- data.frame( #' label = rep("Lorem ipsum dolor **sit amet,** consectetur adipiscing elit, #' sed do *eiusmod tempor incididunt* ut labore et dolore magna #' aliqua.", 2), #' x = c(0, .6), #' y = c(1, .6), #' hjust = c(0, 0), #' vjust = c(1, 0), #' orientation = c("upright", "right-rotated"), #' color = c("black", "blue"), #' fill = c("cornsilk", "white") #' ) #' #' ggplot(df) + #' aes( #' x, y, label = label, color = color, fill = fill, #' hjust = hjust, vjust = vjust, #' orientation = orientation #' ) + #' geom_textbox(width = unit(0.4, "npc")) + #' geom_point(color = "black", size = 2) + #' scale_discrete_identity(aesthetics = c("color", "fill", "orientation")) + #' xlim(0, 1) + ylim(0, 1) #' @export geom_textbox <- function(mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., nudge_x = 0, nudge_y = 0, box.padding = unit(c(5.5, 5.5, 5.5, 5.5), "pt"), box.margin = unit(c(0, 0, 0, 0), "pt"), box.r = unit(5.5, "pt"), width = unit(2, "inch"), minwidth = NULL, maxwidth = NULL, height = NULL, minheight = NULL, maxheight = NULL, na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) { if (!missing(nudge_x) || !missing(nudge_y)) { if (!missing(position)) { stop("You must specify either `position` or `nudge_x`/`nudge_y` but not both.", call. = FALSE) } position <- position_nudge(nudge_x, nudge_y) } layer( data = data, mapping = mapping, stat = stat, geom = GeomTextBox, position = position, show.legend = show.legend, inherit.aes = inherit.aes, params = list( box.padding = box.padding, box.margin = box.margin, box.r = box.r, width = width, minwidth = minwidth, maxwidth = maxwidth, height = height, minheight = minheight, maxheight = maxheight, na.rm = na.rm, ... ) ) } #' @rdname geom_richtext #' @format NULL #' @usage NULL #' @export GeomTextBox <- ggproto("GeomTextBox", Geom, required_aes = c("x", "y", "label"), default_aes = aes( colour = "black", fill = "white", size = 3.88, hjust = 0.5, vjust = 0.5, halign = 0, valign = 1, alpha = NA, family = "", fontface = 1, lineheight = 1.2, text.colour = NULL, box.colour = NULL, box.size = 0.25, orientation = "upright" ), draw_panel = function(data, panel_params, coord, box.padding = unit(c(5.5, 5.5, 5.5, 5.5), "pt"), box.margin = unit(c(0, 0, 0, 0), "pt"), box.r = unit(5.5, "pt"), width = unit(2, "inch"), minwidth = NULL, maxwidth = NULL, height = NULL, minheight = NULL, maxheight = NULL, na.rm = FALSE) { data <- coord$transform(data, panel_params) # split data frame into list of rows rows <- split(data, seq(nrow(data))) names(rows) <- NULL grobs <- mapply( make_textbox_grob, rows, list(box.padding), list(box.margin), list(box.r), list(width), list(minwidth), list(maxwidth), list(height), list(minheight), list(maxheight), SIMPLIFY = FALSE ) do.call(grobTree, grobs) }, draw_key = draw_key_text ) make_textbox_grob <- function(data, box.padding = unit(c(5.5, 5.5, 5.5, 5.5), "pt"), box.margin = unit(c(0, 0, 0, 0), "pt"), box.r = unit(5.5, "pt"), width = unit(2, "inch"), minwidth = NULL, maxwidth = NULL, height = NULL, minheight = NULL, maxheight = NULL) { textbox_grob( data$label, data$x, data$y, default.units = "native", hjust = data$hjust, vjust = data$vjust, halign = data$halign, valign = data$valign, orientation = data$orientation, padding = box.padding, margin = box.margin, width = width, minwidth = minwidth, maxwidth = maxwidth, height = height, minheight = minheight, maxheight = maxheight, gp = gpar( col = scales::alpha(data$text.colour %||% data$colour, data$alpha), fontsize = data$size * .pt, fontfamily = data$family, fontface = data$fontface, lineheight = data$lineheight ), box_gp = gpar( col = scales::alpha(data$box.colour %||% data$colour, data$alpha), fill = scales::alpha(data$fill, data$alpha), lwd = data$box.size * .pt ), r = box.r ) }ggtext/R/element-textbox.R0000644000176200001440000001741714310623726015242 0ustar liggesusers#' Theme element that enables markdown text in a box. #' #' The theme elements `element_textbox()` and `element_textbox_simple()` enable Markdown text in a box, with #' word wrap. Both functions implement exactly the same functionality; they only differ in the default values #' for the various element values. `element_textbox()` sets all values that are not specified to `NULL`, as is #' the usual practice in ggplot2 themes. These missing values are usually completed by inheritance from #' parent theme elements. By contrast, `element_textbox_simple()` provides meaningful default values for many of #' the values that are not usually defined in ggplot2 themes. This makes it simpler to use a textbox element #' in the context of an existing theme. #' #' @param family Font family #' @param face Font face #' @param size Font size (in pt) #' @param colour,color Text color #' @param fill Fill color of the enclosing box #' @param box.colour,box.color Line color of the enclosing box (if different from the text color) #' @param linetype Line type of the enclosing box (like `lty` in base R) #' @param linewidth Line width of the enclosing box (measured in mm, just like `size` in #' [ggplot2::element_line()]). #' @param hjust Horizontal justification #' @param vjust Vertical justification #' @param halign Horizontal justification #' @param valign Vertical justification #' @param lineheight Line height, in multiples of the font size #' @param width,height Unit objects specifying the width and height #' of the textbox, as in [gridtext::textbox_grob()]. #' @param minwidth,minheight,maxwidth,maxheight Min and max values for width and height. #' Set to NULL to impose neither a minimum nor a maximum. #' @param padding,margin Padding and margins around the text box. #' See [gridtext::textbox_grob()] for details. #' @param r Unit value specifying the corner radius of the box #' @param orientation Orientation of the text box. See [gridtext::textbox_grob()] for details. #' @param debug Not implemented. #' @param inherit.blank See [ggplot2::margin()] for details. #' @return A ggplot2 theme element that can be used inside a [ggplot2::theme()] #' call. #' @seealso [gridtext::textbox_grob()], [element_markdown()], [geom_textbox()] #' @examples #' library(ggplot2) #' #' ggplot(mtcars, aes(disp, mpg)) + #' geom_point() + #' labs( #' title = #' "Fuel economy vs. engine displacement
    #' Lorem ipsum *dolor sit amet,* consectetur adipiscing elit, **sed do eiusmod tempor #' incididunt** ut labore et dolore magna aliqua. Ut enim ad #' minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea #' commodo consequat.", #' x = "displacement (in3)", #' y = "Miles per gallon (mpg)
    A measure of #' the car's fuel efficiency." #' ) + #' theme( #' plot.title.position = "plot", #' plot.title = element_textbox_simple( #' size = 10, #' padding = margin(5.5, 5.5, 5.5, 5.5), #' margin = margin(0, 0, 5.5, 0), #' fill = "cornsilk" #' ), #' axis.title.x = element_textbox_simple( #' width = NULL, #' padding = margin(4, 4, 4, 4), #' margin = margin(4, 0, 0, 0), #' linetype = 1, #' r = grid::unit(8, "pt"), #' fill = "azure1" #' ), #' axis.title.y = element_textbox_simple( #' hjust = 0, #' orientation = "left-rotated", #' minwidth = unit(1, "in"), #' maxwidth = unit(2, "in"), #' padding = margin(4, 4, 2, 4), #' margin = margin(0, 0, 2, 0), #' fill = "lightsteelblue1" #' ) #' ) #' @export element_textbox <- function(family = NULL, face = NULL, size = NULL, colour = NULL, fill = NULL, box.colour = NULL, linetype = NULL, linewidth = NULL, hjust = NULL, vjust = NULL, halign = NULL, valign = NULL, lineheight = NULL, margin = NULL, padding = NULL, width = NULL, height = NULL, minwidth = NULL, maxwidth = NULL, minheight = NULL, maxheight = NULL, r = NULL, orientation = NULL, color = NULL, box.color = NULL, debug = FALSE, inherit.blank = FALSE) { if (!is.null(color)) colour <- color if (!is.null(box.color)) box.colour <- box.color structure( list( family = family, face = face, size = size, colour = colour, fill = fill, box.colour = box.colour, linetype = linetype, linewidth = linewidth, hjust = hjust, vjust = vjust, halign = halign, valign = valign, lineheight = lineheight, margin = margin, padding = padding, width = width, height = height, minwidth = minwidth, maxwidth = maxwidth, minheight = minheight, maxheight = maxheight, r = r, orientation = orientation, debug = debug, inherit.blank = inherit.blank), class = c("element_textbox", "element_text", "element") ) } #' @rdname element_textbox #' @export element_textbox_simple <- function(family = NULL, face = NULL, size = NULL, colour = NULL, fill = NA, box.colour = NULL, linetype = 0, linewidth = 0.5, hjust = 0.5, vjust = 0.5, halign = 0, valign = 1, lineheight = 1.2, margin = ggplot2::margin(0, 0, 0, 0), padding = ggplot2::margin(0, 0, 0, 0), width = grid::unit(1, "npc"), height = NULL, minwidth = NULL, maxwidth = NULL, minheight = NULL, maxheight = NULL, r = grid::unit(0, "pt"), orientation = "upright", color = NULL, box.color = NULL, debug = FALSE, inherit.blank = FALSE) { element_textbox( family = family, face = face, size = size, colour = colour, fill = fill, box.colour = box.colour, linetype = linetype, linewidth = linewidth, hjust = hjust, vjust = vjust, halign = halign, valign = valign, lineheight = lineheight, margin = margin, padding = padding, width = width, height = height, minwidth = minwidth, maxwidth = maxwidth, minheight = minheight, maxheight = maxheight, r = r, orientation = orientation, color = color, box.color = box.color ) } #' @export element_grob.element_textbox <- function(element, label = "", x = NULL, y = NULL, family = NULL, face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, lineheight = NULL, margin = NULL, ...) { if (is.null(label)) return(ggplot2::zeroGrob()) hj <- hjust %||% element$hjust vj <- vjust %||% element$vjust halign <- element$halign %||% 0 valign <- element$valign %||% 1 padding <- element$padding %||% ggplot2::margin(0, 0, 0, 0) margin <- margin %||% element$margin %||% ggplot2::margin(0, 0, 0, 0) orientation <- element$orientation %||% "upright" r <- element$r %||% unit(0, "pt") # The gp settings can override element_gp gp <- gpar( fontsize = size %||% element$size, col = colour %||% element$colour, fontfamily = family %||% element$family, fontface = face %||% element$face, lineheight = lineheight %||% element$lineheight ) box_gp <- gpar( col = element$box.colour %||% gp$col, fill = element$fill %||% NA, lty = element$linetype %||% 0, lwd = (element$linewidth %||% 0.5)*ggplot2::.pt ) textbox_grob( label, x = x, y = y, hjust = hj, vjust = vj, halign = halign, valign = valign, width = element$width, height = element$height, minwidth = element$minwidth, minheight = element$minheight, maxwidth = element$maxwidth, maxheight = element$maxheight, margin = margin, padding = padding, r = r, orientation = orientation, gp = gp, box_gp = box_gp ) } ggtext/R/element-markdown.R0000644000176200001440000001622714310623726015365 0ustar liggesusers#' Theme element that enables markdown text. #' #' Theme element that enables markdown text. #' #' @param family Font family #' @param face Font face #' @param size Font size #' @param colour,color Text color #' @param fill Fill color of the enclosing box #' @param box.colour,box.color Line color of the enclosing box (if different from the text color) #' @param linetype Line type of the enclosing box (like `lty` in base R) #' @param linewidth Line width of the enclosing box (measured in mm, just like `size` in #' [ggplot2::element_line()]). #' @param hjust Horizontal justification #' @param vjust Vertical justification #' @param halign Horizontal justification #' @param valign Vertical justification #' @param lineheight Line height #' @param padding,margin Padding and margins around the text box. #' See [gridtext::richtext_grob()] for details. #' @param r Unit value specifying the corner radius of the box #' @param angle Angle (in degrees) #' @param align_widths,align_heights Should multiple elements be aligned by their #' widths or height? See [gridtext::richtext_grob()] for details. #' @param rotate_margins Should margins get rotated in frame with rotated text? #' If `TRUE`, the margins are applied relative to the text direction. If `FALSE`, #' the margins are applied relative to the plot direction, i.e., the top margin, #' for example, is always placed above the text label, regardless of the direction #' in which the text runs. The default is `FALSE`, which mimics the behavior of #' `element_text()`. #' @param debug Draw a debugging box around each label #' @param inherit.blank See [ggplot2::margin()] for details. #' @return A ggplot2 theme element that can be used inside a [ggplot2::theme()] #' call. #' @seealso [gridtext::richtext_grob()], [element_textbox()], [geom_richtext()] #' @export element_markdown <- function(family = NULL, face = NULL, size = NULL, colour = NULL, fill = NULL, box.colour = NULL, linetype = NULL, linewidth = NULL, hjust = NULL, vjust = NULL, halign = NULL, valign = NULL, angle = NULL, lineheight = NULL, margin = NULL, padding = NULL, r = NULL, color = NULL, box.color = NULL, align_widths = NULL, align_heights = NULL, rotate_margins = NULL, debug = FALSE, inherit.blank = FALSE) { if (!is.null(color)) colour <- color if (!is.null(box.color)) box.colour <- box.color structure( list( family = family, face = face, size = size, colour = colour, fill = fill, box.colour = box.colour, linetype = linetype, linewidth = linewidth, hjust = hjust, vjust = vjust, halign = halign, valign = valign, angle = angle, lineheight = lineheight, margin = margin, padding = padding, r = r, align_widths = align_widths, align_heights = align_heights, rotate_margins = rotate_margins, debug = debug, inherit.blank = inherit.blank), class = c("element_markdown", "element_text", "element") ) } #' @export element_grob.element_markdown <- function(element, label = "", x = NULL, y = NULL, family = NULL, face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, margin_x = FALSE, margin_y = FALSE, ...) { if (is.null(label)) return(ggplot2::zeroGrob()) hj <- hjust %||% element$hjust vj <- vjust %||% element$vjust halign <- element$halign %||% hj valign <- element$valign %||% vj padding <- element$padding %||% ggplot2::margin(0, 0, 0, 0) margin <- margin %||% element$margin %||% ggplot2::margin(0, 0, 0, 0) angle <- angle %||% element$angle %||% 0 r <- element$r %||% unit(0, "pt") align_widths <- isTRUE(element$align_widths) align_heights <- isTRUE(element$align_heights) # We rotate the justifiation values to obtain the correct x and y reference point, # since box_hjust and box_vjust are applied relative to the rotated text frame in richtext_grob just <- rotate_just(angle, hj, vj) n <- max(length(x), length(y), 1) x <- x %||% unit(rep(just$hjust, n), "npc") y <- y %||% unit(rep(just$vjust, n), "npc") # The gp settings can override element_gp gp <- gpar( fontsize = size %||% element$size, col = colour %||% element$colour, fontfamily = family %||% element$family, fontface = face %||% element$face, lineheight = lineheight %||% element$lineheight ) box_gp <- gpar( col = element$box.colour %||% gp$col, fill = element$fill %||% NA, lty = element$linetype %||% 0, lwd = (element$linewidth %||% 0.5)*ggplot2::.pt ) mrg <- fixup_margins(element$rotate_margins, margin, angle) if (isTRUE(mrg$native_margins)) { richtext_grob( label, x = x, y = y, hjust = hj, vjust = vj, halign = halign, valign = valign, rot = angle, padding = padding, margin = mrg$margin, r = r, align_widths = align_widths, align_heights = align_heights, gp = gp, box_gp = box_gp, debug = element$debug ) } else { grob <- richtext_grob( label, x = x, y = y, hjust = hj, vjust = vj, halign = halign, valign = valign, rot = angle, padding = padding, margin = unit(c(0, 0, 0, 0), "pt"), r = r, align_widths = align_widths, align_heights = align_heights, gp = gp, box_gp = box_gp, debug = element$debug ) add_margins(grob, margin, margin_x, margin_y, debug = element$debug) } } # Modeled after ggplot2 function: # https://github.com/tidyverse/ggplot2/blob/49d438cf9981f9f0624a27131775ecd3d5bb3455/R/margins.R#L294-L334 # modified here to work with vectorized input rotate_just <- function(angle, hjust, vjust) { angle <- (angle %||% 0) %% 360 hnew <- ifelse( 0 <= angle & angle < 90, hjust, ifelse( 90 <= angle & angle < 180, 1 - vjust, ifelse( 180 <= angle & angle < 270, 1 - hjust, vjust ) ) ) vnew <- ifelse( 0 <= angle & angle < 90, vjust, ifelse( 90 <= angle & angle < 180, hjust, ifelse( 180 <= angle & angle < 270, 1 - vjust, 1 - hjust ) ) ) list(hjust = hnew, vjust = vnew) } fixup_margins <- function(rotate_margins, margin, angle) { if (isTRUE(rotate_margins)) { return(list(native_margins = TRUE, margin = margin)) } angle <- round(angle) %% 360 # if we're given more than one angle or angles corresponding to anything # other than horizontal or vertical positions, we cannot use native margins if (length(unique(angle)) > 1 || any(!angle %in% c(0, 90, 180, 270))) { return(list(native_margins = FALSE, margin = NULL)) } else { angle <- angle[1] } if (angle == 0) { return(list(native_margins = TRUE, margin = margin)) } if (angle == 90) { return(list(native_margins = TRUE, margin = margin[c(4, 1, 2, 3)])) } if (angle == 270) { return(list(native_margins = TRUE, margin = margin[c(2, 3, 4, 1)])) } # the only case remaining is angle == 180 return(list(native_margins = TRUE, margin = margin[c(3, 4, 1, 2)])) } ggtext/R/ggtext.R0000644000176200001440000000054714310623726013414 0ustar liggesusers#' Improved text rendering support for ggplot2 #' #' The ggtext package implements both geoms ([geom_richtext()], [geom_textbox()]) #' and theme elements ([element_markdown()], [element_textbox()]) for improved #' text rendering with ggplot2. #' #' @name ggtext #' @docType package #' @import grid #' @import rlang #' @import gridtext #' @import ggplot2 NULL ggtext/NEWS.md0000644000176200001440000000056014310626062012653 0ustar liggesusers# ggtext 0.1.2 - Maintainer changes to Brenton Wiernik. - Removed LazyData from package DESCRIPTION to fix CRAN NOTE # ggtext 0.1.1 - Make sure tests don't fail if vdiffr is missing. # ggtext 0.1.0 First public release. Provides the two ggplot2 theme elements `element_markdown()` and `element_textbox()` and the two geoms `geom_richtext()` and `geom_textbox()`. ggtext/MD50000644000176200001440000000570414311057647012102 0ustar liggesusersea9621359595f3242815dd5c87d92f11 *DESCRIPTION b0775fe7436833d79e9d2809563a252f *NAMESPACE ce402f8ed8a7dfd038cd200d1c16001f *NEWS.md d0eff2eb406dbfb817cc03ab7582922e *R/add-margins.R a40a6519015116a02d36da932338fe29 *R/element-markdown.R 14e3ad58048b3b66a902ee323302e731 *R/element-textbox.R 7810b1cb07dc6164708c2c73dbec54dd *R/geom-richtext.R 2bd551866ede315cb2a8522fa0bc2b78 *R/geom-textbox.R 8ee19aabd945e9362bda9cc3f36aa7d8 *R/ggtext.R 47c1d70559679b76a86b6262fc1d795f *README.md d4df53efcb3e93ae4686d20e5e407fc6 *build/vignette.rds 3b1b374556a1e2e258a902c0955056d6 *inst/doc/plotting_text.R 18bd4eb105b18917aa7e3b367b6c62b5 *inst/doc/plotting_text.Rmd c35471072f184e74e41c94c09784c0ec *inst/doc/plotting_text.html 4885c471a0051f96f2ecb44d31ab7f73 *inst/doc/theme_elements.R 58946006e2a10b3c008b033b269fddf6 *inst/doc/theme_elements.Rmd ffbdb2a1e919f0c38897eebd6df31388 *inst/doc/theme_elements.html cfe82104bcc198e0e7f449e5a3f7fbda *man/element_markdown.Rd c09baa5a52000425230870f6ee403e1a *man/element_textbox.Rd 8028b8cf2eec585216b33c7de7a487c0 *man/figures/README-unnamed-chunk-10-1.png ee327ae0855ea7997f80452cc3e39351 *man/figures/README-unnamed-chunk-3-1.png a2495d5bed4721ac9d08de5a82f1593f *man/figures/README-unnamed-chunk-4-1.png db6355b47137c8f51f4944d5f8bf9fc1 *man/figures/README-unnamed-chunk-5-1.png 43eae9145e3d7de2daa23b42640c665c *man/figures/README-unnamed-chunk-6-1.png ec562e2fed6cb03b57c436678bb58485 *man/figures/README-unnamed-chunk-7-1.png c5e7654400d2ccda3bf3357cb24f0f46 *man/figures/README-unnamed-chunk-8-1.png 60b4c6c3e0d12ba05a5677a9d685b49a *man/figures/README-unnamed-chunk-9-1.png 198f890d20b67e7e9c3a1b7329b41f7f *man/geom_richtext.Rd 663e87fa75113ea573a272ae169e89f3 *man/geom_textbox.Rd efe1c14457788fa73fc7217697bbb32f *man/ggtext.Rd 37455b724fc4126f1b8305cc5c05f444 *tests/figs/deps.txt 7e92a299850d48e8cbd1475604e80b8a *tests/figs/element-markdown/margins-match-w-ggtext-and-ggplot2.svg e6fd20acd78f1a44c09f599bb332a026 *tests/figs/element-textbox/plot-title-with-fixed-width.svg b788eadc8b4d8fed850b2c504f3e1502 *tests/figs/element-textbox/plot-title-with-styling.svg e8045d6580b65b17910605b25d242675 *tests/figs/element-textbox/rotated-box-as-y-axis-title.svg 519081a0125f679e219301d72b319de3 *tests/figs/element-textbox/simple-textbox-as-plot-title.svg 12e03f6939cd9fac0df62b4bc0cb680e *tests/figs/geom-richtext/rotated-labels-w-colors.svg 19d3ddaa523f82433aac822c94cea5db *tests/figs/geom-textbox/rotated-boxes-w-colors-and-alignments.svg f711cc86a23aac1f1ffefb36d68c9699 *tests/testthat.R d9a7d5e06f4322eac9e14fddf2d6c974 *tests/testthat/helper-vdiffr.R b3e120576b7c27e4113fe784cfafa0d7 *tests/testthat/test-element-markdown.R 6bb5d1493da1aecb3c0a1e45dd75e8e4 *tests/testthat/test-element-textbox.R 9ca665821330e028b38c82ede9304513 *tests/testthat/test-geom-richtext.R f6f20d338706bd95251cc28021c7614a *tests/testthat/test-geom-textbox.R 18bd4eb105b18917aa7e3b367b6c62b5 *vignettes/plotting_text.Rmd 58946006e2a10b3c008b033b269fddf6 *vignettes/theme_elements.Rmd ggtext/inst/0000755000176200001440000000000014310626672012540 5ustar liggesusersggtext/inst/doc/0000755000176200001440000000000014310626672013305 5ustar liggesusersggtext/inst/doc/plotting_text.R0000644000176200001440000000755414310626667016353 0ustar liggesusers## ---- include = FALSE--------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 4, fig.height = 3.75 ) ## ----fig.width = 6, fig.height = 3, message = FALSE--------------------------- library(ggplot2) library(dplyr) library(glue) iris_cor <- iris %>% group_by(Species) %>% summarize(r_square = cor(Sepal.Length, Sepal.Width)^2) %>% mutate( # location of each text label in data coordinates Sepal.Length = 8, Sepal.Width = 4.5, # text label containing r^2 value label = glue("r^2 = {round(r_square, 2)}") ) iris_cor iris_facets <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + geom_smooth(method = "lm", formula = y ~ x) + facet_wrap(~Species) + theme_bw() iris_facets + geom_text( data = iris_cor, aes(label = label), hjust = 1, vjust = 1 ) ## ----fig.width = 6, fig.height = 3, message = FALSE--------------------------- library(ggtext) iris_cor_md <- iris_cor %>% mutate( # markdown version of text label label = glue("*r*2 = {round(r_square, 2)}") ) iris_cor_md iris_facets + geom_richtext( data = iris_cor_md, aes(label = label), hjust = 1, vjust = 1 ) ## ----fig.width = 6, fig.height = 3-------------------------------------------- iris_facets + geom_richtext( data = iris_cor_md, aes(label = label), hjust = 1, vjust = 1, # remove label background and outline fill = NA, label.color = NA, # remove label padding, since we have removed the label outline label.padding = grid::unit(rep(0, 4), "pt") ) ## ----fig.width = 6, fig.height = 3-------------------------------------------- iris_facets + aes(colour = Species) + geom_richtext( data = iris_cor_md, aes( label = label, fill = after_scale(alpha(colour, .2)) ), text.colour = "black", hjust = 1, vjust = 1 ) + theme(legend.position = "none") ## ----fig.width = 6, fig.height = 3-------------------------------------------- iris_facets + aes(colour = Species) + geom_richtext( data = iris_cor_md, aes( x = 7.5, label = label, fill = after_scale(alpha(colour, .2)) ), text.colour = "black", hjust = 1, vjust = 1, angle = 30 ) + theme(legend.position = "none") ## ----fig.width = 6, fig.height = 3-------------------------------------------- df <- data.frame( x = 0.1, y = 0.8, label = "*Lorem ipsum dolor sit amet,* consectetur adipiscing elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo vel consectetur luctus. **Morbi facilisis justo non fringilla.** Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam quis imperdiet felis, in convallis elit." ) p <- ggplot() + geom_textbox( data = df, aes(x, y, label = label), width = grid::unit(0.73, "npc"), # 73% of plot panel width hjust = 0, vjust = 1 ) + xlim(0, 1) + ylim(0, 1) p ## ----fig.width = 4, fig.height = 4-------------------------------------------- p ## ----fig.width = 4, fig.height = 4-------------------------------------------- ggplot() + geom_textbox( data = df, aes(x, y, label = label), width = grid::unit(0.73, "npc"), # 73% of plot panel width hjust = 0, vjust = 1, halign = 0.5 # centered text ) + xlim(0, 1) + ylim(0, 1) ## ----------------------------------------------------------------------------- df <- data.frame( x = 0.5, y = 0.5, label = "The quick brown fox jumps over the lazy dog.", orientation = c("upright", "left-rotated", "inverted", "right-rotated") ) ggplot() + geom_textbox( data = df, aes(x, y, label = label, orientation = orientation), width = grid::unit(1.5, "in"), height = grid::unit(1.5, "in"), box.margin = grid::unit(rep(0.25, 4), "in"), hjust = 0, vjust = 1 ) + xlim(0, 1) + ylim(0, 1) + scale_discrete_identity(aesthetics = "orientation") ggtext/inst/doc/theme_elements.Rmd0000644000176200001440000002242614310623726016752 0ustar liggesusers--- title: "Markdown theme elements" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Markdown theme elements} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} --- ```{r, include = FALSE} knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 4, fig.height = 3.75 ) ``` The ggtext package defines two new theme elements, `element_markdown()` and `element_textbox()`/`element_textbox_simple()`, which can be used in place of `element_text()` in ggplot2 themes. ### Simple text labels Simple text labels are created with `element_markdown()`. To demonstrate typical usage, let's start with a basic plot of a parabola. ```{r message = FALSE} library(ggplot2) library(ggtext) base <- ggplot(data.frame(x = c(-5, 5)), aes(x)) + stat_function(fun = ~ .x*.x) base ``` This plot would benefit from nicer axis labels. In particular, assume we want the x axis label to read "independent variable *x*" and the y axis label to read "dependent variable *y* = *x*2". In Markdown, we could write the axis labels as `independent variable *x*` and `dependent variable *y* = *x*2`. However, if we do so, we need to tell ggplot2 to interpret the axis labels as Markdown and not as plain text. We do this by setting `axis.title.x` and `axis.title.y` to `element_markdown()`. (Note that both are set to `element_text()` in the default theme.) ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ``` The new element `element_markdown()` behaves just like `element_text()`. For example, we can modify the color or the font size. ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title.x = element_markdown(color = "blue"), axis.title.y = element_markdown(size = rel(0.8)) ) ``` Inheritance of theme settings also works. For example, we can set both color and font size for `axis.title`, and then both `axis.title.x` and `axis.title.y` inherit the setting. ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ``` Note that we used `element_text()` instead of `element_markdown()` for `axis.title` in the above plot. We could have used `element_markdown()` as well and the result would have been the same. It doesn't matter that we set `axis.title = element_text()`, because the `axis.title` element isn't actually rendered, only the `axis.title.x` and `axis.title.y` elements are. We're setting `axis.title` only for the purpose of providing shared parameter values to `axis.title.x` and `axis.title.y`. This is important to keep in mind when trying to create more unusual plots, e.g. with the y axis on the right. The naive code fails: ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + scale_y_continuous(position = "right") + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ``` This happens because the axis title on the right is actually drawn by `axis.title.y.right`. Therefore, setting that element to `element_markdown()` creates the desired result. ```{r} base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + scale_y_continuous(position = "right") + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y.right = element_markdown() ) ``` Additional styling can be applied via inline CSS. The CSS properties `color`, `font-size`, and `font-family` are currently supported. Multi-line labels can be created by placing `
    ` tags where line breaks are desired. ```{r fig.width = 5, message = FALSE} library(dplyr) mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG)", title = "Transmission type impacts fuel efficiency
    MPG is higher for automatic than for manual transmissions" ) + theme_bw() + theme( text = element_text(family = "Times"), plot.title.position = "plot", plot.title = element_markdown(size = 11, lineheight = 1.2) ) ``` We set the `lineheight` property to 1.2 because the default lineheight is too small for multi-line text labels rendered with `element_markdown()`. ### Text boxes Text boxes can be created with `element_textbox()` or `element_textbox_simple()`. Text boxes differ from labels created with `element_markdown()` in that they tend to have a specific width and wrap their contents so it fits that width. The height of a textbox is normally calculated automatically so it matches the content height, but explicitly setting the height is also possible. Finally, while markdown labels can be displayed at any angle, textboxes have only four possible orientations, upright, left-rotated, right-rotated, and inverted. In practice, setting a theme element to `element_textbox()` in a ggplot2 theme will frequently not have the desired result, because textboxes require many additional parameters that are not set by the parent text elements present in standard themes. To work around this issue, you can use `element_textbox_simple()`. It sets reasonable defaults for the additional parameters and thus can be used more readily. You will usually be able to use `element_textbox_simple()` as is, with only a few parameter adjustments required. The following example adds both a title and a subtitle to the plot by drawing one single text box. ```{r fig.width = 5, message = FALSE} base <- mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG)", title = "Transmission type impacts fuel efficiency
    Miles per gallon (MPG) is on average higher for cars with automatic transmission than for cars with manual transmission. However, MPG generally declines with increasing horse power." ) + theme_bw() + theme(plot.title.position = "plot") base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, padding = margin(0, 0, 5, 0) ) ) ``` Text boxes can have a background color and a border, and they have internal padding and external margins. ```{r fig.width = 5, message = FALSE} base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, linetype = 1, # turn on border box.color = "#748696", # border color fill = "#F0F7FF", # background fill color r = grid::unit(3, "pt"), # radius for rounded corners padding = margin(5, 5, 5, 5), # padding around text inside the box margin = margin(0, 0, 10, 0) # margin outside the box ) ) ``` We can explicitly restrict the width of the box, and we can align the box relative to the enclosing space (with `hjust` and `vjust`) and the box content relative to the box edges (with `halign` and `valign`, not shown). ```{r fig.width = 5, message = FALSE} base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, width = grid::unit(4, "in"), # fixed width hjust = 1, # alignment of box relative to plot linetype = 1, # turn on border box.color = "#748696", # border color fill = "#F0F7FF", # background fill color r = grid::unit(3, "pt"), # radius for rounded corners padding = margin(5, 5, 5, 5), # padding around text inside the box margin = margin(0, 0, 10, 0) # margin outside the box ) ) ``` If we want a box to be rotated, we can use the `orientation` parameter. ```{r} mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG) is on average higher for cars with automatic transmission than for cars with manual transmission.", title = "Transmission type impacts fuel efficiency" ) + theme_bw() + theme( plot.title.position = "plot", axis.title.y = element_textbox_simple( orientation = "left-rotated", width = grid::unit(2.5, "in"), hjust = 0, fill = "#F0F7FF", padding = margin(5, 5, 5, 5), margin = margin(0, 0, 10, 0) ) ) ``` ggtext/inst/doc/plotting_text.Rmd0000644000176200001440000001456014310623726016660 0ustar liggesusers--- title: "Plotting with markdown text" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Plotting with markdown text} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} --- ```{r, include = FALSE} knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 4, fig.height = 3.75 ) ``` The ggtext package defines two new geoms, `geom_richtext()` and `geom_textbox()`, which can be used to plot with markdown text. They draw simple text labels (without word wrap) and textboxes (with word wrap), respectively. ### Simple text labels Markdown-formatted text labels can be placed into a plot with `geom_richtext()`. This geom is mostly a drop-in replacement for `geom_label()` (or `geom_text()`), with added capabilities. As a first example, we will annotate a plot of linear regressions with their *r*2 values. We will use the `iris` dataset for this demonstration. In our first iteration, we will not yet use any ggtext features, and instead plot the text with `geom_text()`. ```{r fig.width = 6, fig.height = 3, message = FALSE} library(ggplot2) library(dplyr) library(glue) iris_cor <- iris %>% group_by(Species) %>% summarize(r_square = cor(Sepal.Length, Sepal.Width)^2) %>% mutate( # location of each text label in data coordinates Sepal.Length = 8, Sepal.Width = 4.5, # text label containing r^2 value label = glue("r^2 = {round(r_square, 2)}") ) iris_cor iris_facets <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + geom_smooth(method = "lm", formula = y ~ x) + facet_wrap(~Species) + theme_bw() iris_facets + geom_text( data = iris_cor, aes(label = label), hjust = 1, vjust = 1 ) ``` This code works, but the result is not fully satisfying. First, because *r* is a mathematical variable, it should be typeset in italics. Second, it would be nicer to have a superscript 2 instead of ^2. We can achieve both results by creating a markdown label and plotting it with `geom_richtext()`. ```{r fig.width = 6, fig.height = 3, message = FALSE} library(ggtext) iris_cor_md <- iris_cor %>% mutate( # markdown version of text label label = glue("*r*2 = {round(r_square, 2)}") ) iris_cor_md iris_facets + geom_richtext( data = iris_cor_md, aes(label = label), hjust = 1, vjust = 1 ) ``` By default, `geom_richtext()` puts a box around the text it draws. We can suppress the box by setting the fill and outline colors to transparent (`fill = NA, label.colour = NA`). ```{r fig.width = 6, fig.height = 3} iris_facets + geom_richtext( data = iris_cor_md, aes(label = label), hjust = 1, vjust = 1, # remove label background and outline fill = NA, label.color = NA, # remove label padding, since we have removed the label outline label.padding = grid::unit(rep(0, 4), "pt") ) ``` We can separately choose the colors of label outline, label fill, and label text, and we can assign them via aesthetic mapping as well as by direct specification, as is usual in ggplot2. ```{r fig.width = 6, fig.height = 3} iris_facets + aes(colour = Species) + geom_richtext( data = iris_cor_md, aes( label = label, fill = after_scale(alpha(colour, .2)) ), text.colour = "black", hjust = 1, vjust = 1 ) + theme(legend.position = "none") ``` Rotated labels are also possible, though in most cases it is not recommended to use them. ```{r fig.width = 6, fig.height = 3} iris_facets + aes(colour = Species) + geom_richtext( data = iris_cor_md, aes( x = 7.5, label = label, fill = after_scale(alpha(colour, .2)) ), text.colour = "black", hjust = 1, vjust = 1, angle = 30 ) + theme(legend.position = "none") ``` ### Text boxes Markdown-formatted text boxes (with word wrap) can be placed into a plot with `geom_textbox()`. It is generally necessary to specify a width for the box. Widths are specified in grid units, and both absolute (e.g., `"cm"`, `"pt"`, or `"in"`) and relative (`"npc"`, Normalised Parent Coordinates) units are possible. ```{r fig.width = 6, fig.height = 3} df <- data.frame( x = 0.1, y = 0.8, label = "*Lorem ipsum dolor sit amet,* consectetur adipiscing elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo vel consectetur luctus. **Morbi facilisis justo non fringilla.** Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam quis imperdiet felis, in convallis elit." ) p <- ggplot() + geom_textbox( data = df, aes(x, y, label = label), width = grid::unit(0.73, "npc"), # 73% of plot panel width hjust = 0, vjust = 1 ) + xlim(0, 1) + ylim(0, 1) p ``` If we specify a relative width, then changing the size of the plot will change the size of the textbox. The text will reflow to accommodate this change. ```{r fig.width = 4, fig.height = 4} p ``` The parameters `hjust` and `vjust` align the box relative to the reference point specified by `x` and `y`, but they do not affect the alignment of text inside the box. To specify how text is aligned inside the box, use `halign` and `valign`. For example, `halign = 0.5` generates centered text. ```{r fig.width = 4, fig.height = 4} ggplot() + geom_textbox( data = df, aes(x, y, label = label), width = grid::unit(0.73, "npc"), # 73% of plot panel width hjust = 0, vjust = 1, halign = 0.5 # centered text ) + xlim(0, 1) + ylim(0, 1) ``` While text boxes cannot be rotated arbitrarily, they can be placed in four distinct orientations, corresponding to rotations by multiples of 90 degrees. Note that `hjust` and `vjust` are specified relative to this orientation. ```{r} df <- data.frame( x = 0.5, y = 0.5, label = "The quick brown fox jumps over the lazy dog.", orientation = c("upright", "left-rotated", "inverted", "right-rotated") ) ggplot() + geom_textbox( data = df, aes(x, y, label = label, orientation = orientation), width = grid::unit(1.5, "in"), height = grid::unit(1.5, "in"), box.margin = grid::unit(rep(0.25, 4), "in"), hjust = 0, vjust = 1 ) + xlim(0, 1) + ylim(0, 1) + scale_discrete_identity(aesthetics = "orientation") ``` The previous example uses the `box.margin` argument to create some space between the reference point given by `x`, `y` and the box itself. This margin is part of the size calculation for the box, so that a width of 1.5 inches with 0.25 inch margins yields an actual box of 1 inch in width.ggtext/inst/doc/theme_elements.html0000644000176200001440000170151414310626672017202 0ustar liggesusers Markdown theme elements

    Markdown theme elements

    The ggtext package defines two new theme elements, element_markdown() and element_textbox()/element_textbox_simple(), which can be used in place of element_text() in ggplot2 themes.

    Text boxes

    Text boxes can be created with element_textbox() or element_textbox_simple(). Text boxes differ from labels created with element_markdown() in that they tend to have a specific width and wrap their contents so it fits that width. The height of a textbox is normally calculated automatically so it matches the content height, but explicitly setting the height is also possible. Finally, while markdown labels can be displayed at any angle, textboxes have only four possible orientations, upright, left-rotated, right-rotated, and inverted.

    In practice, setting a theme element to element_textbox() in a ggplot2 theme will frequently not have the desired result, because textboxes require many additional parameters that are not set by the parent text elements present in standard themes. To work around this issue, you can use element_textbox_simple(). It sets reasonable defaults for the additional parameters and thus can be used more readily. You will usually be able to use element_textbox_simple() as is, with only a few parameter adjustments required.

    The following example adds both a title and a subtitle to the plot by drawing one single text box.

    base <- mtcars %>%
  mutate(
    transmission = ifelse(am == 1, "automatic", "manual")
  ) %>%
  ggplot(aes(hp, mpg, color = transmission)) +
  geom_point(size = 2) +
  scale_color_manual(
    values = c(automatic = "#0072B2", manual = "#D55E00"),
    guide = "none"
  ) +
  labs(
    x = "Horse power",
    y = "Miles per gallon (MPG)",
    title = "Transmission type impacts fuel efficiency<br>
<span style = 'font-size:10pt;'>Miles per gallon (MPG) is on average higher for cars
with <span style = 'color:#0072B2;'>automatic transmission</span> than for cars with
<span style = 'color:#D55E00;'>manual transmission.</span> However, MPG generally
declines with increasing horse power.</span>"
  ) +
  theme_bw() + theme(plot.title.position = "plot")

base +
  theme(
    plot.title = element_textbox_simple(
      size = 14, lineheight = 1, padding = margin(0, 0, 5, 0)
    )
  )

    Text boxes can have a background color and a border, and they have internal padding and external margins.

    base +
  theme(
    plot.title = element_textbox_simple(
      size = 14, lineheight = 1,
      linetype = 1, # turn on border
      box.color = "#748696", # border color
      fill = "#F0F7FF", # background fill color
      r = grid::unit(3, "pt"), # radius for rounded corners
      padding = margin(5, 5, 5, 5), # padding around text inside the box
      margin = margin(0, 0, 10, 0) # margin outside the box
    )
  )

    We can explicitly restrict the width of the box, and we can align the box relative to the enclosing space (with hjust and vjust) and the box content relative to the box edges (with halign and valign, not shown).

    base +
  theme(
    plot.title = element_textbox_simple(
      size = 14, lineheight = 1, 
      width = grid::unit(4, "in"), # fixed width
      hjust = 1, # alignment of box relative to plot
      linetype = 1, # turn on border
      box.color = "#748696", # border color
      fill = "#F0F7FF", # background fill color
      r = grid::unit(3, "pt"), # radius for rounded corners
      padding = margin(5, 5, 5, 5), # padding around text inside the box
      margin = margin(0, 0, 10, 0) # margin outside the box
    )
  )

    If we want a box to be rotated, we can use the orientation parameter.

    mtcars %>%
  mutate(
    transmission = ifelse(am == 1, "automatic", "manual")
  ) %>%
  ggplot(aes(hp, mpg, color = transmission)) +
  geom_point(size = 2) +
  scale_color_manual(
    values = c(automatic = "#0072B2", manual = "#D55E00"),
    guide = "none"
  ) +
  labs(
    x = "Horse power",
    y = "Miles per gallon (MPG) is on average higher for cars with <span style =
'color:#0072B2;'>automatic transmission</span> than for cars with <span style =
'color:#D55E00;'>manual transmission.</span>",
    title = "Transmission type impacts fuel efficiency"
  ) +
  theme_bw() + 
  theme(
    plot.title.position = "plot",
    axis.title.y = element_textbox_simple(
      orientation = "left-rotated",
      width = grid::unit(2.5, "in"),
      hjust = 0, fill = "#F0F7FF",  
      padding = margin(5, 5, 5, 5),
      margin = margin(0, 0, 10, 0)
    )
  )

    ggtext/inst/doc/theme_elements.R0000644000176200001440000001352514310626672016434 0ustar liggesusers## ---- include = FALSE--------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 4, fig.height = 3.75 ) ## ----message = FALSE---------------------------------------------------------- library(ggplot2) library(ggtext) base <- ggplot(data.frame(x = c(-5, 5)), aes(x)) + stat_function(fun = ~ .x*.x) base ## ----------------------------------------------------------------------------- base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ## ----------------------------------------------------------------------------- base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title.x = element_markdown(color = "blue"), axis.title.y = element_markdown(size = rel(0.8)) ) ## ----------------------------------------------------------------------------- base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ## ----------------------------------------------------------------------------- base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + scale_y_continuous(position = "right") + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y = element_markdown() ) ## ----------------------------------------------------------------------------- base + labs( x = "independent variable *x*", y = "dependent variable *y* = *x*2" ) + scale_y_continuous(position = "right") + theme( axis.title = element_text(color = "blue", size = rel(0.8)), axis.title.x = element_markdown(), axis.title.y.right = element_markdown() ) ## ----fig.width = 5, message = FALSE------------------------------------------- library(dplyr) mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG)", title = "Transmission type impacts fuel efficiency
    MPG is higher for automatic than for manual transmissions" ) + theme_bw() + theme( text = element_text(family = "Times"), plot.title.position = "plot", plot.title = element_markdown(size = 11, lineheight = 1.2) ) ## ----fig.width = 5, message = FALSE------------------------------------------- base <- mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG)", title = "Transmission type impacts fuel efficiency
    Miles per gallon (MPG) is on average higher for cars with automatic transmission than for cars with manual transmission. However, MPG generally declines with increasing horse power." ) + theme_bw() + theme(plot.title.position = "plot") base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, padding = margin(0, 0, 5, 0) ) ) ## ----fig.width = 5, message = FALSE------------------------------------------- base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, linetype = 1, # turn on border box.color = "#748696", # border color fill = "#F0F7FF", # background fill color r = grid::unit(3, "pt"), # radius for rounded corners padding = margin(5, 5, 5, 5), # padding around text inside the box margin = margin(0, 0, 10, 0) # margin outside the box ) ) ## ----fig.width = 5, message = FALSE------------------------------------------- base + theme( plot.title = element_textbox_simple( size = 14, lineheight = 1, width = grid::unit(4, "in"), # fixed width hjust = 1, # alignment of box relative to plot linetype = 1, # turn on border box.color = "#748696", # border color fill = "#F0F7FF", # background fill color r = grid::unit(3, "pt"), # radius for rounded corners padding = margin(5, 5, 5, 5), # padding around text inside the box margin = margin(0, 0, 10, 0) # margin outside the box ) ) ## ----------------------------------------------------------------------------- mtcars %>% mutate( transmission = ifelse(am == 1, "automatic", "manual") ) %>% ggplot(aes(hp, mpg, color = transmission)) + geom_point(size = 2) + scale_color_manual( values = c(automatic = "#0072B2", manual = "#D55E00"), guide = "none" ) + labs( x = "Horse power", y = "Miles per gallon (MPG) is on average higher for cars with automatic transmission than for cars with manual transmission.", title = "Transmission type impacts fuel efficiency" ) + theme_bw() + theme( plot.title.position = "plot", axis.title.y = element_textbox_simple( orientation = "left-rotated", width = grid::unit(2.5, "in"), hjust = 0, fill = "#F0F7FF", padding = margin(5, 5, 5, 5), margin = margin(0, 0, 10, 0) ) ) ggtext/inst/doc/plotting_text.html0000644000176200001440000175711314310626670017114 0ustar liggesusers Plotting with markdown text

    Plotting with markdown text

    The ggtext package defines two new geoms, geom_richtext() and geom_textbox(), which can be used to plot with markdown text. They draw simple text labels (without word wrap) and textboxes (with word wrap), respectively.

    Simple text labels

    Markdown-formatted text labels can be placed into a plot with geom_richtext(). This geom is mostly a drop-in replacement for geom_label() (or geom_text()), with added capabilities.

    As a first example, we will annotate a plot of linear regressions with their r2 values. We will use the iris dataset for this demonstration. In our first iteration, we will not yet use any ggtext features, and instead plot the text with geom_text().

    library(ggplot2)
library(dplyr)
library(glue)

iris_cor <- iris %>% 
  group_by(Species) %>%
  summarize(r_square = cor(Sepal.Length, Sepal.Width)^2) %>%
  mutate(
    # location of each text label in data coordinates
    Sepal.Length = 8, Sepal.Width = 4.5,
    # text label containing r^2 value 
    label = glue("r^2 = {round(r_square, 2)}")
  )

iris_cor
#> # A tibble: 3 × 5
#>   Species    r_square Sepal.Length Sepal.Width label     
#>   <fct>         <dbl>        <dbl>       <dbl> <glue>    
#> 1 setosa        0.551            8         4.5 r^2 = 0.55
#> 2 versicolor    0.277            8         4.5 r^2 = 0.28
#> 3 virginica     0.209            8         4.5 r^2 = 0.21

iris_facets <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_point() + 
  geom_smooth(method = "lm", formula = y ~ x) +
  facet_wrap(~Species) +
  theme_bw()

iris_facets + 
  geom_text(
    data = iris_cor,
    aes(label = label),
    hjust = 1, vjust = 1
  )

    This code works, but the result is not fully satisfying. First, because r is a mathematical variable, it should be typeset in italics. Second, it would be nicer to have a superscript 2 instead of ^2. We can achieve both results by creating a markdown label and plotting it with geom_richtext().

    library(ggtext)

iris_cor_md <- iris_cor %>% 
  mutate(
    # markdown version of text label
    label = glue("*r*<sup>2</sup> = {round(r_square, 2)}")
  )

iris_cor_md
#> # A tibble: 3 × 5
#>   Species    r_square Sepal.Length Sepal.Width label                 
#>   <fct>         <dbl>        <dbl>       <dbl> <glue>                
#> 1 setosa        0.551            8         4.5 *r*<sup>2</sup> = 0.55
#> 2 versicolor    0.277            8         4.5 *r*<sup>2</sup> = 0.28
#> 3 virginica     0.209            8         4.5 *r*<sup>2</sup> = 0.21

iris_facets + 
  geom_richtext(
    data = iris_cor_md,
    aes(label = label),
    hjust = 1, vjust = 1
  )

    By default, geom_richtext() puts a box around the text it draws. We can suppress the box by setting the fill and outline colors to transparent (fill = NA, label.colour = NA).

    iris_facets + 
  geom_richtext(
    data = iris_cor_md,
    aes(label = label),
    hjust = 1, vjust = 1,
    # remove label background and outline
    fill = NA, label.color = NA,
    # remove label padding, since we have removed the label outline
    label.padding = grid::unit(rep(0, 4), "pt") 
  )

    We can separately choose the colors of label outline, label fill, and label text, and we can assign them via aesthetic mapping as well as by direct specification, as is usual in ggplot2.

    iris_facets + 
  aes(colour = Species) +
  geom_richtext(
    data = iris_cor_md,
    aes(
      label = label,
      fill = after_scale(alpha(colour, .2))
    ),
    text.colour = "black",
    hjust = 1, vjust = 1
  ) +
  theme(legend.position = "none")

    Rotated labels are also possible, though in most cases it is not recommended to use them.

    iris_facets + 
  aes(colour = Species) +
  geom_richtext(
    data = iris_cor_md,
    aes(
      x = 7.5,
      label = label,
      fill = after_scale(alpha(colour, .2))
    ),
    text.colour = "black",
    hjust = 1, vjust = 1,
    angle = 30
  ) +
  theme(legend.position = "none")

    Text boxes

    Markdown-formatted text boxes (with word wrap) can be placed into a plot with geom_textbox(). It is generally necessary to specify a width for the box. Widths are specified in grid units, and both absolute (e.g., "cm", "pt", or "in") and relative ("npc", Normalised Parent Coordinates) units are possible.

    df <- data.frame(
  x = 0.1,
  y = 0.8,
  label = "*Lorem ipsum dolor sit amet,* consectetur adipiscing
elit. Quisque tincidunt eget arcu in pulvinar. Morbi varius leo
vel consectetur luctus. **Morbi facilisis justo non fringilla.**
Vivamus sagittis sem felis, vel lobortis risus mattis eget. Nam
quis imperdiet felis, in convallis elit."
)

p <- ggplot() +
  geom_textbox(
    data = df,
    aes(x, y, label = label),
    width = grid::unit(0.73, "npc"), # 73% of plot panel width
    hjust = 0, vjust = 1
  ) +
  xlim(0, 1) + ylim(0, 1)

p

    If we specify a relative width, then changing the size of the plot will change the size of the textbox. The text will reflow to accommodate this change.

    p

    The parameters hjust and vjust align the box relative to the reference point specified by x and y, but they do not affect the alignment of text inside the box. To specify how text is aligned inside the box, use halign and valign. For example, halign = 0.5 generates centered text.

    ggplot() +
  geom_textbox(
    data = df,
    aes(x, y, label = label),
    width = grid::unit(0.73, "npc"), # 73% of plot panel width
    hjust = 0, vjust = 1,
    halign = 0.5 # centered text
  ) +
  xlim(0, 1) + ylim(0, 1)

    While text boxes cannot be rotated arbitrarily, they can be placed in four distinct orientations, corresponding to rotations by multiples of 90 degrees. Note that hjust and vjust are specified relative to this orientation.

    df <- data.frame(
  x = 0.5,
  y = 0.5,
  label = "The quick brown fox jumps over the lazy dog.",
  orientation = c("upright", "left-rotated", "inverted", "right-rotated")
)

ggplot() +
  geom_textbox(
    data = df,
    aes(x, y, label = label, orientation = orientation),
    width = grid::unit(1.5, "in"),
    height = grid::unit(1.5, "in"),
    box.margin = grid::unit(rep(0.25, 4), "in"),
    hjust = 0, vjust = 1
  ) +
  xlim(0, 1) + ylim(0, 1) +
  scale_discrete_identity(aesthetics = "orientation")

    The previous example uses the box.margin argument to create some space between the reference point given by x, y and the box itself. This margin is part of the size calculation for the box, so that a width of 1.5 inches with 0.25 inch margins yields an actual box of 1 inch in width.

    Simple text labels

    Simple text labels are created with element_markdown(). To demonstrate typical usage, let’s start with a basic plot of a parabola.

    library(ggplot2)
library(ggtext)

base <- ggplot(data.frame(x = c(-5, 5)), aes(x)) +
  stat_function(fun = ~ .x*.x)

base

    This plot would benefit from nicer axis labels. In particular, assume we want the x axis label to read “independent variable x” and the y axis label to read “dependent variable y = x2”. In Markdown, we could write the axis labels as independent variable *x* and dependent variable *y* = *x*<sup>2</sup>. However, if we do so, we need to tell ggplot2 to interpret the axis labels as Markdown and not as plain text. We do this by setting axis.title.x and axis.title.y to element_markdown(). (Note that both are set to element_text() in the default theme.)

    base +
  labs(
    x = "independent variable *x*",
    y = "dependent variable *y* = *x*<sup>2</sup>"
  ) +
  theme(
    axis.title.x = element_markdown(),
    axis.title.y = element_markdown()
  )

    The new element element_markdown() behaves just like element_text(). For example, we can modify the color or the font size.

    base +
  labs(
    x = "independent variable *x*",
    y = "dependent variable *y* = *x*<sup>2</sup>"
  ) +
  theme(
    axis.title.x = element_markdown(color = "blue"),
    axis.title.y = element_markdown(size = rel(0.8))
  )

    Inheritance of theme settings also works. For example, we can set both color and font size for axis.title, and then both axis.title.x and axis.title.y inherit the setting.

    base +
  labs(
    x = "independent variable *x*",
    y = "dependent variable *y* = *x*<sup>2</sup>"
  ) +
  theme(
    axis.title = element_text(color = "blue", size = rel(0.8)),
    axis.title.x = element_markdown(),
    axis.title.y = element_markdown()
  )

    Note that we used element_text() instead of element_markdown() for axis.title in the above plot. We could have used element_markdown() as well and the result would have been the same. It doesn’t matter that we set axis.title = element_text(), because the axis.title element isn’t actually rendered, only the axis.title.x and axis.title.y elements are. We’re setting axis.title only for the purpose of providing shared parameter values to axis.title.x and axis.title.y.

    This is important to keep in mind when trying to create more unusual plots, e.g. with the y axis on the right. The naive code fails:

    base +
  labs(
    x = "independent variable *x*",
    y = "dependent variable *y* = *x*<sup>2</sup>"
  ) +
  scale_y_continuous(position = "right") +
  theme(
    axis.title = element_text(color = "blue", size = rel(0.8)),
    axis.title.x = element_markdown(),
    axis.title.y = element_markdown()
  )

    This happens because the axis title on the right is actually drawn by axis.title.y.right. Therefore, setting that element to element_markdown() creates the desired result.

    base +
  labs(
    x = "independent variable *x*",
    y = "dependent variable *y* = *x*<sup>2</sup>"
  ) +
  scale_y_continuous(position = "right") +
  theme(
    axis.title = element_text(color = "blue", size = rel(0.8)),
    axis.title.x = element_markdown(),
    axis.title.y.right = element_markdown()
  )

    Additional styling can be applied via inline CSS. The CSS properties color, font-size, and font-family are currently supported. Multi-line labels can be created by placing <br> tags where line breaks are desired.

    library(dplyr)

mtcars %>%
  mutate(
    transmission = ifelse(am == 1, "automatic", "manual")
  ) %>%
  ggplot(aes(hp, mpg, color = transmission)) +
  geom_point(size = 2) +
  scale_color_manual(
    values = c(automatic = "#0072B2", manual = "#D55E00"),
    guide = "none"
  ) +
  labs(
    x = "Horse power",
    y = "Miles per gallon (MPG)",
    title = "<span style = 'font-size:14pt; font-family:Helvetica;'>Transmission type impacts fuel efficiency</span><br>
MPG is higher for <span style = 'color:#0072B2;'>automatic</span>
than for <span style = 'color:#D55E00;'>manual</span> transmissions"
  ) +
  theme_bw() +
  theme(
    text = element_text(family = "Times"),
    plot.title.position = "plot",
    plot.title = element_markdown(size = 11, lineheight = 1.2)
  )

    We set the lineheight property to 1.2 because the default lineheight is too small for multi-line text labels rendered with element_markdown().