code.delx.au - gnu-emacs/blob - lispintro/cons-4.eps

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