*** empty log message ***
[emacs.git] / lispintro / cons-3.eps
blobea3f8d4c80d91730b656a278ff2146a5c52fec7f
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
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 2, or (at your option)
18 % 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; see the file COPYING.  If not, write to
27 % the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
28 % Boston, MA 02110-1301, USA.
30 /tgifdict 132 dict def
31 tgifdict begin
34 %       Using a zero value radius for an ellipse or an arc would result
35 %               in a non-invertible CTM matrix which causes problem when this
36 %               when this PostScript is wrapped inside other routines, such as
37 %               the multi.ps package from
38 %               ftp.ucc.su.oz.au:/pub/ps_printing/multi.  You can overcome such
39 %               error by uncommenting the sole line of the procedure below:
41 /tgif_min_radius
42  {
43 %    dup 0.01 lt { pop 0.01 } if
44  } bind def
46 /tgifellipsedict 6 dict def
47 tgifellipsedict /mtrx matrix put
49 /tgifellipse
50  { tgifellipsedict begin
51       /yrad exch def
52       /xrad exch def
53       /y exch def
54       /x exch def
55       /savematrix mtrx currentmatrix def
56       x y translate
57       xrad yrad scale
58       0 0 1 0 360 arc
59       savematrix setmatrix
60    end
61  } def
63 /tgifarrowtipdict 8 dict def
64 tgifarrowtipdict /mtrx matrix put
66 /tgifarrowtip
67  { tgifarrowtipdict begin
68       /dy exch def
69       /dx exch def
70       /h exch def
71       /w exch def
72       /y exch def
73       /x exch def
74       /savematrix mtrx currentmatrix def
75       x y translate
76       dy dx atan rotate
77       0 0 moveto
78       w neg h lineto
79       w neg h neg lineto
80       savematrix setmatrix
81    end
82  } def
84 /tgifarcdict 8 dict def
85 tgifarcdict /mtrx matrix put
87 /tgifarcn
88  { tgifarcdict begin
89       /endangle exch def
90       /startangle exch def
91       /yrad exch def
92       /xrad exch def
93       /y exch def
94       /x exch def
95       /savematrix mtrx currentmatrix def
96       x y translate
97       xrad yrad scale
98       0 0 1 startangle endangle arc
99       savematrix setmatrix
100    end
101  } def
103 /tgifarc
104  { tgifarcdict begin
105       /endangle exch def
106       /startangle exch def
107       /yrad exch def
108       /xrad exch def
109       /y exch def
110       /x exch def
111       /savematrix mtrx currentmatrix def
112       x y translate
113       xrad yrad scale
114       0 0 1 startangle endangle arcn
115       savematrix setmatrix
116    end
117  } def
119 /tgifsetuserscreendict 22 dict def
120 tgifsetuserscreendict begin
121    /tempctm matrix def
122    /temprot matrix def
123    /tempscale matrix def
125    /concatprocs
126     { /proc2 exch cvlit def
127       /proc1 exch cvlit def
128       /newproc proc1 length proc2 length add array def
129       newproc 0 proc1 putinterval
130       newproc proc1 length proc2 putinterval
131       newproc cvx
132     } def
133    /resmatrix matrix def
134    /findresolution
135     { 72 0 resmatrix defaultmatrix dtransform
136       /yres exch def /xres exch def
137       xres dup mul yres dup mul add sqrt
138     } def
141 /tgifsetuserscreen
142  { tgifsetuserscreendict begin
143       /spotfunction exch def
144       /screenangle exch def
145       /cellsize exch def
147       /m tempctm currentmatrix def
148       /rm screenangle temprot rotate def
149       /sm cellsize dup tempscale scale def
151       sm rm m m concatmatrix m concatmatrix pop
153       1 0 m dtransform /y1 exch def /x1 exch def
155       /veclength x1 dup mul y1 dup mul add sqrt def
156       /frequency findresolution veclength div def
158       /newscreenangle y1 x1 atan def
160       m 2 get m 1 get mul m 0 get m 3 get mul sub 0 gt
162       {{neg} /spotfunction load concatprocs
163          /spotfunction exch def
164       } if
166       frequency newscreenangle /spotfunction load setscreen
167    end
168  } def
170 /tgifsetpatterndict 18 dict def
171 tgifsetpatterndict begin
172    /bitison
173     { /ybit exch def /xbit exch def
174       /bytevalue bstring ybit bwidth mul xbit 8 idiv add get def
176       /mask 1 7 xbit 8 mod sub bitshift def
177       bytevalue mask and 0 ne
178     } def
181 /tgifbitpatternspotfunction
182  { tgifsetpatterndict begin
183       /y exch def /x exch def
185       /xindex x 1 add 2 div bpside mul cvi def
186       /yindex y 1 add 2 div bpside mul cvi def
188       xindex yindex bitison
189        { /onbits onbits 1 add def 1 }
190        { /offbits offbits 1 add def 0 }
191        ifelse
192    end
193  } def
195 /tgifsetpattern
196  { tgifsetpatterndict begin
197       /cellsz exch def
198       /angle exch def
199       /bwidth exch def
200       /bpside exch def
201       /bstring exch def
203       /onbits 0 def /offbits 0 def
204       cellsz angle /tgifbitpatternspotfunction load tgifsetuserscreen
205       {} settransfer
206       offbits offbits onbits add div setgray
207    end
208  } def
210 /tgifxpmdict 4 dict def
211 /tgifbwpicstr 1 string def
212 /tgifcolorpicstr 3 string def
214 /tgifsetpixels { tgifxpmdict begin /pixels exch def end } def
216 /tgifsetpix { tgifxpmdict begin pixels 3 1 roll putinterval end } def
218 /tgifbwspot
219  { tgifxpmdict begin
220       /index exch def
221       tgifbwpicstr 0
222       pixels index 3 mul 3 getinterval aload pop
223       255 mul .114 mul exch 255 mul .587 mul add exch 255 mul .299 mul add
224       cvi put
225       tgifbwpicstr
226    end
227  } def
229 /tgifcolorspot
230  { tgifxpmdict begin
231       /index exch def
232       pixels index 3 mul 3 getinterval aload pop
233       255 mul cvi tgifcolorpicstr 2 3 -1 roll put
234       255 mul cvi tgifcolorpicstr 1 3 -1 roll put
235       255 mul cvi tgifcolorpicstr 0 3 -1 roll put
236       tgifcolorpicstr
237    end
238  } def
240 /tgifnewcolorspot
241  { tgifxpmdict begin
242       /index exch def
243       pixels index 3 mul 3 getinterval aload pop setrgbcolor
244    end
245  } def
247 /tgifcolordict 4 dict def
249 /colorimage where
250  { pop }
251  { /colorimage
252    { tgifcolordict begin
253         pop pop pop pop pop
254         /ih exch def
255         /iw exch def
256         /x 0 def
257         /y 0 def
258         1 1 ih
259          { pop 1 1 iw
260             { pop currentfile
261               tgifbwpicstr readhexstring pop 0 get tgifnewcolorspot
262               x y moveto 1 0 rlineto 0 1 rlineto -1 0 rlineto
263               closepath fill
264               /x x 1 add def
265             } for
266            /y y 1 add def
267            /x 0 def
268          } for
269      end
270    } def
271  } ifelse
273 /tgifpatdict 10 dict def
275 /tgifpatbyte
276  { currentdict /retstr get exch
277    pat i cellsz mod get put
278  } def
280 /tgifpatproc
281  { 0 1 widthlim {tgifpatbyte} for retstr
282    /i i 1 add def
283  } def
285 /tgifpatfill
286  { tgifpatdict begin
287       /h exch def
288       /w exch def
289       /lty exch def
290       /ltx exch def
291       /cellsz exch def
292       /pat exch def
294       /widthlim w cellsz div cvi 1 sub def
295       /retstr widthlim 1 add string def
296       /i 0 def
298       ltx lty translate
299       w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
300       ltx neg lty neg translate
301    end
302  } def
304 /pat1 <ffffffffffffffff> def
305 /pat2 <0000000000000000> def
306 /pat3 <8000000008000000> def
307 /pat4 <8800000022000000> def
308 /pat5 <8800220088002200> def
309 /pat6 <8822882288228822> def
310 /pat7 <aa55aa55aa55aa55> def
311 /pat8 <77dd77dd77dd77dd> def
312 /pat9 <77ffddff77ffddff> def
313 /pat10 <77ffffff77ffffff> def
314 /pat11 <7fffffff7fffffff> def
315 /pat12 <8040200002040800> def
316 /pat13 <40a00000040a0000> def
317 /pat14 <ff888888ff888888> def
318 /pat15 <ff808080ff080808> def
319 /pat16 <f87422478f172271> def
320 /pat17 <038448300c020101> def
321 /pat18 <081c22c180010204> def
322 /pat19 <8080413e080814e3> def
323 /pat20 <8040201008040201> def
324 /pat21 <8844221188442211> def
325 /pat22 <77bbddee77bbddee> def
326 /pat23 <c1e070381c0e0783> def
327 /pat24 <7fbfdfeff7fbfdfe> def
328 /pat25 <3e1f8fc7e3f1f87c> def
329 /pat26 <0102040810204080> def
330 /pat27 <1122448811224488> def
331 /pat28 <eeddbb77eeddbb77> def
332 /pat29 <83070e1c3870e0c1> def
333 /pat30 <fefdfbf7efdfbf7f> def
334 /pat31 <7cf8f1e3c78f1f3e> def
336 /tgifcentertext { dup stringwidth pop 2 div neg 0 rmoveto } def
338 /tgifrighttext { dup stringwidth pop neg 0 rmoveto } def
340 /tgifreencsmalldict 12 dict def
341 /tgifReEncodeSmall
342  { tgifreencsmalldict begin
343       /newcodesandnames exch def
344       /newfontname exch def
345       /basefontname exch def
347       /basefontdict basefontname findfont def
348       /newfont basefontdict maxlength dict def
350       basefontdict
351       { exch dup /FID ne
352          { dup /Encoding eq
353             { exch dup length array copy newfont 3 1 roll put }
354             { exch newfont 3 1 roll put }
355             ifelse
356          }
357          { pop pop }
358          ifelse
359       }
360       forall
362       newfont /FontName newfontname put
363       newcodesandnames aload pop
365       newcodesandnames length 2 idiv
366       { newfont /Encoding get 3 1 roll put}
367       repeat
369       newfontname newfont definefont pop
370    end
371  } def
373 /tgifgray { 8 1 0 72 300 32 div div tgifsetpattern } bind def
375 /tgifboxdict 6 dict def
376 /tgifboxstroke
377  { tgifboxdict begin
378       /pat def /w def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
379       1.415 setmiterlimit
380       w 1 eq { w setlinewidth } if
381       pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
382       newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
383       pat pat2 eq { 1 setgray stroke 0 setgray } { stroke } ifelse
384       pat pat1 ne pat pat2 ne and { grestore } if
385       w 1 eq { 1 setlinewidth } if
386       1 setmiterlimit
387    end
388  } def
389 /tgifboxfill
390  { tgifboxdict begin
391       /pat def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
392       pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
393       newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
394       pat pat2 eq { 1 setgray fill 0 setgray } { fill } ifelse
395       pat pat1 ne pat pat2 ne and { grestore } if
396    end
397  } def
401 %%PageBoundingBox: -1 691 324 757
402 tgifdict begin
403 /tgifsavedpage save def
405 1 setmiterlimit
406 1 setlinewidth
408 0 setgray
410 72 0 mul 72 11.00 mul translate
411 72 128 div 100 mul 100 div dup neg scale
413 gsave
415 % BOX
416 gsave
417    1.415 setmiterlimit
418    newpath
419       128 102 moveto 192 102 lineto 192 134 lineto 128 134 lineto
420    closepath stroke
421    1 setmiterlimit
422 grestore
424 % POLY/OPEN-SPLINE
425 gsave
426    newpath
427       160 102 moveto
428       160 134 lineto
429    stroke
430 grestore
432 % POLY/OPEN-SPLINE
433 gsave
434    newpath
435       176 124 moveto
436       0 80 atan dup cos 8 mul 256 exch sub
437       exch sin 8 mul 124 exch sub lineto
438    stroke
439 grestore
440 gsave
441    newpath
442       256 124 8 3 80 0 tgifarrowtip
443    closepath fill
444 grestore
446 % TEXT
447 0 setgray
448 /Courier findfont [17 0 0 -17 0 0] makefont setfont
449    gsave
450       208 172 moveto (rose) show
451    grestore
453 % POLY/OPEN-SPLINE
454 gsave
455    newpath
456       144 118 moveto
457       144 167 lineto
458       0 48 atan dup cos 8 mul 192 exch sub
459       exch sin 8 mul 167 exch sub lineto
460    stroke
461 grestore
462 gsave
463    newpath
464       192 167 8 3 48 0 tgifarrowtip
465    closepath fill
466 grestore
468 % BOX
469 gsave
470    1.415 setmiterlimit
471    newpath
472       261 102 moveto 325 102 lineto 325 134 lineto 261 134 lineto
473    closepath stroke
474    1 setmiterlimit
475 grestore
477 % POLY/OPEN-SPLINE
478 gsave
479    newpath
480       293 102 moveto
481       293 134 lineto
482    stroke
483 grestore
485 % POLY/OPEN-SPLINE
486 gsave
487    newpath
488       309 118 moveto
489       0 93 atan dup cos 8 mul 402 exch sub
490       exch sin 8 mul 118 exch sub lineto
491    stroke
492 grestore
493 gsave
494    newpath
495       402 118 8 3 93 0 tgifarrowtip
496    closepath fill
497 grestore
499 % TEXT
500 0 setgray
501 /Courier findfont [17 0 0 -17 0 0] makefont setfont
502    gsave
503       341 172 moveto (violet) show
504    grestore
506 % POLY/OPEN-SPLINE
507 gsave
508    newpath
509       277 118 moveto
510       277 167 lineto
511       0 48 atan dup cos 8 mul 325 exch sub
512       exch sin 8 mul 167 exch sub lineto
513    stroke
514 grestore
515 gsave
516    newpath
517       325 167 8 3 48 0 tgifarrowtip
518    closepath fill
519 grestore
521 % BOX
522 gsave
523    1.415 setmiterlimit
524    newpath
525       404 100 moveto 468 100 lineto 468 132 lineto 404 132 lineto
526    closepath stroke
527    1 setmiterlimit
528 grestore
530 % POLY/OPEN-SPLINE
531 gsave
532    newpath
533       435 100 moveto
534       435 132 lineto
535    stroke
536 grestore
538 % POLY/OPEN-SPLINE
539 gsave
540    newpath
541       451 117 moveto
542       0 48 atan dup cos 8 mul 499 exch sub
543       exch sin 8 mul 117 exch sub lineto
544    stroke
545 grestore
546 gsave
547    newpath
548       499 117 8 3 48 0 tgifarrowtip
549    closepath fill
550 grestore
552 % TEXT
553 0 setgray
554 /Courier findfont [17 0 0 -17 0 0] makefont setfont
555    gsave
556       483 171 moveto (buttercup) show
557    grestore
559 % POLY/OPEN-SPLINE
560 gsave
561    newpath
562       419 117 moveto
563       419 166 lineto
564       0 48 atan dup cos 8 mul 467 exch sub
565       exch sin 8 mul 166 exch sub lineto
566    stroke
567 grestore
568 gsave
569    newpath
570       467 166 8 3 48 0 tgifarrowtip
571    closepath fill
572 grestore
574 % TEXT
575 0 setgray
576 /Courier findfont [17 0 0 -17 0 0] makefont setfont
577    gsave
578       511 123 moveto (nil) show
579    grestore
581 % TEXT
582 0 setgray
583 /Courier findfont [17 0 0 -17 0 0] makefont setfont
584    gsave
585       131 80 moveto (flowers) show
586    grestore
588 % POLY/OPEN-SPLINE
589 gsave
590    newpath
591       210 75 moveto
592       237 75 lineto
593       237 113 lineto
594       0 18 atan dup cos 8 mul 255 exch sub
595       exch sin 8 mul 113 exch sub lineto
596    stroke
597 grestore
598 gsave
599    newpath
600       255 113 8 3 18 0 tgifarrowtip
601    closepath fill
602 grestore
604 % TEXT
605 0 setgray
606 /Courier findfont [17 0 0 -17 0 0] makefont setfont
607    gsave
608       2 80 moveto (bouquet) show
609    grestore
611 % POLY/OPEN-SPLINE
612 gsave
613    newpath
614       81 77 moveto
615       108 77 lineto
616       108 115 lineto
617       0 18 atan dup cos 8 mul 126 exch sub
618       exch sin 8 mul 115 exch sub lineto
619    stroke
620 grestore
621 gsave
622    newpath
623       126 115 8 3 18 0 tgifarrowtip
624    closepath fill
625 grestore
627 grestore
628 tgifsavedpage restore
630 %MatchingCreationDate: Wed Mar  8 14:25:41 1995