| blob | 68b0a296c36524acd21620352ef5633e0cc0c768 |
1 %!
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 % Due to bugs in Transcript, the 'PS-Adobe-' stuff is omitted from line 1
8 %
10 % Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007
11 % Free Software Foundation, Inc.
12 %
13 % This file is part of GNU Emacs.
14 %
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, or (at your option)
18 % any later version.
19 %
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.
24 %
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
33 %
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:
40 %
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
139 end
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
179 end
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
399 end
401 %%PageBoundingBox: 6 681 355 758
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 % POLY/OPEN-SPLINE
416 gsave
417 newpath
418 274 102 moveto
419 274 134 lineto
420 stroke
421 grestore
423 % POLY/OPEN-SPLINE
424 gsave
425 newpath
426 289 122 moveto
427 0 56 atan dup cos 8 mul 345 exch sub
428 exch sin 8 mul 122 exch sub lineto
429 stroke
430 grestore
431 gsave
432 newpath
433 345 122 8 3 56 0 tgifarrowtip
434 closepath fill
435 grestore
437 % BOX
438 gsave
439 1.415 setmiterlimit
440 newpath
441 350 100 moveto 414 100 lineto 414 132 lineto 350 132 lineto
442 closepath stroke
443 1 setmiterlimit
444 grestore
446 % POLY/OPEN-SPLINE
447 gsave
448 newpath
449 382 100 moveto
450 382 132 lineto
451 stroke
452 grestore
454 % POLY/OPEN-SPLINE
455 gsave
456 newpath
457 397 114 moveto
458 0 59 atan dup cos 8 mul 456 exch sub
459 exch sin 8 mul 114 exch sub lineto
460 stroke
461 grestore
462 gsave
463 newpath
464 456 114 8 3 59 0 tgifarrowtip
465 closepath fill
466 grestore
468 % TEXT
469 0 setgray
470 /Courier findfont [17 0 0 -17 0 0] makefont setfont
471 gsave
472 430 170 moveto (violet) show
473 grestore
475 % POLY/OPEN-SPLINE
476 gsave
477 newpath
478 366 116 moveto
479 366 165 lineto
480 0 48 atan dup cos 8 mul 414 exch sub
481 exch sin 8 mul 165 exch sub lineto
482 stroke
483 grestore
484 gsave
485 newpath
486 414 165 8 3 48 0 tgifarrowtip
487 closepath fill
488 grestore
490 % TEXT
491 0 setgray
492 /Courier findfont [17 0 0 -17 0 0] makefont setfont
493 gsave
494 219 78 moveto (flowers) show
495 grestore
497 % POLY/OPEN-SPLINE
498 gsave
499 newpath
500 298 73 moveto
501 325 73 lineto
502 325 111 lineto
503 0 18 atan dup cos 8 mul 343 exch sub
504 exch sin 8 mul 111 exch sub lineto
505 stroke
506 grestore
507 gsave
508 newpath
509 343 111 8 3 18 0 tgifarrowtip
510 closepath fill
511 grestore
513 % BOX
514 gsave
515 1.415 setmiterlimit
516 newpath
517 459 95 moveto 523 95 lineto 523 127 lineto 459 127 lineto
518 closepath stroke
519 1 setmiterlimit
520 grestore
522 % POLY/OPEN-SPLINE
523 gsave
524 newpath
525 490 95 moveto
526 490 127 lineto
527 stroke
528 grestore
530 % POLY/OPEN-SPLINE
531 gsave
532 newpath
533 506 112 moveto
534 0 48 atan dup cos 8 mul 554 exch sub
535 exch sin 8 mul 112 exch sub lineto
536 stroke
537 grestore
538 gsave
539 newpath
540 554 112 8 3 48 0 tgifarrowtip
541 closepath fill
542 grestore
544 % TEXT
545 0 setgray
546 /Courier findfont [17 0 0 -17 0 0] makefont setfont
547 gsave
548 566 118 moveto (nil) show
549 grestore
551 % TEXT
552 0 setgray
553 /Courier findfont [17 0 0 -17 0 0] makefont setfont
554 gsave
555 538 151 moveto (buttercup) show
556 grestore
558 % POLY/OPEN-SPLINE
559 gsave
560 newpath
561 474 109 moveto
562 474 146 lineto
563 0 48 atan dup cos 8 mul 522 exch sub
564 exch sin 8 mul 146 exch sub lineto
565 stroke
566 grestore
567 gsave
568 newpath
569 522 146 8 3 48 0 tgifarrowtip
570 closepath fill
571 grestore
573 % BOX
574 gsave
575 1.415 setmiterlimit
576 newpath
577 244 102 moveto 308 102 lineto 308 134 lineto 244 134 lineto
578 closepath stroke
579 1 setmiterlimit
580 grestore
582 % TEXT
583 0 setgray
584 /Courier findfont [17 0 0 -17 0 0] makefont setfont
585 gsave
586 324 189 moveto (rose) show
587 grestore
589 % POLY/OPEN-SPLINE
590 gsave
591 newpath
592 260 117 moveto
593 260 184 lineto
594 0 48 atan dup cos 8 mul 308 exch sub
595 exch sin 8 mul 184 exch sub lineto
596 stroke
597 grestore
598 gsave
599 newpath
600 308 184 8 3 48 0 tgifarrowtip
601 closepath fill
602 grestore
604 % BOX
605 gsave
606 1.415 setmiterlimit
607 newpath
608 146 101 moveto 210 101 lineto 210 133 lineto 146 133 lineto
609 closepath stroke
610 1 setmiterlimit
611 grestore
613 % POLY/OPEN-SPLINE
614 gsave
615 newpath
616 177 101 moveto
617 177 133 lineto
618 stroke
619 grestore
621 % POLY/OPEN-SPLINE
622 gsave
623 newpath
624 193 118 moveto
625 0 48 atan dup cos 8 mul 241 exch sub
626 exch sin 8 mul 118 exch sub lineto
627 stroke
628 grestore
629 gsave
630 newpath
631 241 118 8 3 48 0 tgifarrowtip
632 closepath fill
633 grestore
635 % TEXT
636 0 setgray
637 /Courier findfont [17 0 0 -17 0 0] makefont setfont
638 gsave
639 187 178 moveto (lily) show
640 grestore
642 % POLY/OPEN-SPLINE
643 gsave
644 newpath
645 163 118 moveto
646 163 171 lineto
647 0 18 atan dup cos 8 mul 181 exch sub
648 exch sin 8 mul 171 exch sub lineto
649 stroke
650 grestore
651 gsave
652 newpath
653 181 171 8 3 18 0 tgifarrowtip
654 closepath fill
655 grestore
657 % TEXT
658 0 setgray
659 /Courier findfont [17 0 0 -17 0 0] makefont setfont
660 gsave
661 16 78 moveto (bouquet) show
662 grestore
664 % POLY/OPEN-SPLINE
665 gsave
666 newpath
667 95 73 moveto
668 122 73 lineto
669 122 111 lineto
670 0 18 atan dup cos 8 mul 140 exch sub
671 exch sin 8 mul 111 exch sub lineto
672 stroke
673 grestore
674 gsave
675 newpath
676 140 111 8 3 18 0 tgifarrowtip
677 closepath fill
678 grestore
680 grestore
681 tgifsavedpage restore
682 end
683 %MatchingCreationDate: Wed Mar 8 14:25:06 1995