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