1ps.slide <- function(file, 2 background=if(type!=2)"white" 3 else "navy blue", 4 foreground=if(type==2)'yellow' 5 else (if(background=="white")"black" 6 else "white"), 7 8 font='Helvetica', 9 pointsize=c(24,28,14,14)[type], hor=type!=4, 10 lwd=c(2,5,2,4)[type], 11 mgp=if(under.unix) 12 list(c(1.8,.4,0),c(1.5,.2,0),c(2,.4,0),c(1.5,.2,0))[[type]] 13 else 14 list(c(1.8,.5,0),c(1.5,.4,0),c(2,.5,0),c(1.5,.4,0))[[type]], 15 16 mar=list(c(4,3,2,1)+.1,c(5,4,2.25,2)+.1,c(3,3,1,1)+.1, 17 c(5,4,2.25,2)+.1)[[type]], 18 pch=202, view=FALSE, pcx=FALSE, tiff=FALSE, close=view|pcx|tiff, bty="l", type=2, 19 height=switch(type,NULL,NULL,5,8), width=switch(type,NULL,NULL,7,7), 20 tck=if(type==3 || !under.unix) -.013 21 else par('tck'), 22 las=if(type==3)1 23 else 0, 24 eps=FALSE, ...) 25{ 26 if(close) { 27 graphics.off() 28 file <- .Options$ps.slide.file 29 if(view) 30 unix(paste("ghostview ", file, ".ps &", sep=""), output=FALSE) 31 32 if(pcx) { 33 unix(paste("(gs -sDEVICE=pbm -sOutputFile=- -r75 -q - quit.ps < ", 34 file, ".ps | pnmflip -cw | ppmtopcx > ", file, ".pcx) &", sep=""), 35 output=FALSE) 36 cat("\nFile ", file, ".pcx being created \n", sep="") 37 ##if(view) unix(paste("xli ", file, ".pcx &", sep=""), output=FALSE) 38 } 39 40 if(tiff) { 41 unix(paste("(gs -sDEVICE=pbmraw -sOutputFile=- -r300 -q - quit.ps < ", 42 file, ".ps | pnmflip -cw | pnmtotiff > ", file, ".tiff) &",sep=""), 43 output=FALSE) 44 cat("\nFile ", file, ".tiff being created \n", sep="") 45 } 46 47 return(invisible()) 48 } 49 50 if(is.logical(background) && background) 51 background <- "navy blue" 52 53 options(ps.slide.file=file, TEMPORARY=FALSE) 54 if(!.R.) { 55 cols <- ps.colors.rgb[c(foreground,background),] 56 fonts <- 57 if(under.unix) 58 ps.options()$fonts 59 else ps.fonts 60 61 fonts[1] <- font 62 if(font=='Times-Roman') 63 fonts[5] <- 'Times-Bold' 64 65 if(under.unix) { 66 ps.options(colors=cols, background=2, fonts=fonts, pointsize=pointsize, ...) 67 cat('\nIf using legend() be sure to add the arguments background=2, bty="n"\n') 68 69 if(length(height) && length(width)) 70 postscript(paste(file,'.ps',sep=''), 71 horizontal=hor, height=height, width=width, 72 pointsize=.6*pointsize*max(width/(30*12/72.27), 73 height/(30*12/72.27/((1+sqrt(5))/2))), 74 print.it=FALSE, onefile=!eps) 75 else 76 postscript(paste(file,".ps",sep=""), horizontal=hor, print.it=FALSE, onefile=!eps) 77 } else { 78 if(length(height) && length(width)) 79 postscript(paste(file,'.ps',sep=''), 80 horizontal=hor, height=height, width=width, 81 pointsize=.6*pointsize*max(width/(30*12/72.27), 82 height/(30*12/72.27/((1+sqrt(5))/2))), 83 colors=cols, fonts=fonts, ...) 84 else 85 postscript(paste(file,'.ps',sep=''), 86 horizontal=hor, colors=cols, fonts=fonts, ...) 87 } 88 } else { # 10Apr01 89 if(length(height) && length(width)) 90 postscript(paste(file,'.ps',sep=''), 91 horizontal=hor, height=height, width=width, 92 pointsize=.6*pointsize*max(width/(30*12/72.27), 93 height/(30*12/72.27/((1+sqrt(5))/2))), 94 fg=foreground, bg=background, family=font, ...) 95 else 96 postscript(paste(file,'.ps',sep=''), 97 fg=foreground, bg=background, family=font, ...) 98 } 99 100 par(lwd=lwd, mgp=mgp, mar=mar, pch=pch, bty=bty, smo=0, tck=tck, las=las) 101 ##mgp.axis.labels(c(mgp[2], if(las==1) 1.3 else mgp[2])) 102 invisible() 103} 104 105 106if(!.R. && !under.unix) ps.colors.rgb <- 107 structure(.Data = c(1, 0.972549019607843, 0.972549019607843, 0.96078431372549, 108 0.96078431372549, 0.862745098039216, 1, 1, 0.992156862745098, 109 0.992156862745098, 0.980392156862745, 0.980392156862745, 110 0.980392156862745, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 111 0.941176470588235, 0.96078431372549, 0.96078431372549, 112 0.941176470588235, 0.941176470588235, 0.941176470588235, 113 0.901960784313726, 1, 1, 1, 1, 1, 0, 0.184313725490196, 114 0.184313725490196, 0.184313725490196, 0.184313725490196, 115 0.411764705882353, 0.411764705882353, 0.411764705882353, 116 0.411764705882353, 0.43921568627451, 0.43921568627451, 0.43921568627451, 117 0.43921568627451, 0.466666666666667, 0.466666666666667, 118 0.466666666666667, 0.466666666666667, 0.752941176470588, 119 0.752941176470588, 0.827450980392157, 0.827450980392157, 120 0.827450980392157, 0.827450980392157, 0.0980392156862745, 121 0.0980392156862745, 0, 0, 0, 0.392156862745098, 0.392156862745098, 122 0.282352941176471, 0.282352941176471, 0.415686274509804, 123 0.415686274509804, 0.482352941176471, 0.482352941176471, 124 0.517647058823529, 0.517647058823529, 0, 0, 0.254901960784314, 125 0.254901960784314, 0, 0.117647058823529, 0.117647058823529, 0, 0, 126 0.529411764705882, 0.529411764705882, 0.529411764705882, 127 0.529411764705882, 0.274509803921569, 0.274509803921569, 128 0.690196078431373, 0.690196078431373, 0.67843137254902, 129 0.67843137254902, 0.690196078431373, 0.690196078431373, 130 0.686274509803922, 0.686274509803922, 0, 0, 0.282352941176471, 131 0.282352941176471, 0.250980392156863, 0, 0.87843137254902, 132 0.87843137254902, 0.372549019607843, 0.372549019607843, 0.4, 0.4, 133 0.498039215686275, 0, 0, 0.333333333333333, 0.333333333333333, 134 0.56078431372549, 0.56078431372549, 0.180392156862745, 135 0.180392156862745, 0.235294117647059, 0.235294117647059, 136 0.125490196078431, 0.125490196078431, 0.596078431372549, 137 0.596078431372549, 0, 0, 0.486274509803922, 0.486274509803922, 0, 138 0.498039215686275, 0, 0, 0.67843137254902, 0.67843137254902, 139 0.196078431372549, 0.196078431372549, 0.603921568627451, 140 0.603921568627451, 0.133333333333333, 0.133333333333333, 141 0.419607843137255, 0.419607843137255, 0.741176470588235, 142 0.741176470588235, 0.941176470588235, 0.933333333333333, 143 0.933333333333333, 0.980392156862745, 0.980392156862745, 1, 1, 1, 1, 144 0.933333333333333, 0.933333333333333, 0.854901960784314, 145 0.72156862745098, 0.72156862745098, 0.737254901960784, 146 0.737254901960784, 0.803921568627451, 0.803921568627451, 147 0.545098039215686, 0.545098039215686, 0.627450980392157, 148 0.803921568627451, 0.870588235294118, 0.96078431372549, 149 0.96078431372549, 0.956862745098039, 0.956862745098039, 150 0.823529411764706, 0.823529411764706, 0.698039215686274, 151 0.647058823529412, 0.913725490196078, 0.913725490196078, 152 0.980392156862745, 1, 1, 1, 1, 1, 1, 0.941176470588235, 153 0.941176470588235, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.858823529411765, 154 0.858823529411765, 0.690196078431373, 0.780392156862745, 155 0.780392156862745, 0.815686274509804, 0.815686274509804, 1, 156 0.933333333333333, 0.866666666666667, 0.854901960784314, 157 0.729411764705882, 0.729411764705882, 0.6, 0.6, 0.580392156862745, 158 0.580392156862745, 0.541176470588235, 0.541176470588235, 159 0.627450980392157, 0.576470588235294, 0.576470588235294, 160 0.847058823529412, 1, 0.933333333333333, 0.803921568627451, 161 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 162 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 163 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 164 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 165 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 166 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 167 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 168 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 169 0.545098039215686, 0.941176470588235, 0.87843137254902, 170 0.756862745098039, 0.513725490196078, 1, 0.933333333333333, 171 0.803921568627451, 0.545098039215686, 1, 0.933333333333333, 172 0.803921568627451, 0.545098039215686, 0.941176470588235, 173 0.87843137254902, 0.756862745098039, 0.513725490196078, 174 0.513725490196078, 0.47843137254902, 0.411764705882353, 175 0.27843137254902, 0.282352941176471, 0.262745098039216, 176 0.227450980392157, 0.152941176470588, 0, 0, 0, 0, 0.117647058823529, 177 0.109803921568627, 0.0941176470588235, 0.0627450980392157, 178 0.388235294117647, 0.36078431372549, 0.309803921568627, 179 0.211764705882353, 0, 0, 0, 0, 0.529411764705882, 0.494117647058824, 180 0.423529411764706, 0.290196078431373, 0.690196078431373, 181 0.643137254901961, 0.552941176470588, 0.376470588235294, 182 0.776470588235294, 0.725490196078431, 0.623529411764706, 183 0.423529411764706, 0.792156862745098, 0.737254901960784, 184 0.635294117647059, 0.431372549019608, 0.749019607843137, 185 0.698039215686274, 0.603921568627451, 0.407843137254902, 186 0.87843137254902, 0.819607843137255, 0.705882352941177, 187 0.47843137254902, 0.733333333333333, 0.682352941176471, 188 0.588235294117647, 0.4, 0.596078431372549, 0.556862745098039, 189 0.47843137254902, 0.325490196078431, 0, 0, 0, 0, 0, 0, 0, 0, 190 0.592156862745098, 0.552941176470588, 0.474509803921569, 191 0.32156862745098, 0.498039215686275, 0.462745098039216, 0.4, 192 0.270588235294118, 0.756862745098039, 0.705882352941177, 193 0.607843137254902, 0.411764705882353, 0.329411764705882, 194 0.305882352941176, 0.262745098039216, 0.180392156862745, 195 0.603921568627451, 0.564705882352941, 0.486274509803922, 196 0.329411764705882, 0, 0, 0, 0, 0, 0, 0, 0, 0.498039215686275, 197 0.462745098039216, 0.4, 0.270588235294118, 0.752941176470588, 198 0.701960784313725, 0.603921568627451, 0.411764705882353, 199 0.792156862745098, 0.737254901960784, 0.635294117647059, 200 0.431372549019608, 1, 0.933333333333333, 0.803921568627451, 201 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 202 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 203 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 204 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 205 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 206 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 207 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 208 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 209 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 210 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 211 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 212 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 213 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 214 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 215 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 216 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 217 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 218 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 219 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 220 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 221 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 222 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 223 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 224 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 225 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 226 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 227 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 228 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 229 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 230 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 231 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 232 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 233 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 234 0.545098039215686, 0.87843137254902, 0.819607843137255, 235 0.705882352941177, 0.47843137254902, 0.749019607843137, 236 0.698039215686274, 0.603921568627451, 0.407843137254902, 237 0.607843137254902, 0.568627450980392, 0.490196078431373, 238 0.333333333333333, 0.670588235294118, 0.623529411764706, 239 0.537254901960784, 0.364705882352941, 1, 0.933333333333333, 240 0.803921568627451, 0.545098039215686, 0, 0, 0.0117647058823529, 241 0.0117647058823529, 0.0196078431372549, 0.0196078431372549, 242 0.0313725490196078, 0.0313725490196078, 0.0392156862745098, 243 0.0392156862745098, 0.0509803921568627, 0.0509803921568627, 244 0.0588235294117647, 0.0588235294117647, 0.0705882352941176, 245 0.0705882352941176, 0.0784313725490196, 0.0784313725490196, 246 0.0901960784313725, 0.0901960784313725, 0.101960784313725, 247 0.101960784313725, 0.109803921568627, 0.109803921568627, 248 0.12156862745098, 0.12156862745098, 0.129411764705882, 249 0.129411764705882, 0.141176470588235, 0.141176470588235, 250 0.149019607843137, 0.149019607843137, 0.16078431372549, 251 0.16078431372549, 0.168627450980392, 0.168627450980392, 252 0.180392156862745, 0.180392156862745, 0.188235294117647, 253 0.188235294117647, 0.2, 0.2, 0.211764705882353, 0.211764705882353, 254 0.219607843137255, 0.219607843137255, 0.231372549019608, 255 0.231372549019608, 0.23921568627451, 0.23921568627451, 256 0.250980392156863, 0.250980392156863, 0.258823529411765, 257 0.258823529411765, 0.270588235294118, 0.270588235294118, 258 0.27843137254902, 0.27843137254902, 0.290196078431373, 259 0.290196078431373, 0.301960784313725, 0.301960784313725, 260 0.309803921568627, 0.309803921568627, 0.32156862745098, 261 0.32156862745098, 0.329411764705882, 0.329411764705882, 262 0.341176470588235, 0.341176470588235, 0.349019607843137, 263 0.349019607843137, 0.36078431372549, 0.36078431372549, 264 0.368627450980392, 0.368627450980392, 0.380392156862745, 265 0.380392156862745, 0.388235294117647, 0.388235294117647, 0.4, 0.4, 266 0.411764705882353, 0.411764705882353, 0.419607843137255, 267 0.419607843137255, 0.431372549019608, 0.431372549019608, 268 0.43921568627451, 0.43921568627451, 0.450980392156863, 269 0.450980392156863, 0.458823529411765, 0.458823529411765, 270 0.470588235294118, 0.470588235294118, 0.47843137254902, 271 0.47843137254902, 0.490196078431373, 0.490196078431373, 272 0.498039215686275, 0.498039215686275, 0.509803921568627, 273 0.509803921568627, 0.52156862745098, 0.52156862745098, 274 0.529411764705882, 0.529411764705882, 0.541176470588235, 275 0.541176470588235, 0.549019607843137, 0.549019607843137, 276 0.56078431372549, 0.56078431372549, 0.568627450980392, 277 0.568627450980392, 0.580392156862745, 0.580392156862745, 278 0.588235294117647, 0.588235294117647, 0.6, 0.6, 0.611764705882353, 279 0.611764705882353, 0.619607843137255, 0.619607843137255, 280 0.631372549019608, 0.631372549019608, 0.63921568627451, 281 0.63921568627451, 0.650980392156863, 0.650980392156863, 282 0.658823529411765, 0.658823529411765, 0.670588235294118, 283 0.670588235294118, 0.67843137254902, 0.67843137254902, 284 0.690196078431373, 0.690196078431373, 0.701960784313725, 285 0.701960784313725, 0.709803921568627, 0.709803921568627, 286 0.72156862745098, 0.72156862745098, 0.729411764705882, 287 0.729411764705882, 0.741176470588235, 0.741176470588235, 288 0.749019607843137, 0.749019607843137, 0.76078431372549, 289 0.76078431372549, 0.768627450980392, 0.768627450980392, 290 0.780392156862745, 0.780392156862745, 0.788235294117647, 291 0.788235294117647, 0.8, 0.8, 0.811764705882353, 0.811764705882353, 292 0.819607843137255, 0.819607843137255, 0.831372549019608, 293 0.831372549019608, 0.83921568627451, 0.83921568627451, 294 0.850980392156863, 0.850980392156863, 0.858823529411765, 295 0.858823529411765, 0.870588235294118, 0.870588235294118, 296 0.87843137254902, 0.87843137254902, 0.890196078431372, 297 0.890196078431372, 0.898039215686275, 0.898039215686275, 298 0.909803921568627, 0.909803921568627, 0.92156862745098, 299 0.92156862745098, 0.929411764705882, 0.929411764705882, 300 0.941176470588235, 0.941176470588235, 0.949019607843137, 301 0.949019607843137, 0.96078431372549, 0.96078431372549, 302 0.968627450980392, 0.968627450980392, 0.980392156862745, 303 0.980392156862745, 0.988235294117647, 0.988235294117647, 1, 1, 304 0.980392156862745, 0.972549019607843, 0.972549019607843, 305 0.96078431372549, 0.96078431372549, 0.862745098039216, 306 0.980392156862745, 0.980392156862745, 0.96078431372549, 307 0.96078431372549, 0.941176470588235, 0.92156862745098, 0.92156862745098, 308 0.937254901960784, 0.937254901960784, 0.92156862745098, 309 0.92156862745098, 0.894117647058824, 0.854901960784314, 310 0.854901960784314, 0.870588235294118, 0.870588235294118, 311 0.894117647058824, 0.972549019607843, 1, 0.980392156862745, 312 0.980392156862745, 0.96078431372549, 1, 1, 1, 1, 0.972549019607843, 313 0.972549019607843, 0.901960784313726, 0.941176470588235, 314 0.941176470588235, 0.894117647058824, 0.894117647058824, 1, 0, 315 0.309803921568627, 0.309803921568627, 0.309803921568627, 316 0.309803921568627, 0.411764705882353, 0.411764705882353, 317 0.411764705882353, 0.411764705882353, 0.501960784313725, 318 0.501960784313725, 0.501960784313725, 0.501960784313725, 319 0.533333333333333, 0.533333333333333, 0.533333333333333, 320 0.533333333333333, 0.752941176470588, 0.752941176470588, 321 0.827450980392157, 0.827450980392157, 0.827450980392157, 322 0.827450980392157, 0.0980392156862745, 0.0980392156862745, 0, 0, 0, 323 0.584313725490196, 0.584313725490196, 0.23921568627451, 324 0.23921568627451, 0.352941176470588, 0.352941176470588, 325 0.407843137254902, 0.407843137254902, 0.43921568627451, 326 0.43921568627451, 0, 0, 0.411764705882353, 0.411764705882353, 0, 327 0.564705882352941, 0.564705882352941, 0.749019607843137, 328 0.749019607843137, 0.807843137254902, 0.807843137254902, 329 0.807843137254902, 0.807843137254902, 0.509803921568627, 330 0.509803921568627, 0.768627450980392, 0.768627450980392, 331 0.847058823529412, 0.847058823529412, 0.87843137254902, 332 0.87843137254902, 0.933333333333333, 0.933333333333333, 333 0.807843137254902, 0.807843137254902, 0.819607843137255, 334 0.819607843137255, 0.87843137254902, 1, 1, 1, 0.619607843137255, 335 0.619607843137255, 0.803921568627451, 0.803921568627451, 1, 336 0.392156862745098, 0.392156862745098, 0.419607843137255, 337 0.419607843137255, 0.737254901960784, 0.737254901960784, 338 0.545098039215686, 0.545098039215686, 0.701960784313725, 339 0.701960784313725, 0.698039215686274, 0.698039215686274, 340 0.984313725490196, 0.984313725490196, 1, 1, 0.988235294117647, 341 0.988235294117647, 1, 1, 0.980392156862745, 0.980392156862745, 1, 1, 342 0.803921568627451, 0.803921568627451, 0.803921568627451, 343 0.803921568627451, 0.545098039215686, 0.545098039215686, 344 0.556862745098039, 0.556862745098039, 0.717647058823529, 345 0.717647058823529, 0.901960784313726, 0.909803921568627, 346 0.909803921568627, 0.980392156862745, 0.980392156862745, 1, 1, 1, 347 0.843137254901961, 0.866666666666667, 0.866666666666667, 348 0.647058823529412, 0.525490196078431, 0.525490196078431, 349 0.56078431372549, 0.56078431372549, 0.36078431372549, 0.36078431372549, 350 0.270588235294118, 0.270588235294118, 0.32156862745098, 351 0.52156862745098, 0.72156862745098, 0.96078431372549, 0.870588235294118, 352 0.643137254901961, 0.643137254901961, 0.705882352941177, 353 0.411764705882353, 0.133333333333333, 0.164705882352941, 354 0.588235294117647, 0.588235294117647, 0.501960784313725, 355 0.627450980392157, 0.627450980392157, 0.647058823529412, 356 0.549019607843137, 0.549019607843137, 0.498039215686275, 357 0.501960784313725, 0.501960784313725, 0.388235294117647, 358 0.270588235294118, 0.270588235294118, 0, 0.411764705882353, 359 0.411764705882353, 0.0784313725490196, 0.0784313725490196, 360 0.752941176470588, 0.713725490196078, 0.713725490196078, 361 0.43921568627451, 0.43921568627451, 0.188235294117647, 362 0.0823529411764706, 0.0823529411764706, 0.125490196078431, 363 0.125490196078431, 0, 0.509803921568627, 0.627450980392157, 364 0.43921568627451, 0.333333333333333, 0.333333333333333, 365 0.196078431372549, 0.196078431372549, 0, 0, 0.168627450980392, 366 0.168627450980392, 0.125490196078431, 0.43921568627451, 367 0.43921568627451, 0.749019607843137, 0.980392156862745, 368 0.913725490196078, 0.788235294117647, 0.537254901960784, 369 0.96078431372549, 0.898039215686275, 0.772549019607843, 370 0.525490196078431, 0.937254901960784, 0.874509803921569, 371 0.752941176470588, 0.513725490196078, 0.894117647058824, 372 0.835294117647059, 0.717647058823529, 0.490196078431373, 373 0.854901960784314, 0.796078431372549, 0.686274509803922, 374 0.466666666666667, 0.870588235294118, 0.811764705882353, 375 0.701960784313725, 0.474509803921569, 0.980392156862745, 376 0.913725490196078, 0.788235294117647, 0.537254901960784, 377 0.972549019607843, 0.909803921568627, 0.784313725490196, 378 0.533333333333333, 1, 0.933333333333333, 0.803921568627451, 379 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 380 0.545098039215686, 0.941176470588235, 0.87843137254902, 381 0.756862745098039, 0.513725490196078, 0.894117647058824, 382 0.835294117647059, 0.717647058823529, 0.490196078431373, 1, 383 0.933333333333333, 0.803921568627451, 0.545098039215686, 384 0.435294117647059, 0.403921568627451, 0.349019607843137, 385 0.235294117647059, 0.462745098039216, 0.431372549019608, 386 0.372549019607843, 0.250980392156863, 0, 0, 0, 0, 0.564705882352941, 387 0.525490196078431, 0.454901960784314, 0.305882352941176, 388 0.72156862745098, 0.674509803921569, 0.580392156862745, 389 0.392156862745098, 0.749019607843137, 0.698039215686274, 390 0.603921568627451, 0.407843137254902, 0.807843137254902, 391 0.752941176470588, 0.650980392156863, 0.43921568627451, 392 0.886274509803922, 0.827450980392157, 0.713725490196078, 393 0.482352941176471, 0.886274509803922, 0.827450980392157, 394 0.713725490196078, 0.482352941176471, 0.882352941176471, 395 0.823529411764706, 0.709803921568627, 0.482352941176471, 396 0.937254901960784, 0.874509803921569, 0.752941176470588, 397 0.513725490196078, 1, 0.933333333333333, 0.803921568627451, 398 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 399 0.545098039215686, 0.96078431372549, 0.898039215686275, 400 0.772549019607843, 0.525490196078431, 0.96078431372549, 401 0.898039215686275, 0.772549019607843, 0.525490196078431, 1, 402 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 403 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 404 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 405 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 406 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 407 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 408 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 409 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 410 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 411 0.933333333333333, 0.803921568627451, 0.545098039215686, 1, 412 0.933333333333333, 0.803921568627451, 0.545098039215686, 413 0.964705882352941, 0.901960784313726, 0.776470588235294, 414 0.525490196078431, 0.925490196078431, 0.862745098039216, 415 0.745098039215686, 0.505882352941176, 1, 0.933333333333333, 416 0.803921568627451, 0.545098039215686, 1, 0.933333333333333, 417 0.803921568627451, 0.545098039215686, 0.843137254901961, 418 0.788235294117647, 0.67843137254902, 0.458823529411765, 419 0.756862745098039, 0.705882352941177, 0.607843137254902, 420 0.411764705882353, 0.725490196078431, 0.67843137254902, 421 0.584313725490196, 0.396078431372549, 0.756862745098039, 422 0.705882352941177, 0.607843137254902, 0.411764705882353, 423 0.415686274509804, 0.388235294117647, 0.333333333333333, 424 0.227450980392157, 0.509803921568627, 0.474509803921569, 425 0.407843137254902, 0.27843137254902, 0.827450980392157, 426 0.772549019607843, 0.666666666666667, 0.450980392156863, 427 0.905882352941176, 0.847058823529412, 0.729411764705882, 428 0.494117647058824, 0.647058823529412, 0.603921568627451, 429 0.52156862745098, 0.352941176470588, 0.498039215686275, 430 0.462745098039216, 0.4, 0.270588235294118, 0.188235294117647, 431 0.172549019607843, 0.149019607843137, 0.101960784313725, 432 0.250980392156863, 0.231372549019608, 0.2, 0.137254901960784, 433 0.549019607843137, 0.509803921568627, 0.43921568627451, 434 0.298039215686275, 0.627450980392157, 0.584313725490196, 435 0.505882352941176, 0.341176470588235, 0.647058823529412, 436 0.603921568627451, 0.52156862745098, 0.352941176470588, 437 0.498039215686275, 0.462745098039216, 0.4, 0.270588235294118, 438 0.447058823529412, 0.415686274509804, 0.356862745098039, 439 0.243137254901961, 0.388235294117647, 0.36078431372549, 440 0.309803921568627, 0.211764705882353, 0.270588235294118, 441 0.250980392156863, 0.215686274509804, 0.145098039215686, 0, 0, 0, 0, 442 0.0784313725490196, 0.0705882352941176, 0.0627450980392157, 443 0.0392156862745098, 0.431372549019608, 0.415686274509804, 444 0.376470588235294, 0.227450980392157, 0.709803921568627, 445 0.662745098039216, 0.568627450980392, 0.388235294117647, 446 0.682352941176471, 0.635294117647059, 0.549019607843137, 447 0.372549019607843, 0.509803921568627, 0.474509803921569, 448 0.407843137254902, 0.27843137254902, 0.203921568627451, 449 0.188235294117647, 0.16078431372549, 0.109803921568627, 450 0.243137254901961, 0.227450980392157, 0.196078431372549, 451 0.133333333333333, 0, 0, 0, 0, 0.513725490196078, 0.47843137254902, 452 0.411764705882353, 0.27843137254902, 0.733333333333333, 453 0.682352941176471, 0.588235294117647, 0.4, 0.4, 0.372549019607843, 454 0.32156862745098, 0.215686274509804, 0.243137254901961, 455 0.227450980392157, 0.196078431372549, 0.133333333333333, 456 0.188235294117647, 0.172549019607843, 0.149019607843137, 457 0.101960784313725, 0.509803921568627, 0.474509803921569, 458 0.407843137254902, 0.27843137254902, 0.882352941176471, 459 0.823529411764706, 0.709803921568627, 0.482352941176471, 0, 0, 460 0.0117647058823529, 0.0117647058823529, 0.0196078431372549, 461 0.0196078431372549, 0.0313725490196078, 0.0313725490196078, 462 0.0392156862745098, 0.0392156862745098, 0.0509803921568627, 463 0.0509803921568627, 0.0588235294117647, 0.0588235294117647, 464 0.0705882352941176, 0.0705882352941176, 0.0784313725490196, 465 0.0784313725490196, 0.0901960784313725, 0.0901960784313725, 466 0.101960784313725, 0.101960784313725, 0.109803921568627, 467 0.109803921568627, 0.12156862745098, 0.12156862745098, 468 0.129411764705882, 0.129411764705882, 0.141176470588235, 469 0.141176470588235, 0.149019607843137, 0.149019607843137, 470 0.16078431372549, 0.16078431372549, 0.168627450980392, 471 0.168627450980392, 0.180392156862745, 0.180392156862745, 472 0.188235294117647, 0.188235294117647, 0.2, 0.2, 0.211764705882353, 473 0.211764705882353, 0.219607843137255, 0.219607843137255, 474 0.231372549019608, 0.231372549019608, 0.23921568627451, 475 0.23921568627451, 0.250980392156863, 0.250980392156863, 476 0.258823529411765, 0.258823529411765, 0.270588235294118, 477 0.270588235294118, 0.27843137254902, 0.27843137254902, 478 0.290196078431373, 0.290196078431373, 0.301960784313725, 479 0.301960784313725, 0.309803921568627, 0.309803921568627, 480 0.32156862745098, 0.32156862745098, 0.329411764705882, 481 0.329411764705882, 0.341176470588235, 0.341176470588235, 482 0.349019607843137, 0.349019607843137, 0.36078431372549, 483 0.36078431372549, 0.368627450980392, 0.368627450980392, 484 0.380392156862745, 0.380392156862745, 0.388235294117647, 485 0.388235294117647, 0.4, 0.4, 0.411764705882353, 0.411764705882353, 486 0.419607843137255, 0.419607843137255, 0.431372549019608, 487 0.431372549019608, 0.43921568627451, 0.43921568627451, 488 0.450980392156863, 0.450980392156863, 0.458823529411765, 489 0.458823529411765, 0.470588235294118, 0.470588235294118, 490 0.47843137254902, 0.47843137254902, 0.490196078431373, 491 0.490196078431373, 0.498039215686275, 0.498039215686275, 492 0.509803921568627, 0.509803921568627, 0.52156862745098, 493 0.52156862745098, 0.529411764705882, 0.529411764705882, 494 0.541176470588235, 0.541176470588235, 0.549019607843137, 495 0.549019607843137, 0.56078431372549, 0.56078431372549, 496 0.568627450980392, 0.568627450980392, 0.580392156862745, 497 0.580392156862745, 0.588235294117647, 0.588235294117647, 0.6, 0.6, 498 0.611764705882353, 0.611764705882353, 0.619607843137255, 499 0.619607843137255, 0.631372549019608, 0.631372549019608, 500 0.63921568627451, 0.63921568627451, 0.650980392156863, 501 0.650980392156863, 0.658823529411765, 0.658823529411765, 502 0.670588235294118, 0.670588235294118, 0.67843137254902, 503 0.67843137254902, 0.690196078431373, 0.690196078431373, 504 0.701960784313725, 0.701960784313725, 0.709803921568627, 505 0.709803921568627, 0.72156862745098, 0.72156862745098, 506 0.729411764705882, 0.729411764705882, 0.741176470588235, 507 0.741176470588235, 0.749019607843137, 0.749019607843137, 508 0.76078431372549, 0.76078431372549, 0.768627450980392, 509 0.768627450980392, 0.780392156862745, 0.780392156862745, 510 0.788235294117647, 0.788235294117647, 0.8, 0.8, 0.811764705882353, 511 0.811764705882353, 0.819607843137255, 0.819607843137255, 512 0.831372549019608, 0.831372549019608, 0.83921568627451, 513 0.83921568627451, 0.850980392156863, 0.850980392156863, 514 0.858823529411765, 0.858823529411765, 0.870588235294118, 515 0.870588235294118, 0.87843137254902, 0.87843137254902, 516 0.890196078431372, 0.890196078431372, 0.898039215686275, 517 0.898039215686275, 0.909803921568627, 0.909803921568627, 518 0.92156862745098, 0.92156862745098, 0.929411764705882, 519 0.929411764705882, 0.941176470588235, 0.941176470588235, 520 0.949019607843137, 0.949019607843137, 0.96078431372549, 521 0.96078431372549, 0.968627450980392, 0.968627450980392, 522 0.980392156862745, 0.980392156862745, 0.988235294117647, 523 0.988235294117647, 1, 1, 0.980392156862745, 1, 1, 0.96078431372549, 524 0.96078431372549, 0.862745098039216, 0.941176470588235, 525 0.941176470588235, 0.901960784313726, 0.901960784313726, 526 0.901960784313726, 0.843137254901961, 0.843137254901961, 527 0.835294117647059, 0.835294117647059, 0.803921568627451, 528 0.803921568627451, 0.768627450980392, 0.725490196078431, 529 0.725490196078431, 0.67843137254902, 0.67843137254902, 530 0.709803921568627, 0.862745098039216, 0.941176470588235, 531 0.803921568627451, 0.803921568627451, 0.933333333333333, 532 0.941176470588235, 0.980392156862745, 0.980392156862745, 1, 1, 1, 533 0.980392156862745, 0.96078431372549, 0.96078431372549, 534 0.882352941176471, 0.882352941176471, 1, 0, 0.309803921568627, 535 0.309803921568627, 0.309803921568627, 0.309803921568627, 536 0.411764705882353, 0.411764705882353, 0.411764705882353, 537 0.411764705882353, 0.564705882352941, 0.564705882352941, 538 0.564705882352941, 0.564705882352941, 0.6, 0.6, 0.6, 0.6, 539 0.752941176470588, 0.752941176470588, 0.827450980392157, 540 0.827450980392157, 0.827450980392157, 0.827450980392157, 541 0.43921568627451, 0.43921568627451, 0.501960784313725, 542 0.501960784313725, 0.501960784313725, 0.929411764705882, 543 0.929411764705882, 0.545098039215686, 0.545098039215686, 544 0.803921568627451, 0.803921568627451, 0.933333333333333, 545 0.933333333333333, 1, 1, 0.803921568627451, 0.803921568627451, 546 0.882352941176471, 0.882352941176471, 1, 1, 1, 1, 1, 0.92156862745098, 547 0.92156862745098, 0.980392156862745, 0.980392156862745, 548 0.705882352941177, 0.705882352941177, 0.870588235294118, 549 0.870588235294118, 0.901960784313726, 0.901960784313726, 550 0.901960784313726, 0.901960784313726, 0.933333333333333, 551 0.933333333333333, 0.819607843137255, 0.819607843137255, 0.8, 0.8, 552 0.815686274509804, 1, 1, 1, 0.627450980392157, 0.627450980392157, 553 0.666666666666667, 0.666666666666667, 0.831372549019608, 0, 0, 554 0.184313725490196, 0.184313725490196, 0.56078431372549, 555 0.56078431372549, 0.341176470588235, 0.341176470588235, 556 0.443137254901961, 0.443137254901961, 0.666666666666667, 557 0.666666666666667, 0.596078431372549, 0.596078431372549, 558 0.498039215686275, 0.498039215686275, 0, 0, 0, 0, 0.603921568627451, 559 0.603921568627451, 0.184313725490196, 0.184313725490196, 560 0.196078431372549, 0.196078431372549, 0.196078431372549, 561 0.196078431372549, 0.133333333333333, 0.133333333333333, 562 0.137254901960784, 0.137254901960784, 0.419607843137255, 563 0.419607843137255, 0.549019607843137, 0.666666666666667, 564 0.666666666666667, 0.823529411764706, 0.823529411764706, 565 0.87843137254902, 0.87843137254902, 0, 0, 0.509803921568627, 566 0.509803921568627, 0.125490196078431, 0.0431372549019608, 567 0.0431372549019608, 0.56078431372549, 0.56078431372549, 568 0.36078431372549, 0.36078431372549, 0.0745098039215686, 569 0.0745098039215686, 0.176470588235294, 0.247058823529412, 570 0.529411764705882, 0.862745098039216, 0.701960784313725, 571 0.376470588235294, 0.376470588235294, 0.549019607843137, 572 0.117647058823529, 0.133333333333333, 0.164705882352941, 573 0.47843137254902, 0.47843137254902, 0.447058823529412, 0.47843137254902, 574 0.47843137254902, 0, 0, 0, 0.313725490196078, 0.501960784313725, 575 0.501960784313725, 0.27843137254902, 0, 0, 0, 0.705882352941177, 576 0.705882352941177, 0.576470588235294, 0.576470588235294, 577 0.796078431372549, 0.756862745098039, 0.756862745098039, 578 0.576470588235294, 0.576470588235294, 0.376470588235294, 579 0.52156862745098, 0.52156862745098, 0.564705882352941, 580 0.564705882352941, 1, 0.933333333333333, 0.866666666666667, 581 0.83921568627451, 0.827450980392157, 0.827450980392157, 0.8, 0.8, 582 0.827450980392157, 0.827450980392157, 0.886274509803922, 583 0.886274509803922, 0.941176470588235, 0.858823529411765, 584 0.858823529411765, 0.847058823529412, 0.980392156862745, 585 0.913725490196078, 0.788235294117647, 0.537254901960784, 586 0.933333333333333, 0.870588235294118, 0.749019607843137, 587 0.509803921568627, 0.858823529411765, 0.8, 0.690196078431373, 588 0.470588235294118, 0.768627450980392, 0.717647058823529, 589 0.619607843137255, 0.419607843137255, 0.725490196078431, 590 0.67843137254902, 0.584313725490196, 0.396078431372549, 591 0.67843137254902, 0.631372549019608, 0.545098039215686, 592 0.368627450980392, 0.803921568627451, 0.749019607843137, 593 0.647058823529412, 0.43921568627451, 0.862745098039216, 594 0.803921568627451, 0.694117647058824, 0.470588235294118, 595 0.941176470588235, 0.87843137254902, 0.756862745098039, 596 0.513725490196078, 0.941176470588235, 0.87843137254902, 597 0.756862745098039, 0.513725490196078, 0.96078431372549, 598 0.898039215686275, 0.772549019607843, 0.525490196078431, 599 0.882352941176471, 0.823529411764706, 0.709803921568627, 600 0.482352941176471, 1, 0.933333333333333, 0.803921568627451, 601 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 602 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 603 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 604 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 605 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 606 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 607 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 608 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 609 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 610 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 611 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 612 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 613 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 614 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 615 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 616 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 617 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 618 0.545098039215686, 0.831372549019608, 0.776470588235294, 619 0.666666666666667, 0.454901960784314, 0.756862745098039, 620 0.705882352941177, 0.607843137254902, 0.411764705882353, 621 0.623529411764706, 0.580392156862745, 0.501960784313725, 622 0.341176470588235, 0.603921568627451, 0.564705882352941, 623 0.486274509803922, 0.329411764705882, 0.498039215686275, 624 0.462745098039216, 0.4, 0.270588235294118, 0, 0, 0, 0, 0, 0, 0, 0, 625 0.243137254901961, 0.227450980392157, 0.196078431372549, 626 0.133333333333333, 0.43921568627451, 0.407843137254902, 627 0.352941176470588, 0.23921568627451, 0.56078431372549, 0.52156862745098, 628 0.450980392156863, 0.305882352941176, 0.545098039215686, 629 0.509803921568627, 0.43921568627451, 0.298039215686275, 630 0.87843137254902, 0.819607843137255, 0.705882352941177, 631 0.47843137254902, 0, 0, 0, 0, 0, 0, 0, 0, 0.145098039215686, 632 0.133333333333333, 0.113725490196078, 0.0784313725490196, 633 0.0588235294117647, 0.0549019607843137, 0.0470588235294118, 634 0.0313725490196078, 0.756862745098039, 0.705882352941177, 635 0.607843137254902, 0.411764705882353, 0.415686274509804, 636 0.388235294117647, 0.333333333333333, 0.227450980392157, 637 0.27843137254902, 0.258823529411765, 0.223529411764706, 638 0.149019607843137, 0.607843137254902, 0.568627450980392, 639 0.490196078431373, 0.333333333333333, 0.729411764705882, 640 0.682352941176471, 0.588235294117647, 0.4, 0.309803921568627, 641 0.286274509803922, 0.247058823529412, 0.168627450980392, 642 0.141176470588235, 0.129411764705882, 0.113725490196078, 643 0.0745098039215686, 0.188235294117647, 0.172549019607843, 644 0.149019607843137, 0.101960784313725, 0.250980392156863, 645 0.231372549019608, 0.2, 0.137254901960784, 0.411764705882353, 646 0.384313725490196, 0.329411764705882, 0.223529411764706, 647 0.47843137254902, 0.447058823529412, 0.384313725490196, 648 0.258823529411765, 0, 0, 0, 0, 0, 0, 0, 0, 0.337254901960784, 649 0.313725490196078, 0.270588235294118, 0.184313725490196, 650 0.27843137254902, 0.258823529411765, 0.223529411764706, 651 0.149019607843137, 0, 0, 0, 0, 0, 0, 0, 0, 0.576470588235294, 652 0.537254901960784, 0.462745098039216, 0.313725490196078, 653 0.705882352941177, 0.654901960784314, 0.564705882352941, 654 0.384313725490196, 0.772549019607843, 0.72156862745098, 655 0.619607843137255, 0.423529411764706, 0.725490196078431, 656 0.67843137254902, 0.584313725490196, 0.396078431372549, 657 0.670588235294118, 0.623529411764706, 0.537254901960784, 658 0.364705882352941, 0.701960784313725, 0.654901960784314, 659 0.564705882352941, 0.384313725490196, 0.588235294117647, 660 0.549019607843137, 0.470588235294118, 0.32156862745098, 1, 661 0.933333333333333, 0.803921568627451, 0.545098039215686, 662 0.980392156862745, 0.913725490196078, 0.788235294117647, 663 0.537254901960784, 1, 0.933333333333333, 0.803921568627451, 664 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 665 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 666 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 667 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 668 0.545098039215686, 1, 0.933333333333333, 0.803921568627451, 669 0.545098039215686, 0, 0, 0.0117647058823529, 0.0117647058823529, 670 0.0196078431372549, 0.0196078431372549, 0.0313725490196078, 671 0.0313725490196078, 0.0392156862745098, 0.0392156862745098, 672 0.0509803921568627, 0.0509803921568627, 0.0588235294117647, 673 0.0588235294117647, 0.0705882352941176, 0.0705882352941176, 674 0.0784313725490196, 0.0784313725490196, 0.0901960784313725, 675 0.0901960784313725, 0.101960784313725, 0.101960784313725, 676 0.109803921568627, 0.109803921568627, 0.12156862745098, 677 0.12156862745098, 0.129411764705882, 0.129411764705882, 678 0.141176470588235, 0.141176470588235, 0.149019607843137, 679 0.149019607843137, 0.16078431372549, 0.16078431372549, 680 0.168627450980392, 0.168627450980392, 0.180392156862745, 681 0.180392156862745, 0.188235294117647, 0.188235294117647, 0.2, 0.2, 682 0.211764705882353, 0.211764705882353, 0.219607843137255, 683 0.219607843137255, 0.231372549019608, 0.231372549019608, 684 0.23921568627451, 0.23921568627451, 0.250980392156863, 685 0.250980392156863, 0.258823529411765, 0.258823529411765, 686 0.270588235294118, 0.270588235294118, 0.27843137254902, 687 0.27843137254902, 0.290196078431373, 0.290196078431373, 688 0.301960784313725, 0.301960784313725, 0.309803921568627, 689 0.309803921568627, 0.32156862745098, 0.32156862745098, 690 0.329411764705882, 0.329411764705882, 0.341176470588235, 691 0.341176470588235, 0.349019607843137, 0.349019607843137, 692 0.36078431372549, 0.36078431372549, 0.368627450980392, 693 0.368627450980392, 0.380392156862745, 0.380392156862745, 694 0.388235294117647, 0.388235294117647, 0.4, 0.4, 0.411764705882353, 695 0.411764705882353, 0.419607843137255, 0.419607843137255, 696 0.431372549019608, 0.431372549019608, 0.43921568627451, 697 0.43921568627451, 0.450980392156863, 0.450980392156863, 698 0.458823529411765, 0.458823529411765, 0.470588235294118, 699 0.470588235294118, 0.47843137254902, 0.47843137254902, 700 0.490196078431373, 0.490196078431373, 0.498039215686275, 701 0.498039215686275, 0.509803921568627, 0.509803921568627, 702 0.52156862745098, 0.52156862745098, 0.529411764705882, 703 0.529411764705882, 0.541176470588235, 0.541176470588235, 704 0.549019607843137, 0.549019607843137, 0.56078431372549, 705 0.56078431372549, 0.568627450980392, 0.568627450980392, 706 0.580392156862745, 0.580392156862745, 0.588235294117647, 707 0.588235294117647, 0.6, 0.6, 0.611764705882353, 0.611764705882353, 708 0.619607843137255, 0.619607843137255, 0.631372549019608, 709 0.631372549019608, 0.63921568627451, 0.63921568627451, 710 0.650980392156863, 0.650980392156863, 0.658823529411765, 711 0.658823529411765, 0.670588235294118, 0.670588235294118, 712 0.67843137254902, 0.67843137254902, 0.690196078431373, 713 0.690196078431373, 0.701960784313725, 0.701960784313725, 714 0.709803921568627, 0.709803921568627, 0.72156862745098, 715 0.72156862745098, 0.729411764705882, 0.729411764705882, 716 0.741176470588235, 0.741176470588235, 0.749019607843137, 717 0.749019607843137, 0.76078431372549, 0.76078431372549, 718 0.768627450980392, 0.768627450980392, 0.780392156862745, 719 0.780392156862745, 0.788235294117647, 0.788235294117647, 0.8, 0.8, 720 0.811764705882353, 0.811764705882353, 0.819607843137255, 721 0.819607843137255, 0.831372549019608, 0.831372549019608, 722 0.83921568627451, 0.83921568627451, 0.850980392156863, 723 0.850980392156863, 0.858823529411765, 0.858823529411765, 724 0.870588235294118, 0.870588235294118, 0.87843137254902, 725 0.87843137254902, 0.890196078431372, 0.890196078431372, 726 0.898039215686275, 0.898039215686275, 0.909803921568627, 727 0.909803921568627, 0.92156862745098, 0.92156862745098, 728 0.929411764705882, 0.929411764705882, 0.941176470588235, 729 0.941176470588235, 0.949019607843137, 0.949019607843137, 730 0.96078431372549, 0.96078431372549, 0.968627450980392, 731 0.968627450980392, 0.980392156862745, 0.980392156862745, 732 0.988235294117647, 0.988235294117647, 1, 1), .Dim = c(738, 3), 733 .Dimnames = list(c("snow", "ghost white", "GhostWhite", "white smoke", 734 "WhiteSmoke", "gainsboro", "floral white", "FloralWhite", "old lace", 735 "OldLace", "linen", "antique white", "AntiqueWhite", "papaya whip", 736 "PapayaWhip", "blanched almond", "BlanchedAlmond", "bisque", 737 "peach puff", "PeachPuff", "navajo white", "NavajoWhite", "moccasin", 738 "cornsilk", "ivory", "lemon chiffon", "LemonChiffon", "seashell", 739 "honeydew", "mint cream", "MintCream", "azure", "alice blue", 740 "AliceBlue", "lavender", "lavender blush", "LavenderBlush", 741 "misty rose", "MistyRose", "white", "black", "dark slate gray", 742 "DarkSlateGray", "dark slate grey", "DarkSlateGrey", "dim gray", 743 "DimGray", "dim grey", "DimGrey", "slate gray", "SlateGray", 744 "slate grey", "SlateGrey", "light slate gray", "LightSlateGray", 745 "light slate grey", "LightSlateGrey", "gray", "grey", "light grey", 746 "LightGrey", "light gray", "LightGray", "midnight blue", "MidnightBlue", 747 "navy", "navy blue", "NavyBlue", "cornflower blue", "CornflowerBlue", 748 "dark slate blue", "DarkSlateBlue", "slate blue", "SlateBlue", 749 "medium slate blue", "MediumSlateBlue", "light slate blue", 750 "LightSlateBlue", "medium blue", "MediumBlue", "royal blue", 751 "RoyalBlue", "blue", "dodger blue", "DodgerBlue", "deep sky blue", 752 "DeepSkyBlue", "sky blue", "SkyBlue", "light sky blue", "LightSkyBlue", 753 "steel blue", "SteelBlue", "light steel blue", "LightSteelBlue", 754 "light blue", "LightBlue", "powder blue", "PowderBlue", 755 "pale turquoise", "PaleTurquoise", "dark turquoise", "DarkTurquoise", 756 "medium turquoise", "MediumTurquoise", "turquoise", "cyan", 757 "light cyan", "LightCyan", "cadet blue", "CadetBlue", 758 "medium aquamarine", "MediumAquamarine", "aquamarine", "dark green", 759 "DarkGreen", "dark olive green", "DarkOliveGreen", "dark sea green", 760 "DarkSeaGreen", "sea green", "SeaGreen", "medium sea green", 761 "MediumSeaGreen", "light sea green", "LightSeaGreen", "pale green", 762 "PaleGreen", "spring green", "SpringGreen", "lawn green", "LawnGreen", 763 "green", "chartreuse", "medium spring green", "MediumSpringGreen", 764 "green yellow", "GreenYellow", "lime green", "LimeGreen", 765 "yellow green", "YellowGreen", "forest green", "ForestGreen", 766 "olive drab", "OliveDrab", "dark khaki", "DarkKhaki", "khaki", 767 "pale goldenrod", "PaleGoldenrod", "light goldenrod yellow", 768 "LightGoldenrodYellow", "light yellow", "LightYellow", "yellow", "gold", 769 "light goldenrod", "LightGoldenrod", "goldenrod", "dark goldenrod", 770 "DarkGoldenrod", "rosy brown", "RosyBrown", "indian red", "IndianRed", 771 "saddle brown", "SaddleBrown", "sienna", "peru", "burlywood", "beige", 772 "wheat", "sandy brown", "SandyBrown", "tan", "chocolate", "firebrick", 773 "brown", "dark salmon", "DarkSalmon", "salmon", "light salmon", 774 "LightSalmon", "orange", "dark orange", "DarkOrange", "coral", 775 "light coral", "LightCoral", "tomato", "orange red", "OrangeRed", "red", 776 "hot pink", "HotPink", "deep pink", "DeepPink", "pink", "light pink", 777 "LightPink", "pale violet red", "PaleVioletRed", "maroon", 778 "medium violet red", "MediumVioletRed", "violet red", "VioletRed", 779 "magenta", "violet", "plum", "orchid", "medium orchid", "MediumOrchid", 780 "dark orchid", "DarkOrchid", "dark violet", "DarkViolet", "blue violet", 781 "BlueViolet", "purple", "medium purple", "MediumPurple", "thistle", 782 "snow1", "snow2", "snow3", "snow4", "seashell1", "seashell2", 783 "seashell3", "seashell4", "AntiqueWhite1", "AntiqueWhite2", 784 "AntiqueWhite3", "AntiqueWhite4", "bisque1", "bisque2", "bisque3", 785 "bisque4", "PeachPuff1", "PeachPuff2", "PeachPuff3", "PeachPuff4", 786 "NavajoWhite1", "NavajoWhite2", "NavajoWhite3", "NavajoWhite4", 787 "LemonChiffon1", "LemonChiffon2", "LemonChiffon3", "LemonChiffon4", 788 "cornsilk1", "cornsilk2", "cornsilk3", "cornsilk4", "ivory1", "ivory2", 789 "ivory3", "ivory4", "honeydew1", "honeydew2", "honeydew3", "honeydew4", 790 "LavenderBlush1", "LavenderBlush2", "LavenderBlush3", "LavenderBlush4", 791 "MistyRose1", "MistyRose2", "MistyRose3", "MistyRose4", "azure1", 792 "azure2", "azure3", "azure4", "SlateBlue1", "SlateBlue2", "SlateBlue3", 793 "SlateBlue4", "RoyalBlue1", "RoyalBlue2", "RoyalBlue3", "RoyalBlue4", 794 "blue1", "blue2", "blue3", "blue4", "DodgerBlue1", "DodgerBlue2", 795 "DodgerBlue3", "DodgerBlue4", "SteelBlue1", "SteelBlue2", "SteelBlue3", 796 "SteelBlue4", "DeepSkyBlue1", "DeepSkyBlue2", "DeepSkyBlue3", 797 "DeepSkyBlue4", "SkyBlue1", "SkyBlue2", "SkyBlue3", "SkyBlue4", 798 "LightSkyBlue1", "LightSkyBlue2", "LightSkyBlue3", "LightSkyBlue4", 799 "SlateGray1", "SlateGray2", "SlateGray3", "SlateGray4", 800 "LightSteelBlue1", "LightSteelBlue2", "LightSteelBlue3", 801 "LightSteelBlue4", "LightBlue1", "LightBlue2", "LightBlue3", 802 "LightBlue4", "LightCyan1", "LightCyan2", "LightCyan3", "LightCyan4", 803 "PaleTurquoise1", "PaleTurquoise2", "PaleTurquoise3", "PaleTurquoise4", 804 "CadetBlue1", "CadetBlue2", "CadetBlue3", "CadetBlue4", "turquoise1", 805 "turquoise2", "turquoise3", "turquoise4", "cyan1", "cyan2", "cyan3", 806 "cyan4", "DarkSlateGray1", "DarkSlateGray2", "DarkSlateGray3", 807 "DarkSlateGray4", "aquamarine1", "aquamarine2", "aquamarine3", 808 "aquamarine4", "DarkSeaGreen1", "DarkSeaGreen2", "DarkSeaGreen3", 809 "DarkSeaGreen4", "SeaGreen1", "SeaGreen2", "SeaGreen3", "SeaGreen4", 810 "PaleGreen1", "PaleGreen2", "PaleGreen3", "PaleGreen4", "SpringGreen1", 811 "SpringGreen2", "SpringGreen3", "SpringGreen4", "green1", "green2", 812 "green3", "green4", "chartreuse1", "chartreuse2", "chartreuse3", 813 "chartreuse4", "OliveDrab1", "OliveDrab2", "OliveDrab3", "OliveDrab4", 814 "DarkOliveGreen1", "DarkOliveGreen2", "DarkOliveGreen3", 815 "DarkOliveGreen4", "khaki1", "khaki2", "khaki3", "khaki4", 816 "LightGoldenrod1", "LightGoldenrod2", "LightGoldenrod3", 817 "LightGoldenrod4", "LightYellow1", "LightYellow2", "LightYellow3", 818 "LightYellow4", "yellow1", "yellow2", "yellow3", "yellow4", "gold1", 819 "gold2", "gold3", "gold4", "goldenrod1", "goldenrod2", "goldenrod3", 820 "goldenrod4", "DarkGoldenrod1", "DarkGoldenrod2", "DarkGoldenrod3", 821 "DarkGoldenrod4", "RosyBrown1", "RosyBrown2", "RosyBrown3", 822 "RosyBrown4", "IndianRed1", "IndianRed2", "IndianRed3", "IndianRed4", 823 "sienna1", "sienna2", "sienna3", "sienna4", "burlywood1", "burlywood2", 824 "burlywood3", "burlywood4", "wheat1", "wheat2", "wheat3", "wheat4", 825 "tan1", "tan2", "tan3", "tan4", "chocolate1", "chocolate2", 826 "chocolate3", "chocolate4", "firebrick1", "firebrick2", "firebrick3", 827 "firebrick4", "brown1", "brown2", "brown3", "brown4", "salmon1", 828 "salmon2", "salmon3", "salmon4", "LightSalmon1", "LightSalmon2", 829 "LightSalmon3", "LightSalmon4", "orange1", "orange2", "orange3", 830 "orange4", "DarkOrange1", "DarkOrange2", "DarkOrange3", "DarkOrange4", 831 "coral1", "coral2", "coral3", "coral4", "tomato1", "tomato2", "tomato3", 832 "tomato4", "OrangeRed1", "OrangeRed2", "OrangeRed3", "OrangeRed4", 833 "red1", "red2", "red3", "red4", "DeepPink1", "DeepPink2", "DeepPink3", 834 "DeepPink4", "HotPink1", "HotPink2", "HotPink3", "HotPink4", "pink1", 835 "pink2", "pink3", "pink4", "LightPink1", "LightPink2", "LightPink3", 836 "LightPink4", "PaleVioletRed1", "PaleVioletRed2", "PaleVioletRed3", 837 "PaleVioletRed4", "maroon1", "maroon2", "maroon3", "maroon4", 838 "VioletRed1", "VioletRed2", "VioletRed3", "VioletRed4", "magenta1", 839 "magenta2", "magenta3", "magenta4", "orchid1", "orchid2", "orchid3", 840 "orchid4", "plum1", "plum2", "plum3", "plum4", "MediumOrchid1", 841 "MediumOrchid2", "MediumOrchid3", "MediumOrchid4", "DarkOrchid1", 842 "DarkOrchid2", "DarkOrchid3", "DarkOrchid4", "purple1", "purple2", 843 "purple3", "purple4", "MediumPurple1", "MediumPurple2", "MediumPurple3", 844 "MediumPurple4", "thistle1", "thistle2", "thistle3", "thistle4", 845 "gray0", "grey0", "gray1", "grey1", "gray2", "grey2", "gray3", "grey3", 846 "gray4", "grey4", "gray5", "grey5", "gray6", "grey6", "gray7", "grey7", 847 "gray8", "grey8", "gray9", "grey9", "gray10", "grey10", "gray11", 848 "grey11", "gray12", "grey12", "gray13", "grey13", "gray14", "grey14", 849 "gray15", "grey15", "gray16", "grey16", "gray17", "grey17", "gray18", 850 "grey18", "gray19", "grey19", "gray20", "grey20", "gray21", "grey21", 851 "gray22", "grey22", "gray23", "grey23", "gray24", "grey24", "gray25", 852 "grey25", "gray26", "grey26", "gray27", "grey27", "gray28", "grey28", 853 "gray29", "grey29", "gray30", "grey30", "gray31", "grey31", "gray32", 854 "grey32", "gray33", "grey33", "gray34", "grey34", "gray35", "grey35", 855 "gray36", "grey36", "gray37", "grey37", "gray38", "grey38", "gray39", 856 "grey39", "gray40", "grey40", "gray41", "grey41", "gray42", "grey42", 857 "gray43", "grey43", "gray44", "grey44", "gray45", "grey45", "gray46", 858 "grey46", "gray47", "grey47", "gray48", "grey48", "gray49", "grey49", 859 "gray50", "grey50", "gray51", "grey51", "gray52", "grey52", "gray53", 860 "grey53", "gray54", "grey54", "gray55", "grey55", "gray56", "grey56", 861 "gray57", "grey57", "gray58", "grey58", "gray59", "grey59", "gray60", 862 "grey60", "gray61", "grey61", "gray62", "grey62", "gray63", "grey63", 863 "gray64", "grey64", "gray65", "grey65", "gray66", "grey66", "gray67", 864 "grey67", "gray68", "grey68", "gray69", "grey69", "gray70", "grey70", 865 "gray71", "grey71", "gray72", "grey72", "gray73", "grey73", "gray74", 866 "grey74", "gray75", "grey75", "gray76", "grey76", "gray77", "grey77", 867 "gray78", "grey78", "gray79", "grey79", "gray80", "grey80", "gray81", 868 "grey81", "gray82", "grey82", "gray83", "grey83", "gray84", "grey84", 869 "gray85", "grey85", "gray86", "grey86", "gray87", "grey87", "gray88", 870 "grey88", "gray89", "grey89", "gray90", "grey90", "gray91", "grey91", 871 "gray92", "grey92", "gray93", "grey93", "gray94", "grey94", "gray95", 872 "grey95", "gray96", "grey96", "gray97", "grey97", "gray98", "grey98", 873 "gray99", "grey99", "gray100", "grey100"), c("Red", "Green", "Blue"))) 874 875setps <- function(filename, w=0, h=3, pointsize=10, sublines=0, toplines=0, 876 type="symbol", lwd=2, font='Helvetica', 877 leftlines=0, las=1, 878 trellis=!(missing(setTrellis.) & missing(strip.blank) & 879 missing(lty.dot.line) & missing(lwd.dot.line)), 880 setTrellis.=TRUE, 881 strip.blank = TRUE, lty.dot.line = 1, lwd.dot.line = 1, 882 seqno=NULL, color=FALSE) 883{ 884 filebase <- 885 if(type=='char') 886 filename 887 else as.character(substitute(filename)) 888 889 if(length(seqno)) 890 filebase <- paste(filebase,seqno,sep='') 891 892 filename <- paste(filebase,'.ps',sep='') 893 if(length(.Options$setpsPrefix)) 894 filename <- paste(.Options$setpsPrefix, filename, sep='') 895 896 ## Changed after submission to s-news: pointsize=NULL 897 ## Antonio likes the default 898 ## ratio of width/height to be the "golden ratio", which is the default. 899 ## I often prefer a smaller ratio of 1.4. If exactly one of (width, height) 900 ## is zero, the "ratio" is used to replace it based on the one specified. 901 ## For a single figure in the plot I usually use psfig(filename,height=3). 902 ## For a single figure in the plot I usually use psfig(filename,height=3). 903 ## The logic in psfig assumes that one figure is being drawn, i.e., that 904 ## par(mfrow=c(1,1)) is in effect. It will work for multiple plots if you 905 ## set pointsize to something like 9. 906 ## sublines specifies the number of extra lines to leave at the bottom of 907 ## the plot for subtitles. 908 ## 909 ## I include an S function that sets the stage for EPS graphics 910 ## generation that will be incorporated by TeX (LaTeX, etc.), and that 911 ## does a little of what you want, by hand, not in the smart way you 912 ## envision. 913 ## Note that this function intentionally disallows main titles, with 914 ## the understanding that they will be part of the figure's caption, 915 ## which TeX itself generates. You may like to use it as starting point 916 ## to get something that suits your needs. 917 ## 918 ## - Antonio Possolo 919 ## 920 ## Applied Mathematics & Statistics 921 ## The Boeing Company 922 ## antonio@atc.boeing.com 923 ## 924 ## 925 ## Added else scale <- FEH 8Sep92, also added arg "ratio", 926 ## commented out warning message for omitting main title, 927 ## added arg sublines, pointsize 928 ## may want to specify pointsize=9 if multiple plots used 929 ## added lwd FEH 27Oct92 930 ## added toplines FEH 18Oct93 931 ## override fonts spec to ps.options because of bug - FEH 21Apr94 932 ## added bty="l" FEH 24Aug94 933 ## added leftlines FEH 26Aug94 934 ## added onefile 27Feb95 935 ## maden font default to Helvetica 25Mar00 936 ## Doug Bates just does this: 937 ## a) use postscript(filename, height=xx, width=yy, pointsize=10) 938 ## b) change the figure's region on the page by using 939 ## par (mar=c(3.5, 3.5, 1.5, 0.5)) ## for example and perhaps also 940 ## par (mgp=c(2.5, 0.5, 0)) 941 ## 942 ## added color=FALSE 7feb03 943 944 psfig <- function(file = "", width = 0, height = 0, 945 ratio= (1 + sqrt(5))/2, font = 'Helvetica', 946 pointsize=NULL, sublines=0, 947 toplines=0, leftlines=0, lwd=0.5, bty="l", onefile=FALSE, 948 las=NULL, trellis=FALSE, color=FALSE) 949 { 950 951 ## POSTSCRIPT FIGURE MAKER 952 ## for incorporation into TeX using PSFIG or BoxedEPSF. 953 ## The strategy is to create a pleasant aspect ratio, 954 ## while minimizing white space around the figure. 955 ## 956 ## Aspect ratio is Golden Ratio 957 ## Standard width is 30 picas = 30*12/(72.27) inches 958 StandardWidth <- (30 * 12)/(72.27) 959 StandardHeight <- StandardWidth/ratio 960 StandardPointSize <- 9 961 if ( width == 0 & height == 0 ) { 962 width <- StandardWidth 963 height <- StandardHeight 964 scale <- 1 965 } 966 967 if ( width > 0 & height == 0 ) { 968 height <- width/ratio 969 scale <- width/StandardWidth 970 } 971 972 if ( width == 0 & height > 0 ) { 973 width <- height*ratio 974 scale <- width/StandardWidth 975 } 976 else scale <- max(width/StandardWidth,height/StandardHeight) 977 978 if(!length(pointsize)) pointsize <- round(scale * StandardPointSize) 979 980 ## FONTS & FONT SELECTION 981 ## 982 ## 1 Helvetica 19 Bookman-DemiItalic 983 ## 2 Courier 20 Bookman-Light 984 ## 3 Times-Roman 21 Bookman-LightItalic 985 ## 4 Helvetica-Oblique 22 Helvetica-Narrow 986 ## 5 Helvetica-Bold 23 Helvetica-Narrow-Bold 987 ## 6 Helvetica-BoldOblique 24 Helvetica-Narrow-BoldOblique 988 ## 7 Courier-Oblique 25 Helvetica-Narrow-Oblique 989 ## 8 Courier-Bold 26 NewCenturySchlbk-Roman 990 ## 9 Courier-BoldOblique 27 NewCenturySchlbk-Bold 991 ## 10 Times-Italic 28 NewCenturySchlbk-Italic 992 ## 11 Times-Bold 29 NewCenturySchlbk-BoldItalic 993 ## 12 Times-BoldItalic 30 Palatino-Roman 994 ## 13 Symbol 31 Palatino-Bold 995 ## 14 AvantGarde-Book 32 Palatino-Italic 996 ## 15 AvantGarde-BookOblique 33 Palatino-BoldItalic 997 ## 16 AvantGarde-Demi 34 ZapfChancery-MediumItalic 998 ## 17 AvantGarde-DemiOblique 35 ZapfDingbats 999 ## 18 Bookman-Demi 1000 1001 if(!.R.) { 1002 ps.fonts <- 1003 if(under.unix)ps.options()$fonts 1004 else ps.fonts 1005 1006 if(is.numeric(font)) { # was is.number 10Apr01 1007 fontNumber <- font 1008 if(fontNumber < 1 | fontNumber > length(ps.fonts)) { 1009 fontNumber <- 1 1010 cat(paste("\tPSFIG WARNING: Font requested is not available\n", 1011 "\t\tSubstituted by Helvetica\n")) 1012 } 1013 } else { 1014 fontName <- font 1015 fontNumber <- match(fontName, ps.fonts) 1016 if(is.na(fontNumber)) { 1017 fontNumber <- 1 1018 cat(paste("\tPSFIG WARNING: Font requested is not available\n", 1019 "\t\tSubstituted by Helvetica\n")) 1020 } 1021 } 1022 1023 if(under.unix) { 1024 ## do.call 21Oct99 - problem with lazy eval in unix 1025 if(trellis) 1026 do.call('trellis.device', 1027 list(device='postscript', file=file, 1028 horizontal = FALSE, width = width, height = height, 1029 pointsize = pointsize, fonts=ps.fonts[fontNumber], 1030 font = 1, maximize=TRUE, onefile=onefile, 1031 print.it=FALSE, color=color)) 1032 else 1033 postscript(file = file, horizontal = FALSE, width = width, height = height, 1034 pointsize = pointsize, fonts=ps.fonts[fontNumber], font = 1, 1035 maximize=TRUE, onefile=onefile, print.it=FALSE) 1036 ## was font=fontNumber, fonts omitted - bug 1037 } else { 1038 if(trellis) 1039 do.call('trellis.device', 1040 list(device='postscript', 1041 file = file, horizontal = FALSE, width = width, 1042 height = height, 1043 pointsize = pointsize, 1044 fonts=ps.fonts[fontNumber], 1045 font = 1, color=color)) 1046 else 1047 postscript(file = file, horizontal = FALSE, width = width, height = height, 1048 pointsize = pointsize, fonts=ps.fonts[fontNumber], font = 1) 1049 } 1050 1051 1052 ## PLOT DESIGN 1053 ## Lines are 1pt wide, which is half standard width 1054 ## (LWD is interpreted in units of 1/36 inch 1055 ## LWD=0 yields the thinnest possible line on the device) 1056 ## Axis labels closer to axes than default 1057 ## (MGP: margin line for the axis title, axis labels, 1058 ## and axis line in units of MEX) 1059 ## Margin widths narrower than default 1060 ## (MAR: bottom, left, top, right) 1061 if(trellis) 1062 return(invisible()) 1063 } else { # 10Apr01 1064 if(trellis) do.call('trellis.device', 1065 list(device='postscript', 1066 file = file, horizontal = FALSE, 1067 width = width, height = height, 1068 pointsize = pointsize, 1069 family=font, color=color, paper='special', 1070 bg=if(!color)'white' 1071 else NULL)) 1072 else 1073 postscript(file = file, horizontal = FALSE, width = width, height = height, 1074 pointsize = pointsize, family=font, 1075 onefile=onefile, print.it=FALSE, paper='special') 1076 } 1077 1078 if(.R.) 1079 par(lwd=lwd, mgp=c(2,.475,0), tcl=-0.4, 1080 mar=c(3.25+sublines, 3.5+leftlines, 1081 .5+toplines,.5), bty=bty) 1082 else 1083 par(lwd=lwd, mgp=c(2,.4,0), 1084 mar=c(3+sublines+.25*(sublines>0),3+leftlines, 1085 1+toplines, 1)+.1, bty=bty) 1086 ## was mgp=c(2, 0.5, 0) 11Jan01 c(2.5,.6,0) R c(2,.4,0) S+ 27jan03 1087 ## SMO is number of rasters that the piecewise linear 1088 ## approximation to a curve is allowed to differ from the exact 1089 ## position of the curve. 1090 par(smo = 0) # PLOTTING SYMBOL 1091 1092 ## PCH selects plotting characters from Standard Encoding 1093 ## (PostScript Language Reference Manual, p.252) 1094 ## 168 = currency 1095 ## 180 = centered period 1096 ## 183 = bullet (with a negative font parameter yields a circle 1097 par(pch = 1) # was 183 11Jan01 1098 1099 ## MAIN TITLE not allowed: plot will be described in figure caption, 1100 ## handled by TeX itself. 1101 ## cat(paste("\tPSFIG WARNING:", "Do not use high-level parameter MAIN\n", 1102 ## "\t\tFigure caption should be created within LaTeX\n")) # 1103 if(length(las)) 1104 par(las=las) 1105 1106 invisible() 1107 } 1108 1109 psfig(filename, h=h, w=w, ratio=1.4, 1110 pointsize=pointsize,sublines=sublines,toplines=toplines, 1111 lwd=lwd,font=font,leftlines=leftlines, las=las, 1112 trellis=trellis, color=color) # color= 7feb03 1113 1114 if(trellis && setTrellis.) 1115 setTrellis(strip.blank = strip.blank, 1116 lty.dot.line = lty.dot.line, lwd.dot.line = lwd.dot.line) 1117 1118 topdf <- function(filebase) 1119 { 1120 cmd <- 1121 if(under.unix)'gs' 1122 else 'gswin32c' 1123 1124 cmd <- 1125 paste(cmd, ' -q -dNOPAUSE -dBATCH -sDEVICE #pdfwrite -sOutputFile#', 1126 filebase, '.pdf -c save pop -f ', filebase, '.ps', sep='') 1127 1128 sys(cmd) 1129 invisible() 1130 } 1131 1132 formals(topdf) <- list(filebase=filebase) 1133 storeTemp(topdf) 1134 invisible() 1135} 1136 1137 1138setpdf <- function(filename, w=0, h=4, pointsize=10, sublines=0, toplines=0, 1139 type="symbol", lwd=1.5, 1140 font=if(.R.)'Helvetica' 1141 else 1, 1142 ratio= if(.R.) 4/3 1143 else (1 + sqrt(5))/2, 1144 leftlines=0, las=1, bty='l', hor=FALSE, 1145 trellis=!(missing(setTrellis.) & missing(strip.blank) & 1146 missing(lty.dot.line) & missing(lwd.dot.line)), 1147 setTrellis.=TRUE, 1148 strip.blank = TRUE, lty.dot.line = 1, lwd.dot.line =1, 1149 region=c(0, 0, h, w), color=FALSE, seqno=NULL, ...) 1150{ 1151 if(type=="char") 1152 filename <- paste(filename,seqno,".pdf",sep="") 1153 else 1154 filename <- paste(substitute(filename),seqno,".pdf",sep="") 1155 1156 if(length(.Options$setpdfPrefix)) 1157 filename <- paste(.Options$setpdfPrefix, filename, sep='') 1158 1159 if (w > 0 & h == 0) 1160 h <- w/ratio 1161 1162 if (w == 0 & h > 0) 1163 w <- h*ratio 1164 1165 if(.R.) { 1166 if(trellis) 1167 trellis.device('pdf', file=filename, width=w, height=h, 1168 pointsize=pointsize, family=font, 1169 color=color,onefile=FALSE, 1170 bg=ifelse(color,NULL,'white')) 1171 else 1172 pdf(filename, width=w, height=h, pointsize=pointsize, 1173 family=font,onefile=FALSE) 1174 } else { 1175 if(trellis) 1176 trellis.device('pdf.graph', file=filename, 1177 horizontal=hor, width=w, height=h, 1178 pointsize=pointsize, font=font, 1179 region=region, 1180 color=color) 1181 else 1182 pdf.graph(filename, horizontal=hor, width=w, height=h, 1183 pointsize=pointsize, font=font, region=region, 1184 color=color) 1185 } 1186 1187 if(!trellis) { 1188 if(.R.) 1189 par(lwd=lwd, mgp=c(2,.475,0), tcl=-0.4, 1190 mar=c(3.25+sublines,3.5+leftlines, 1191 .5+toplines,.5), bty=bty) 1192 else 1193 par(lwd=lwd, mgp=c(2,.4,0), 1194 mar=c(3+sublines+.25*(sublines>0),3+leftlines, 1195 1+toplines, 1)+.1, bty=bty) 1196 par(smo = 0) 1197 } 1198 1199 if(length(las)) 1200 par(las=las) 1201 1202 if(trellis && setTrellis.) 1203 setTrellis(strip.blank = strip.blank, 1204 lty.dot.line = lty.dot.line, lwd.dot.line = lwd.dot.line) 1205 invisible() 1206} 1207 1208 1209tex <- function(string, lref='c', psref='c', scale=1, srt=0) 1210 paste('\\tex[',lref,'][',psref,'][', 1211 format(scale),'][',format(srt),']{',string,'}',sep='') 1212 1213showPsfrag <- function(filename) 1214{ 1215 file <- paste(as.character(substitute(filename)),'ps',sep='.') 1216 out <- "TEMPltx" 1217 cat('\\documentclass{article}', 1218 '\\usepackage{graphics}', 1219 '\\usepackage[scanall]{psfrag}', 1220 '\\begin{document}', 1221 paste('\\includegraphics{',file,'}',sep=''), 1222 '\\end{document}',sep='\n', file=paste(out,'tex',sep='.')) 1223 sys(paste('latex "\\scrollmode\\input" ',out,';dvips -o ',out,'.ps ',out, 1224 '; gv ',out,'.ps &', 1225 sep='')) 1226 unlink(paste(out,c('tex','log','dvi','ps','aux','pfg'),sep='.')) 1227 invisible() 1228} 1229