doc/ref/scheme.eps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: /home/bjg/guile/doc/ref/scheme.dia
   3 %%Creator: Dia v0.95-1
   4 %%CreationDate: Tue Dec  8 14:22:51 2009
   5 %%For: bjg
   6 %%Orientation: Portrait
   7 %%Magnification: 1.0000
   8 %%BoundingBox: 0 0 576 445
   9 %%BeginSetup
  10 %%EndSetup
  11 %%EndComments
  12 %%BeginProlog
  13 [ /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  14 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  15 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  16 /.notdef /.notdef /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright
  17 /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash /zero /one
  18 /two /three /four /five /six /seven /eight /nine /colon /semicolon
  19 /less /equal /greater /question /at /A /B /C /D /E
  20 /F /G /H /I /J /K /L /M /N /O
  21 /P /Q /R /S /T /U /V /W /X /Y
  22 /Z /bracketleft /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c
  23 /d /e /f /g /h /i /j /k /l /m
  24 /n /o /p /q /r /s /t /u /v /w
  25 /x /y /z /braceleft /bar /braceright /asciitilde /.notdef /.notdef /.notdef
  26 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  27 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  28 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  29 /space /exclamdown /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright
  30 /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron /degree /plusminus /twosuperior /threesuperior
  31 /acute /mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf
  32 /threequarters /questiondown /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
  33 /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde
  34 /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex
  35 /Udieresis /Yacute /Thorn /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring
  36 /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis
  37 /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave
  38 /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis] /isolatin1encoding exch def
  39 /cp {closepath} bind def
  40 /c {curveto} bind def
  41 /f {fill} bind def
  42 /a {arc} bind def
  43 /ef {eofill} bind def
  44 /ex {exch} bind def
  45 /gr {grestore} bind def
  46 /gs {gsave} bind def
  47 /sa {save} bind def
  48 /rs {restore} bind def
  49 /l {lineto} bind def
  50 /m {moveto} bind def
  51 /rm {rmoveto} bind def
  52 /n {newpath} bind def
  53 /s {stroke} bind def
  54 /sh {show} bind def
  55 /slc {setlinecap} bind def
  56 /slj {setlinejoin} bind def
  57 /slw {setlinewidth} bind def
  58 /srgb {setrgbcolor} bind def
  59 /rot {rotate} bind def
  60 /sc {scale} bind def
  61 /sd {setdash} bind def
  62 /ff {findfont} bind def
  63 /sf {setfont} bind def
  64 /scf {scalefont} bind def
  65 /sw {stringwidth pop} bind def
  66 /tr {translate} bind def
  67
  68 /ellipsedict 8 dict def
  69 ellipsedict /mtrx matrix put
  70 /ellipse
  71 { ellipsedict begin
  72    /endangle exch def
  73    /startangle exch def
  74    /yrad exch def
  75    /xrad exch def
  76    /y exch def
  77    /x exch def   /savematrix mtrx currentmatrix def
  78    x y tr xrad yrad sc
  79    0 0 1 startangle endangle arc
  80    savematrix setmatrix
  81    end
  82 } def
  83
  84 /mergeprocs {
  85 dup length
  86 3 -1 roll
  87 dup
  88 length
  89 dup
  90 5 1 roll
  91 3 -1 roll
  92 add
  93 array cvx
  94 dup
  95 3 -1 roll
  96 0 exch
  97 putinterval
  98 dup
  99 4 2 roll
 100 putinterval
 101 } bind def
 102 /Times-Roman-latin1
 103     /Times-Roman findfont
 104     dup length dict begin
 105         {1 index /FID ne {def} {pop pop} ifelse} forall
 106         /Encoding isolatin1encoding def
 107     currentdict end
 108 definefont pop
 109 /Times-Italic-latin1
 110     /Times-Italic findfont
 111     dup length dict begin
 112         {1 index /FID ne {def} {pop pop} ifelse} forall
 113         /Encoding isolatin1encoding def
 114     currentdict end
 115 definefont pop
 116 /Times-Bold-latin1
 117     /Times-Bold findfont
 118     dup length dict begin
 119         {1 index /FID ne {def} {pop pop} ifelse} forall
 120         /Encoding isolatin1encoding def
 121     currentdict end
 122 definefont pop
 123 /Times-BoldItalic-latin1
 124     /Times-BoldItalic findfont
 125     dup length dict begin
 126         {1 index /FID ne {def} {pop pop} ifelse} forall
 127         /Encoding isolatin1encoding def
 128     currentdict end
 129 definefont pop
 130 /AvantGarde-Book-latin1
 131     /AvantGarde-Book findfont
 132     dup length dict begin
 133         {1 index /FID ne {def} {pop pop} ifelse} forall
 134         /Encoding isolatin1encoding def
 135     currentdict end
 136 definefont pop
 137 /AvantGarde-BookOblique-latin1
 138     /AvantGarde-BookOblique findfont
 139     dup length dict begin
 140         {1 index /FID ne {def} {pop pop} ifelse} forall
 141         /Encoding isolatin1encoding def
 142     currentdict end
 143 definefont pop
 144 /AvantGarde-Demi-latin1
 145     /AvantGarde-Demi findfont
 146     dup length dict begin
 147         {1 index /FID ne {def} {pop pop} ifelse} forall
 148         /Encoding isolatin1encoding def
 149     currentdict end
 150 definefont pop
 151 /AvantGarde-DemiOblique-latin1
 152     /AvantGarde-DemiOblique findfont
 153     dup length dict begin
 154         {1 index /FID ne {def} {pop pop} ifelse} forall
 155         /Encoding isolatin1encoding def
 156     currentdict end
 157 definefont pop
 158 /Bookman-Light-latin1
 159     /Bookman-Light findfont
 160     dup length dict begin
 161         {1 index /FID ne {def} {pop pop} ifelse} forall
 162         /Encoding isolatin1encoding def
 163     currentdict end
 164 definefont pop
 165 /Bookman-LightItalic-latin1
 166     /Bookman-LightItalic findfont
 167     dup length dict begin
 168         {1 index /FID ne {def} {pop pop} ifelse} forall
 169         /Encoding isolatin1encoding def
 170     currentdict end
 171 definefont pop
 172 /Bookman-Demi-latin1
 173     /Bookman-Demi findfont
 174     dup length dict begin
 175         {1 index /FID ne {def} {pop pop} ifelse} forall
 176         /Encoding isolatin1encoding def
 177     currentdict end
 178 definefont pop
 179 /Bookman-DemiItalic-latin1
 180     /Bookman-DemiItalic findfont
 181     dup length dict begin
 182         {1 index /FID ne {def} {pop pop} ifelse} forall
 183         /Encoding isolatin1encoding def
 184     currentdict end
 185 definefont pop
 186 /Courier-latin1
 187     /Courier findfont
 188     dup length dict begin
 189         {1 index /FID ne {def} {pop pop} ifelse} forall
 190         /Encoding isolatin1encoding def
 191     currentdict end
 192 definefont pop
 193 /Courier-Oblique-latin1
 194     /Courier-Oblique findfont
 195     dup length dict begin
 196         {1 index /FID ne {def} {pop pop} ifelse} forall
 197         /Encoding isolatin1encoding def
 198     currentdict end
 199 definefont pop
 200 /Courier-Bold-latin1
 201     /Courier-Bold findfont
 202     dup length dict begin
 203         {1 index /FID ne {def} {pop pop} ifelse} forall
 204         /Encoding isolatin1encoding def
 205     currentdict end
 206 definefont pop
 207 /Courier-BoldOblique-latin1
 208     /Courier-BoldOblique findfont
 209     dup length dict begin
 210         {1 index /FID ne {def} {pop pop} ifelse} forall
 211         /Encoding isolatin1encoding def
 212     currentdict end
 213 definefont pop
 214 /Helvetica-latin1
 215     /Helvetica findfont
 216     dup length dict begin
 217         {1 index /FID ne {def} {pop pop} ifelse} forall
 218         /Encoding isolatin1encoding def
 219     currentdict end
 220 definefont pop
 221 /Helvetica-Oblique-latin1
 222     /Helvetica-Oblique findfont
 223     dup length dict begin
 224         {1 index /FID ne {def} {pop pop} ifelse} forall
 225         /Encoding isolatin1encoding def
 226     currentdict end
 227 definefont pop
 228 /Helvetica-Bold-latin1
 229     /Helvetica-Bold findfont
 230     dup length dict begin
 231         {1 index /FID ne {def} {pop pop} ifelse} forall
 232         /Encoding isolatin1encoding def
 233     currentdict end
 234 definefont pop
 235 /Helvetica-BoldOblique-latin1
 236     /Helvetica-BoldOblique findfont
 237     dup length dict begin
 238         {1 index /FID ne {def} {pop pop} ifelse} forall
 239         /Encoding isolatin1encoding def
 240     currentdict end
 241 definefont pop
 242 /Helvetica-Narrow-latin1
 243     /Helvetica-Narrow findfont
 244     dup length dict begin
 245         {1 index /FID ne {def} {pop pop} ifelse} forall
 246         /Encoding isolatin1encoding def
 247     currentdict end
 248 definefont pop
 249 /Helvetica-Narrow-Oblique-latin1
 250     /Helvetica-Narrow-Oblique findfont
 251     dup length dict begin
 252         {1 index /FID ne {def} {pop pop} ifelse} forall
 253         /Encoding isolatin1encoding def
 254     currentdict end
 255 definefont pop
 256 /Helvetica-Narrow-Bold-latin1
 257     /Helvetica-Narrow-Bold findfont
 258     dup length dict begin
 259         {1 index /FID ne {def} {pop pop} ifelse} forall
 260         /Encoding isolatin1encoding def
 261     currentdict end
 262 definefont pop
 263 /Helvetica-Narrow-BoldOblique-latin1
 264     /Helvetica-Narrow-BoldOblique findfont
 265     dup length dict begin
 266         {1 index /FID ne {def} {pop pop} ifelse} forall
 267         /Encoding isolatin1encoding def
 268     currentdict end
 269 definefont pop
 270 /NewCenturySchoolbook-Roman-latin1
 271     /NewCenturySchoolbook-Roman findfont
 272     dup length dict begin
 273         {1 index /FID ne {def} {pop pop} ifelse} forall
 274         /Encoding isolatin1encoding def
 275     currentdict end
 276 definefont pop
 277 /NewCenturySchoolbook-Italic-latin1
 278     /NewCenturySchoolbook-Italic findfont
 279     dup length dict begin
 280         {1 index /FID ne {def} {pop pop} ifelse} forall
 281         /Encoding isolatin1encoding def
 282     currentdict end
 283 definefont pop
 284 /NewCenturySchoolbook-Bold-latin1
 285     /NewCenturySchoolbook-Bold findfont
 286     dup length dict begin
 287         {1 index /FID ne {def} {pop pop} ifelse} forall
 288         /Encoding isolatin1encoding def
 289     currentdict end
 290 definefont pop
 291 /NewCenturySchoolbook-BoldItalic-latin1
 292     /NewCenturySchoolbook-BoldItalic findfont
 293     dup length dict begin
 294         {1 index /FID ne {def} {pop pop} ifelse} forall
 295         /Encoding isolatin1encoding def
 296     currentdict end
 297 definefont pop
 298 /Palatino-Roman-latin1
 299     /Palatino-Roman findfont
 300     dup length dict begin
 301         {1 index /FID ne {def} {pop pop} ifelse} forall
 302         /Encoding isolatin1encoding def
 303     currentdict end
 304 definefont pop
 305 /Palatino-Italic-latin1
 306     /Palatino-Italic findfont
 307     dup length dict begin
 308         {1 index /FID ne {def} {pop pop} ifelse} forall
 309         /Encoding isolatin1encoding def
 310     currentdict end
 311 definefont pop
 312 /Palatino-Bold-latin1
 313     /Palatino-Bold findfont
 314     dup length dict begin
 315         {1 index /FID ne {def} {pop pop} ifelse} forall
 316         /Encoding isolatin1encoding def
 317     currentdict end
 318 definefont pop
 319 /Palatino-BoldItalic-latin1
 320     /Palatino-BoldItalic findfont
 321     dup length dict begin
 322         {1 index /FID ne {def} {pop pop} ifelse} forall
 323         /Encoding isolatin1encoding def
 324     currentdict end
 325 definefont pop
 326 /Symbol-latin1
 327     /Symbol findfont
 328 definefont pop
 329 /ZapfChancery-MediumItalic-latin1
 330     /ZapfChancery-MediumItalic findfont
 331     dup length dict begin
 332         {1 index /FID ne {def} {pop pop} ifelse} forall
 333         /Encoding isolatin1encoding def
 334     currentdict end
 335 definefont pop
 336 /ZapfDingbats-latin1
 337     /ZapfDingbats findfont
 338     dup length dict begin
 339         {1 index /FID ne {def} {pop pop} ifelse} forall
 340         /Encoding isolatin1encoding def
 341     currentdict end
 342 definefont pop
 343 28.346000 -28.346000 scale
 344 -17.174517 -10.811080 translate
 345 %%EndProlog
 346
 347
 348 0.010000 slw
 349 [] 0 sd
 350 [] 0 sd
 351 0 slj
 352 1.000000 1.000000 1.000000 srgb
 353 n 17.174517 -4.886690 m 37.468481 -4.886690 l s
 354 n 17.174517 10.811080 m 37.468481 10.811080 l s
 355 n 17.174517 -4.886690 0.000000 0.000000 180.000000 270.000000 ellipse s
 356 n 37.468481 -4.886690 0.000000 0.000000 270.000000 360.000000 ellipse s
 357 n 17.174517 -4.886690 m 17.174517 10.811080 l s
 358 n 37.468481 -4.886690 m 37.468481 10.811080 l s
 359 n 17.174517 10.811080 0.000000 0.000000 90.000000 180.000000 ellipse s
 360 n 37.468481 10.811080 0.000000 0.000000 0.000000 90.000000 ellipse s
 361 0.100000 slw
 362 [] 0 sd
 363 n 20.050000 7.950000 m 20.050000 9.350000 l 23.050000 9.350000 l 23.050000 7.950000 l f
 364 0.000000 0.000000 0.000000 srgb
 365 n 20.050000 7.950000 m 20.050000 9.350000 l 23.050000 9.350000 l 23.050000 7.950000 l cp s
 366 /Helvetica-Bold-latin1 ff 0.700000 scf sf
 367 (Quack) dup sw 2 div 21.550000 ex sub 8.950000 m gs 1 -1 sc sh gr
 368 0.100000 slw
 369 [] 0 sd
 370 1.000000 1.000000 1.000000 srgb
 371 n 25.900000 7.950000 m 25.900000 9.350000 l 28.050000 9.350000 l 28.050000 7.950000 l f
 372 0.000000 0.000000 0.000000 srgb
 373 n 25.900000 7.950000 m 25.900000 9.350000 l 28.050000 9.350000 l 28.050000 7.950000 l cp s
 374 /Helvetica-Bold-latin1 ff 0.700000 scf sf
 375 (GDS) dup sw 2 div 26.975000 ex sub 8.950000 m gs 1 -1 sc sh gr
 376 0.100000 slw
 377 [] 0 sd
 378 1.000000 1.000000 1.000000 srgb
 379 n 21.450000 2.200000 m 21.450000 3.600000 l 26.800000 3.600000 l 26.800000 2.200000 l f
 380 0.000000 0.000000 0.000000 srgb
 381 n 21.450000 2.200000 m 21.450000 3.600000 l 26.800000 3.600000 l 26.800000 2.200000 l cp s
 382 /Helvetica-Bold-latin1 ff 0.700000 scf sf
 383 (cmuscheme) dup sw 2 div 24.125000 ex sub 3.200000 m gs 1 -1 sc sh gr
 384 0.100000 slw
 385 [] 0 sd
 386 0 slj
 387 0 slc
 388 n 24.357500 4.511803 m 24.357500 5.775000 l 27.098800 5.775000 l 27.098800 7.950000 l s
 389 0 slj
 390 1.000000 1.000000 1.000000 srgb
 391 n 24.757500 4.511803 m 24.357500 3.711803 l 23.957500 4.511803 l ef
 392 0.100000 slw
 393 [] 0 sd
 394 0 slj
 395 0.000000 0.000000 0.000000 srgb
 396 n 24.757500 4.511803 m 24.357500 3.711803 l 23.957500 4.511803 l cp s
 397 /Courier-latin1 ff 0.560000 scf sf
 398 0.100000 slw
 399 [] 0 sd
 400 0 slj
 401 0 slc
 402 n 24.357500 4.511803 m 24.357500 5.775000 l 21.698800 5.775000 l 21.698800 7.950000 l s
 403 0 slj
 404 1.000000 1.000000 1.000000 srgb
 405 n 24.757500 4.511803 m 24.357500 3.711803 l 23.957500 4.511803 l ef
 406 0.100000 slw
 407 [] 0 sd
 408 0 slj
 409 0.000000 0.000000 0.000000 srgb
 410 n 24.757500 4.511803 m 24.357500 3.711803 l 23.957500 4.511803 l cp s
 411 /Courier-latin1 ff 0.560000 scf sf
 412 0.100000 slw
 413 [] 0 sd
 414 1.000000 1.000000 1.000000 srgb
 415 n 30.300000 2.200000 m 30.300000 3.600000 l 34.400000 3.600000 l 34.400000 2.200000 l f
 416 0.000000 0.000000 0.000000 srgb
 417 n 30.300000 2.200000 m 30.300000 3.600000 l 34.400000 3.600000 l 34.400000 2.200000 l cp s
 418 /Helvetica-Bold-latin1 ff 0.700000 scf sf
 419 (xscheme) dup sw 2 div 32.350000 ex sub 3.200000 m gs 1 -1 sc sh gr
 420 0.100000 slw
 421 [] 0 sd
 422 1.000000 1.000000 1.000000 srgb
 423 n 27.400000 -3.500000 m 27.400000 -2.100000 l 31.050000 -2.100000 l 31.050000 -3.500000 l f
 424 0.000000 0.000000 0.000000 srgb
 425 n 27.400000 -3.500000 m 27.400000 -2.100000 l 31.050000 -2.100000 l 31.050000 -3.500000 l cp s
 426 /Helvetica-Bold-latin1 ff 0.700000 scf sf
 427 (scheme) dup sw 2 div 29.225000 ex sub -2.500000 m gs 1 -1 sc sh gr
 428 0.100000 slw
 429 [] 0 sd
 430 0 slj
 431 0 slc
 432 n 29.368800 -1.188197 m 29.368800 0.050000 l 32.526300 0.050000 l 32.526300 2.200000 l s
 433 0 slj
 434 1.000000 1.000000 1.000000 srgb
 435 n 29.768800 -1.188197 m 29.368800 -1.988197 l 28.968800 -1.188197 l ef
 436 0.100000 slw
 437 [] 0 sd
 438 0 slj
 439 0.000000 0.000000 0.000000 srgb
 440 n 29.768800 -1.188197 m 29.368800 -1.988197 l 28.968800 -1.188197 l cp s
 441 /Courier-latin1 ff 0.560000 scf sf
 442 0.100000 slw
 443 [] 0 sd
 444 0 slj
 445 0 slc
 446 n 29.368800 -1.188197 m 29.368800 0.050000 l 24.357500 0.050000 l 24.357500 2.200000 l s
 447 0 slj
 448 1.000000 1.000000 1.000000 srgb
 449 n 29.768800 -1.188197 m 29.368800 -1.988197 l 28.968800 -1.188197 l ef
 450 0.100000 slw
 451 [] 0 sd
 452 0 slj
 453 0.000000 0.000000 0.000000 srgb
 454 n 29.768800 -1.188197 m 29.368800 -1.988197 l 28.968800 -1.188197 l cp s
 455 /Courier-latin1 ff 0.560000 scf sf
 456 /Helvetica-latin1 ff 0.560000 scf sf
 457 showpage