Merge from trunk
[emacs.git] / doc / lispintro / cons-3.eps
blobb1aa60c1c99fdf0607d3b62dc465b1b99489bfc4
1 %!
2 %%BoundingBox: -1 691 324 757
3 %%Title: cons-cell-diagram3
4 %%CreationDate: Wed Mar  8 14:25:41 1995
5 %%Creator: Tgif-2.16-p4 by William Chia-Wei Cheng (william@cs.UCLA.edu)
7 %       Due to bugs in Transcript, the 'PS-Adobe-' stuff is omitted from line 1
10 % Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
11 %   Free Software Foundation, Inc.
13 % This file is part of GNU Emacs.
15 % GNU Emacs is free software: you can redistribute it and/or modify
16 % it under the terms of the GNU General Public License as published by
17 % the Free Software Foundation, either version 3 of the License, or
18 % (at your option) any later version.
20 % GNU Emacs is distributed in the hope that it will be useful,
21 % but WITHOUT ANY WARRANTY; without even the implied warranty of
22 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23 % GNU General Public License for more details.
25 % You should have received a copy of the GNU General Public License
26 % along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
28 /tgifdict 132 dict def
29 tgifdict begin
32 %       Using a zero value radius for an ellipse or an arc would result
33 %               in a non-invertible CTM matrix which causes problem when this
34 %               when this PostScript is wrapped inside other routines, such as
35 %               the multi.ps package from
36 %               ftp.ucc.su.oz.au:/pub/ps_printing/multi.  You can overcome such
37 %               error by uncommenting the sole line of the procedure below:
39 /tgif_min_radius
40  {
41 %    dup 0.01 lt { pop 0.01 } if
42  } bind def
44 /tgifellipsedict 6 dict def
45 tgifellipsedict /mtrx matrix put
47 /tgifellipse
48  { tgifellipsedict begin
49       /yrad exch def
50       /xrad exch def
51       /y exch def
52       /x exch def
53       /savematrix mtrx currentmatrix def
54       x y translate
55       xrad yrad scale
56       0 0 1 0 360 arc
57       savematrix setmatrix
58    end
59  } def
61 /tgifarrowtipdict 8 dict def
62 tgifarrowtipdict /mtrx matrix put
64 /tgifarrowtip
65  { tgifarrowtipdict begin
66       /dy exch def
67       /dx exch def
68       /h exch def
69       /w exch def
70       /y exch def
71       /x exch def
72       /savematrix mtrx currentmatrix def
73       x y translate
74       dy dx atan rotate
75       0 0 moveto
76       w neg h lineto
77       w neg h neg lineto
78       savematrix setmatrix
79    end
80  } def
82 /tgifarcdict 8 dict def
83 tgifarcdict /mtrx matrix put
85 /tgifarcn
86  { tgifarcdict begin
87       /endangle exch def
88       /startangle exch def
89       /yrad exch def
90       /xrad exch def
91       /y exch def
92       /x exch def
93       /savematrix mtrx currentmatrix def
94       x y translate
95       xrad yrad scale
96       0 0 1 startangle endangle arc
97       savematrix setmatrix
98    end
99  } def
101 /tgifarc
102  { tgifarcdict begin
103       /endangle exch def
104       /startangle exch def
105       /yrad exch def
106       /xrad exch def
107       /y exch def
108       /x exch def
109       /savematrix mtrx currentmatrix def
110       x y translate
111       xrad yrad scale
112       0 0 1 startangle endangle arcn
113       savematrix setmatrix
114    end
115  } def
117 /tgifsetuserscreendict 22 dict def
118 tgifsetuserscreendict begin
119    /tempctm matrix def
120    /temprot matrix def
121    /tempscale matrix def
123    /concatprocs
124     { /proc2 exch cvlit def
125       /proc1 exch cvlit def
126       /newproc proc1 length proc2 length add array def
127       newproc 0 proc1 putinterval
128       newproc proc1 length proc2 putinterval
129       newproc cvx
130     } def
131    /resmatrix matrix def
132    /findresolution
133     { 72 0 resmatrix defaultmatrix dtransform
134       /yres exch def /xres exch def
135       xres dup mul yres dup mul add sqrt
136     } def
139 /tgifsetuserscreen
140  { tgifsetuserscreendict begin
141       /spotfunction exch def
142       /screenangle exch def
143       /cellsize exch def
145       /m tempctm currentmatrix def
146       /rm screenangle temprot rotate def
147       /sm cellsize dup tempscale scale def
149       sm rm m m concatmatrix m concatmatrix pop
151       1 0 m dtransform /y1 exch def /x1 exch def
153       /veclength x1 dup mul y1 dup mul add sqrt def
154       /frequency findresolution veclength div def
156       /newscreenangle y1 x1 atan def
158       m 2 get m 1 get mul m 0 get m 3 get mul sub 0 gt
160       {{neg} /spotfunction load concatprocs
161          /spotfunction exch def
162       } if
164       frequency newscreenangle /spotfunction load setscreen
165    end
166  } def
168 /tgifsetpatterndict 18 dict def
169 tgifsetpatterndict begin
170    /bitison
171     { /ybit exch def /xbit exch def
172       /bytevalue bstring ybit bwidth mul xbit 8 idiv add get def
174       /mask 1 7 xbit 8 mod sub bitshift def
175       bytevalue mask and 0 ne
176     } def
179 /tgifbitpatternspotfunction
180  { tgifsetpatterndict begin
181       /y exch def /x exch def
183       /xindex x 1 add 2 div bpside mul cvi def
184       /yindex y 1 add 2 div bpside mul cvi def
186       xindex yindex bitison
187        { /onbits onbits 1 add def 1 }
188        { /offbits offbits 1 add def 0 }
189        ifelse
190    end
191  } def
193 /tgifsetpattern
194  { tgifsetpatterndict begin
195       /cellsz exch def
196       /angle exch def
197       /bwidth exch def
198       /bpside exch def
199       /bstring exch def
201       /onbits 0 def /offbits 0 def
202       cellsz angle /tgifbitpatternspotfunction load tgifsetuserscreen
203       {} settransfer
204       offbits offbits onbits add div setgray
205    end
206  } def
208 /tgifxpmdict 4 dict def
209 /tgifbwpicstr 1 string def
210 /tgifcolorpicstr 3 string def
212 /tgifsetpixels { tgifxpmdict begin /pixels exch def end } def
214 /tgifsetpix { tgifxpmdict begin pixels 3 1 roll putinterval end } def
216 /tgifbwspot
217  { tgifxpmdict begin
218       /index exch def
219       tgifbwpicstr 0
220       pixels index 3 mul 3 getinterval aload pop
221       255 mul .114 mul exch 255 mul .587 mul add exch 255 mul .299 mul add
222       cvi put
223       tgifbwpicstr
224    end
225  } def
227 /tgifcolorspot
228  { tgifxpmdict begin
229       /index exch def
230       pixels index 3 mul 3 getinterval aload pop
231       255 mul cvi tgifcolorpicstr 2 3 -1 roll put
232       255 mul cvi tgifcolorpicstr 1 3 -1 roll put
233       255 mul cvi tgifcolorpicstr 0 3 -1 roll put
234       tgifcolorpicstr
235    end
236  } def
238 /tgifnewcolorspot
239  { tgifxpmdict begin
240       /index exch def
241       pixels index 3 mul 3 getinterval aload pop setrgbcolor
242    end
243  } def
245 /tgifcolordict 4 dict def
247 /colorimage where
248  { pop }
249  { /colorimage
250    { tgifcolordict begin
251         pop pop pop pop pop
252         /ih exch def
253         /iw exch def
254         /x 0 def
255         /y 0 def
256         1 1 ih
257          { pop 1 1 iw
258             { pop currentfile
259               tgifbwpicstr readhexstring pop 0 get tgifnewcolorspot
260               x y moveto 1 0 rlineto 0 1 rlineto -1 0 rlineto
261               closepath fill
262               /x x 1 add def
263             } for
264            /y y 1 add def
265            /x 0 def
266          } for
267      end
268    } def
269  } ifelse
271 /tgifpatdict 10 dict def
273 /tgifpatbyte
274  { currentdict /retstr get exch
275    pat i cellsz mod get put
276  } def
278 /tgifpatproc
279  { 0 1 widthlim {tgifpatbyte} for retstr
280    /i i 1 add def
281  } def
283 /tgifpatfill
284  { tgifpatdict begin
285       /h exch def
286       /w exch def
287       /lty exch def
288       /ltx exch def
289       /cellsz exch def
290       /pat exch def
292       /widthlim w cellsz div cvi 1 sub def
293       /retstr widthlim 1 add string def
294       /i 0 def
296       ltx lty translate
297       w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
298       ltx neg lty neg translate
299    end
300  } def
302 /pat1 <ffffffffffffffff> def
303 /pat2 <0000000000000000> def
304 /pat3 <8000000008000000> def
305 /pat4 <8800000022000000> def
306 /pat5 <8800220088002200> def
307 /pat6 <8822882288228822> def
308 /pat7 <aa55aa55aa55aa55> def
309 /pat8 <77dd77dd77dd77dd> def
310 /pat9 <77ffddff77ffddff> def
311 /pat10 <77ffffff77ffffff> def
312 /pat11 <7fffffff7fffffff> def
313 /pat12 <8040200002040800> def
314 /pat13 <40a00000040a0000> def
315 /pat14 <ff888888ff888888> def
316 /pat15 <ff808080ff080808> def
317 /pat16 <f87422478f172271> def
318 /pat17 <038448300c020101> def
319 /pat18 <081c22c180010204> def
320 /pat19 <8080413e080814e3> def
321 /pat20 <8040201008040201> def
322 /pat21 <8844221188442211> def
323 /pat22 <77bbddee77bbddee> def
324 /pat23 <c1e070381c0e0783> def
325 /pat24 <7fbfdfeff7fbfdfe> def
326 /pat25 <3e1f8fc7e3f1f87c> def
327 /pat26 <0102040810204080> def
328 /pat27 <1122448811224488> def
329 /pat28 <eeddbb77eeddbb77> def
330 /pat29 <83070e1c3870e0c1> def
331 /pat30 <fefdfbf7efdfbf7f> def
332 /pat31 <7cf8f1e3c78f1f3e> def
334 /tgifcentertext { dup stringwidth pop 2 div neg 0 rmoveto } def
336 /tgifrighttext { dup stringwidth pop neg 0 rmoveto } def
338 /tgifreencsmalldict 12 dict def
339 /tgifReEncodeSmall
340  { tgifreencsmalldict begin
341       /newcodesandnames exch def
342       /newfontname exch def
343       /basefontname exch def
345       /basefontdict basefontname findfont def
346       /newfont basefontdict maxlength dict def
348       basefontdict
349       { exch dup /FID ne
350          { dup /Encoding eq
351             { exch dup length array copy newfont 3 1 roll put }
352             { exch newfont 3 1 roll put }
353             ifelse
354          }
355          { pop pop }
356          ifelse
357       }
358       forall
360       newfont /FontName newfontname put
361       newcodesandnames aload pop
363       newcodesandnames length 2 idiv
364       { newfont /Encoding get 3 1 roll put}
365       repeat
367       newfontname newfont definefont pop
368    end
369  } def
371 /tgifgray { 8 1 0 72 300 32 div div tgifsetpattern } bind def
373 /tgifboxdict 6 dict def
374 /tgifboxstroke
375  { tgifboxdict begin
376       /pat def /w def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
377       1.415 setmiterlimit
378       w 1 eq { w setlinewidth } if
379       pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
380       newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
381       pat pat2 eq { 1 setgray stroke 0 setgray } { stroke } ifelse
382       pat pat1 ne pat pat2 ne and { grestore } if
383       w 1 eq { 1 setlinewidth } if
384       1 setmiterlimit
385    end
386  } def
387 /tgifboxfill
388  { tgifboxdict begin
389       /pat def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
390       pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
391       newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
392       pat pat2 eq { 1 setgray fill 0 setgray } { fill } ifelse
393       pat pat1 ne pat pat2 ne and { grestore } if
394    end
395  } def
399 %%PageBoundingBox: -1 691 324 757
400 tgifdict begin
401 /tgifsavedpage save def
403 1 setmiterlimit
404 1 setlinewidth
406 0 setgray
408 72 0 mul 72 11.00 mul translate
409 72 128 div 100 mul 100 div dup neg scale
411 gsave
413 % BOX
414 gsave
415    1.415 setmiterlimit
416    newpath
417       128 102 moveto 192 102 lineto 192 134 lineto 128 134 lineto
418    closepath stroke
419    1 setmiterlimit
420 grestore
422 % POLY/OPEN-SPLINE
423 gsave
424    newpath
425       160 102 moveto
426       160 134 lineto
427    stroke
428 grestore
430 % POLY/OPEN-SPLINE
431 gsave
432    newpath
433       176 124 moveto
434       0 80 atan dup cos 8 mul 256 exch sub
435       exch sin 8 mul 124 exch sub lineto
436    stroke
437 grestore
438 gsave
439    newpath
440       256 124 8 3 80 0 tgifarrowtip
441    closepath fill
442 grestore
444 % TEXT
445 0 setgray
446 /Courier findfont [17 0 0 -17 0 0] makefont setfont
447    gsave
448       208 172 moveto (rose) show
449    grestore
451 % POLY/OPEN-SPLINE
452 gsave
453    newpath
454       144 118 moveto
455       144 167 lineto
456       0 48 atan dup cos 8 mul 192 exch sub
457       exch sin 8 mul 167 exch sub lineto
458    stroke
459 grestore
460 gsave
461    newpath
462       192 167 8 3 48 0 tgifarrowtip
463    closepath fill
464 grestore
466 % BOX
467 gsave
468    1.415 setmiterlimit
469    newpath
470       261 102 moveto 325 102 lineto 325 134 lineto 261 134 lineto
471    closepath stroke
472    1 setmiterlimit
473 grestore
475 % POLY/OPEN-SPLINE
476 gsave
477    newpath
478       293 102 moveto
479       293 134 lineto
480    stroke
481 grestore
483 % POLY/OPEN-SPLINE
484 gsave
485    newpath
486       309 118 moveto
487       0 93 atan dup cos 8 mul 402 exch sub
488       exch sin 8 mul 118 exch sub lineto
489    stroke
490 grestore
491 gsave
492    newpath
493       402 118 8 3 93 0 tgifarrowtip
494    closepath fill
495 grestore
497 % TEXT
498 0 setgray
499 /Courier findfont [17 0 0 -17 0 0] makefont setfont
500    gsave
501       341 172 moveto (violet) show
502    grestore
504 % POLY/OPEN-SPLINE
505 gsave
506    newpath
507       277 118 moveto
508       277 167 lineto
509       0 48 atan dup cos 8 mul 325 exch sub
510       exch sin 8 mul 167 exch sub lineto
511    stroke
512 grestore
513 gsave
514    newpath
515       325 167 8 3 48 0 tgifarrowtip
516    closepath fill
517 grestore
519 % BOX
520 gsave
521    1.415 setmiterlimit
522    newpath
523       404 100 moveto 468 100 lineto 468 132 lineto 404 132 lineto
524    closepath stroke
525    1 setmiterlimit
526 grestore
528 % POLY/OPEN-SPLINE
529 gsave
530    newpath
531       435 100 moveto
532       435 132 lineto
533    stroke
534 grestore
536 % POLY/OPEN-SPLINE
537 gsave
538    newpath
539       451 117 moveto
540       0 48 atan dup cos 8 mul 499 exch sub
541       exch sin 8 mul 117 exch sub lineto
542    stroke
543 grestore
544 gsave
545    newpath
546       499 117 8 3 48 0 tgifarrowtip
547    closepath fill
548 grestore
550 % TEXT
551 0 setgray
552 /Courier findfont [17 0 0 -17 0 0] makefont setfont
553    gsave
554       483 171 moveto (buttercup) show
555    grestore
557 % POLY/OPEN-SPLINE
558 gsave
559    newpath
560       419 117 moveto
561       419 166 lineto
562       0 48 atan dup cos 8 mul 467 exch sub
563       exch sin 8 mul 166 exch sub lineto
564    stroke
565 grestore
566 gsave
567    newpath
568       467 166 8 3 48 0 tgifarrowtip
569    closepath fill
570 grestore
572 % TEXT
573 0 setgray
574 /Courier findfont [17 0 0 -17 0 0] makefont setfont
575    gsave
576       511 123 moveto (nil) show
577    grestore
579 % TEXT
580 0 setgray
581 /Courier findfont [17 0 0 -17 0 0] makefont setfont
582    gsave
583       131 80 moveto (flowers) show
584    grestore
586 % POLY/OPEN-SPLINE
587 gsave
588    newpath
589       210 75 moveto
590       237 75 lineto
591       237 113 lineto
592       0 18 atan dup cos 8 mul 255 exch sub
593       exch sin 8 mul 113 exch sub lineto
594    stroke
595 grestore
596 gsave
597    newpath
598       255 113 8 3 18 0 tgifarrowtip
599    closepath fill
600 grestore
602 % TEXT
603 0 setgray
604 /Courier findfont [17 0 0 -17 0 0] makefont setfont
605    gsave
606       2 80 moveto (bouquet) show
607    grestore
609 % POLY/OPEN-SPLINE
610 gsave
611    newpath
612       81 77 moveto
613       108 77 lineto
614       108 115 lineto
615       0 18 atan dup cos 8 mul 126 exch sub
616       exch sin 8 mul 115 exch sub lineto
617    stroke
618 grestore
619 gsave
620    newpath
621       126 115 8 3 18 0 tgifarrowtip
622    closepath fill
623 grestore
625 grestore
626 tgifsavedpage restore
628 %MatchingCreationDate: Wed Mar  8 14:25:41 1995