Commit | Line | Data |
---|---|---|
e163dd34 BG |
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 |