(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Sep-94 11:49:43" ("compiled on " {DSK}lispusers>HPGL.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "20-Jul-88 17:47:02" |{MCS:MCS:STANFORD}HPGL.;24| 45342 changes to%: (FNS \DRAWLINE.HPGL \FONT.HPGL \INIT.HPGL HARDCOPYW.HPGL) previous date%: "20-Jul-88 17:34:42" |{MCS:MCS:STANFORD}HPGL.;23|) MAKEHPGL :D8 (I 4 TABS I 3 HEADING I 2 FONTS I 1 PFILE I 0 FILE) @AgBCD (15 TEXTTOIMAGEFILE) (6 HPGL) () OPENHPGLSTREAMA0008 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SCALE) –oh `h oh oh `h Ph `h oh `h Ph `h oh `h `h (147 PRIN1 136 PRIN1 125 PRIN1 114 PRIN1 103 PRIN1 95 PRIN1 84 PRIN1 73 PRIN1 62 PRIN1 54 PRIN1 43 PRIN1 32 PRIN1 21 PRIN1 10 PRIN1) (141 HPGL.TERMINATOR 130 HPGL.TEXT.TERMINATOR 108 HPGL.TERMINATOR 89 HPGL.SEPARATOR 67 HPGL.SEPARATOR 48 HPGL.SEPARATOR 15 HPGL.TERMINATOR) ( 119 "DT" 78 "0" 37 "0" 26 "SC" 4 "DF") OPENHPGLSTREAMA0009 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ENTRY F 1 PAIR) Ph Qh `h (27 PRIN1 16 PRIN1 7 PRIN1) (21 HPGL.TERMINATOR) () OPENHPGLSTREAM :D8 (P 8 ENTRY P 7 PAIR P 5 SI::*RESETFORMS* P 3 POSITION P 2 HPGLSTREAM P 1 SCALE P 0 STREAM I 1 OPTIONS I 0 FILE) @g ``2Ag'[µ‚±¦lH d`.¿HhdhdjIjIhjh¼dL0¿dg(¿dh¿djÍ¿d` ¿ZHnÿÿÍgH hhhg ¿$A!N_µ$`J J J ¢±ÿWK¹±ÿR`_²0gH hhhg ¿$O°œ(267 SI::RESETUNWIND 262 \MVLIST 257 OPENHPGLSTREAMA0009 237 OUTPUT 206 POSITIONP 199 DSPRESET 193 DSPFONT 166 SI::RESETUNWIND 161 \MVLIST 156 OPENHPGLSTREAMA0008 136 OUTPUT 46 NCREATE2 10 OPENSTREAM) (252 SI::RESETUNWIND 231 OUTPUT 221 HPGL.OPTIONS 187 DEFAULTFONT 151 SI::RESETUNWIND 130 OUTPUT 120 STREAM 110 \NULLFDEV 91 \OUTCHAR.HPGL 52 \HPGLIMAGEOPS 30 SCALE 20 SCREENHEIGHT 15 SCREENWIDTH 5 OUTPUT) () HARDCOPYW.HPGL :D8 (P 0 PFILE I 5 TITLE I 4 ROTATION I 3 REGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE) )@ ACCHhdCC H (38 CLOSEF 32 BKBITBLT 5 OPENHPGLSTREAM) NIL () \BITBLT.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 I F 1 J) PkÙh `h Qh (26 PRIN1 19 PRIN1 8 PRIN1) (13 HPGL.SEPARATOR) () \BITBLT.HPGLA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \BITBLT.HPGLA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 I F 1 J) 1oh Ph `h Qh `h (46 PRIN1 35 PRIN1 28 PRIN1 17 PRIN1 10 PRIN1) (40 HPGL.TERMINATOR 22 HPGL.SEPARATOR) ( 4 "PU") \BITBLT.HPGLA0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 I F 1 J) PkÙh `h Qh (26 PRIN1 19 PRIN1 8 PRIN1) (13 HPGL.SEPARATOR) () \BITBLT.HPGLA0005 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \BITBLT.HPGLA0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) oh `h (21 PRIN1 10 PRIN1) (15 HPGL.TERMINATOR) ( 4 "PU") \BITBLT.HPGL :D8 (P 9 PI P 8 I P 7 STATE P 6 X P 4 SI::*RESETFORMS* P 3 J P 2 FILESTREAM P 1 Y I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 STREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 BITMAP) Ê C BGÔkÙBCÉ0EIHó²1gJ hhhg ¿$iAFÔkÙAjD NMó’±ÙO@NIhûð³EkOÙ_jð³OOµBgJ hhhg ¿$O_¿NkÔ¾OkÔ_¿° ²»oJ ¿OOkÙð³0gJ hhhg ¿$gJ hhhg ¿$±ÿvOjð’±‚O˜O ³soJ ¿OOkÙð³0gJ hhhg ¿$gJ hhhg ¿$IkÔ¹KkÔ»±þT(439 SI::RESETUNWIND 434 \MVLIST 429 \BITBLT.HPGLA0005 409 OUTPUT 393 SI::RESETUNWIND 388 \MVLIST 383 \BITBLT.HPGLA0004 363 OUTPUT 342 PRIN1 329 \FZEROP 301 SI::RESETUNWIND 296 \MVLIST 291 \BITBLT.HPGLA0002 271 OUTPUT 255 SI::RESETUNWIND 250 \MVLIST 245 \BITBLT.HPGLA0001 225 OUTPUT 204 PRIN1 191 \FZEROP 163 SI::RESETUNWIND 158 \MVLIST 153 \BITBLT.HPGLA0003 133 OUTPUT 71 SI::RESETUNWIND 66 \MVLIST 61 \BITBLT.HPGLA0006 41 OUTPUT 5 \DUMPSTRING.HPGL) (424 SI::RESETUNWIND 403 OUTPUT 378 SI::RESETUNWIND 357 OUTPUT 286 SI::RESETUNWIND 265 OUTPUT 240 SI::RESETUNWIND 219 OUTPUT 148 SI::RESETUNWIND 127 OUTPUT 56 SI::RESETUNWIND 35 OUTPUT 18 STREAM) ( 336 "PD" 198 "PD") \BLTSHADE.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DESTINATIONLEFT F 1 WIDTH F 2 DESTINATIONBOTTOM F 3 HEIGHT) 5oh PQÔh `h RSÔh `h (50 PRIN1 39 PRIN1 30 PRIN1 19 PRIN1 10 PRIN1) (44 HPGL.TERMINATOR 24 HPGL.SEPARATOR) ( 4 "RA") \BLTSHADE.HPGL :D8 (P 2 SI::*RESETFORMS* P 0 A0338 I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE) ¥DkÙbEkÙb Djð³|D—D ³pEjð³kEµ_AÉ.É ABClHA@ ¿AÉ0gI hhhg ¿$i ²ž@nÿÿð²—BCBDÔCEÔhFA ¿°Þ(160 DRAWLINE 134 \FZEROP 123 SI::RESETUNWIND 118 \MVLIST 113 \BLTSHADE.HPGLA0001 93 OUTPUT 69 \FILL.HPGL 24 \FZEROP) (108 SI::RESETUNWIND 86 OUTPUT 76 STREAM 49 IMAGEOPS 42 STREAM) () \CLOSEFN.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) oh `h (21 PRIN1 10 PRIN1) (15 HPGL.TERMINATOR) ( 4 "PU") \CLOSEFN.HPGL :D8 (P 1 SI::*RESETFORMS* I 0 STREAM) N@ @É0gH hhhg ¿$H ¿Hhi(70 CLOSEF? 58 SI::RESETUNWIND 53 \MVLIST 48 \CLOSEFN.HPGLA0001 28 OUTPUT 5 \DUMPSTRING.HPGL) (43 SI::RESETUNWIND 21 OUTPUT 11 STREAM) () \COLOR.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 COLOR) (oh PQkØh `h (37 PRIN1 26 PRIN1 10 PRIN1) (31 HPGL.TERMINATOR) ( 4 "SP") \COLOR.HPGL :D8 (P 4 SI::*RESETFORMS* P 3 ENTRY P 2 I P 0 $$1 I 1 COLOR I 0 STREAM) Ê@É0HA¢±µAd3@ð²2`kIµ‡»AKð²` JÕb°BI¹JkÔº°ÛA ²0`kIµ†»AKôŸ` JÕb‰I¹JkÔº°ÝA3 ²BAHð³8@ ¿gH hhhg ¿$(194 SI::RESETUNWIND 189 \MVLIST 184 \COLOR.HPGLA0001 164 OUTPUT 151 \DUMPSTRING.HPGL 115 LENGTH 82 RGBP 60 LENGTH) (179 SI::RESETUNWIND 157 OUTPUT 110 COLORNAMES 89 COLORNAMES 55 COLORNAMES 33 COLORNAMES 5 STREAM) () \DRAWARC.HPGLA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 CENTERX F 2 CENTERY F 3 NDEGREES F 4 RADIUS F 5 STARTANGLE) voh PQh `h PdR¿h `h oh Th `h UlZÔh `h Sh (115 PRIN1 108 PRIN1 97 PRIN1 87 PRIN1 76 PRIN1 69 PRIN1 58 PRIN1 47 PRIN1 33 PRIN1 22 PRIN1 10 PRIN1) (102 HPGL.SEPARATOR 81 HPGL.SEPARATOR 52 HPGL.TERMINATOR 27 HPGL.SEPARATOR) ( 63 "EW" 4 "PU") \DRAWARC.HPGLA0001A0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h `h (21 PRIN1 10 PRIN1) (15 HPGL.CHORD.ANGLE 4 HPGL.SEPARATOR) () \DRAWARC.HPGLA0001A0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \DRAWARC.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 SI::*RESETFORMS* P 3 SI::*RESETFORMS* P 2 SI::*RESETFORMS* P 1 $$1 P 0 A0340 I 0 SI::*CLEANUP-FORMS* F 5 STREAM F 6 SI::*RESETFORMS* F 7 BRUSH F 8 DASHING) îgUdW hhdVcgUÉ.É0UW´WlHUhhdVcUÉ0gI hhhg ¿$`²1gI hhhg ¿$gI hhhg ¿$(231 SI::RESETUNWIND 226 \MVLIST 221 \DRAWARC.HPGLA0001A0004 201 OUTPUT 184 SI::RESETUNWIND 179 \MVLIST 174 \DRAWARC.HPGLA0001A0003 154 OUTPUT 130 SI::RESETUNWIND 125 \MVLIST 120 \DRAWARC.HPGLA0001A0002 100 OUTPUT 13 \DASHING.HPGL) (216 SI::RESETUNWIND 194 OUTPUT 169 SI::RESETUNWIND 147 OUTPUT 140 HPGL.CHORD.ANGLE 115 SI::RESETUNWIND 93 OUTPUT 83 STREAM 43 IMAGEOPS 36 STREAM 30 DSPCOLOR 4 \DASHING.HPGL) () \DRAWARC.HPGL :D8 (P 3 A0339 P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 7 DASHING I 6 BRUSH I 5 NDEGREES I 4 STARTANGLE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM F 4 LISPXHIST) L@ Fµ T!g ¿$i²ß@É.É0@FlK°Á(33 SI::RESETUNWIND 28 \MVLIST 23 \DRAWARC.HPGLA0001 5 \DUMPSTRING.HPGL) (57 IMAGEOPS 50 STREAM 18 SI::RESETUNWIND) () \DRAWCIRCLE.HPGLA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 CENTERX F 2 CENTERY F 3 RADIUS) Ooh PQh `h PdR¿h `h oh Sh (76 PRIN1 69 PRIN1 58 PRIN1 47 PRIN1 33 PRIN1 22 PRIN1 10 PRIN1) (52 HPGL.TERMINATOR 27 HPGL.SEPARATOR) ( 63 "CI" 4 "PU") \DRAWCIRCLE.HPGLA0001A0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h `h (21 PRIN1 10 PRIN1) (15 HPGL.CHORD.ANGLE 4 HPGL.SEPARATOR) () \DRAWCIRCLE.HPGLA0001A0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \DRAWCIRCLE.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 SI::*RESETFORMS* P 3 SI::*RESETFORMS* P 2 SI::*RESETFORMS* P 1 $$1 P 0 A0342 I 0 SI::*CLEANUP-FORMS* F 5 STREAM F 6 SI::*RESETFORMS* F 7 BRUSH F 8 DASHING) îgUdW hhdVcgUÉ.É0UW´WlHUhhdVcUÉ0gI hhhg ¿$`²1gI hhhg ¿$gI hhhg ¿$(231 SI::RESETUNWIND 226 \MVLIST 221 \DRAWCIRCLE.HPGLA0001A0004 201 OUTPUT 184 SI::RESETUNWIND 179 \MVLIST 174 \DRAWCIRCLE.HPGLA0001A0003 154 OUTPUT 130 SI::RESETUNWIND 125 \MVLIST 120 \DRAWCIRCLE.HPGLA0001A0002 100 OUTPUT 13 \DASHING.HPGL) (216 SI::RESETUNWIND 194 OUTPUT 169 SI::RESETUNWIND 147 OUTPUT 140 HPGL.CHORD.ANGLE 115 SI::RESETUNWIND 93 OUTPUT 83 STREAM 43 IMAGEOPS 36 STREAM 30 DSPCOLOR 4 \DASHING.HPGL) () \DRAWCIRCLE.HPGL :D8 (P 3 A0341 P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM F 4 LISPXHIST) L@ Dµ T!g ¿$i²ß@É.É0@DlK°Á(33 SI::RESETUNWIND 28 \MVLIST 23 \DRAWCIRCLE.HPGLA0001 5 \DUMPSTRING.HPGL) (57 IMAGEOPS 50 STREAM 18 SI::RESETUNWIND) () \DRAWCURVE.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 A0343 I 0 SI::*CLEANUP-FORMS* F 1 STREAM F 2 BRUSH F 3 SI::*RESETFORMS* F 4 DASHING F 5 KNOTS F 6 CLOSED) ?gQÉ.É0QR´RlHQhhdScQUVRT (60 DRAWCURVE.STREAM) (17 IMAGEOPS 10 STREAM 4 DSPCOLOR) () \DRAWCURVE.HPGL :D8 (P 3 A0344 P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 STREAM F 4 LISPXHIST) L@ g ²T!g ¿$@É.É@@ABCDlK(41 SI::RESETUNWIND 36 \MVLIST 31 \DRAWCURVE.HPGLA0001 15 \DEFINEDP 5 \DUMPSTRING.HPGL) (59 IMAGEOPS 52 STREAM 26 SI::RESETUNWIND 10 DRAWCURVE.STREAM) () \DRAWLINE.HPGLA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 X1 F 2 Y1) Eoh Qdið´¿Ph `h Rdið´¿Ph `h (66 PRIN1 55 PRIN1 38 PRIN1 27 PRIN1 10 PRIN1) (60 HPGL.TERMINATOR 32 HPGL.SEPARATOR) ( 4 "PU") \DRAWLINE.HPGLA0001A0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 X2 F 2 Y2) =oh PQh `h PdR¿h `h (58 PRIN1 47 PRIN1 33 PRIN1 22 PRIN1 10 PRIN1) (52 HPGL.TERMINATOR 27 HPGL.SEPARATOR) ( 4 "PD") \DRAWLINE.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 SI::*RESETFORMS* P 2 SI::*RESETFORMS* P 1 $$1 P 0 A0345 I 0 SI::*CLEANUP-FORMS* F 4 STREAM F 5 SI::*RESETFORMS* F 6 X1 F 7 Y1 F 8 DASHING F 9 COLOR) ÊgTdW hhdUc gTÉ.É0TWlHThhdUc TÉ0Við¦VIðžWið³:WIð³1gI hhhg ¿$gI hhhg ¿$(195 SI::RESETUNWIND 190 \MVLIST 185 \DRAWLINE.HPGLA0001A0003 165 OUTPUT 148 SI::RESETUNWIND 143 \MVLIST 138 \DRAWLINE.HPGLA0001A0002 118 OUTPUT 13 \DASHING.HPGL) (180 SI::RESETUNWIND 158 OUTPUT 133 SI::RESETUNWIND 111 OUTPUT 75 STREAM 43 IMAGEOPS 36 STREAM 30 DSPCOLOR 4 \DASHING.HPGL) () \DRAWLINE.HPGL :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST I 8 DASHING I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 STREAM F 6 LISPXHIST) l G²D`Gd£d‘hHµh³+ABCDEµkF@GG ¿°7ºIJô•JµÞi°ÛHX°Ò@ ¿V!g ¿$i(100 SI::RESETUNWIND 95 \MVLIST 90 \DRAWLINE.HPGLA0001 75 \DUMPSTRING.HPGL 48 DRAWDASHEDLINE) (85 SI::RESETUNWIND 8 HPGL.DASHING) () \DRAWPOLYGON.HPGLA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 POINTS) @oh Ph `h Ph `h oh (61 PRIN1 50 PRIN1 39 PRIN1 30 PRIN1 19 PRIN1 10 PRIN1) (44 HPGL.TERMINATOR 24 HPGL.SEPARATOR) ( 55 "PD" 4 "PU") \DRAWPOLYGON.HPGLA0001A0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 POINT) Ph `h Ph (28 PRIN1 19 PRIN1 8 PRIN1) (13 HPGL.SEPARATOR) () \DRAWPOLYGON.HPGLA0001A0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.SEPARATOR) () \DRAWPOLYGON.HPGLA0001A0005 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 POINTS) Ph `h Ph (28 PRIN1 19 PRIN1 8 PRIN1) (13 HPGL.SEPARATOR) () \DRAWPOLYGON.HPGLA0001A0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \DRAWPOLYGON.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 9 SI::*RESETFORMS* P 8 SI::*RESETFORMS* P 7 SI::*RESETFORMS* P 6 SI::*RESETFORMS* P 5 POINT P 4 SI::*RESETFORMS* P 0 A0346 I 0 SI::*CLEANUP-FORMS* F 10 STREAM F 11 SI::*RESETFORMS* F 12 BRUSH F 13 POINTS F 14 DASHING F 15 CLOSED) w gWdW hhdWcgWÉ.É0WW´WlHWhhdWcWÉ0!gI hhhg ¿$W°idgI hhhg ¿$M²1gI hhhg ¿$µ—W²1gI hhhg ¿$gI hhh g ¿$W ºI[JKJK(358 LAST 346 SI::RESETUNWIND 341 \MVLIST 336 \DRAWPOLYGON.HPGLA0001A0006 316 OUTPUT 299 SI::RESETUNWIND 294 \MVLIST 289 \DRAWPOLYGON.HPGLA0001A0005 269 OUTPUT 243 SI::RESETUNWIND 238 \MVLIST 233 \DRAWPOLYGON.HPGLA0001A0004 213 OUTPUT 192 SI::RESETUNWIND 187 \MVLIST 182 \DRAWPOLYGON.HPGLA0001A0003 162 OUTPUT 137 SI::RESETUNWIND 132 \MVLIST 127 \DRAWPOLYGON.HPGLA0001A0002 107 OUTPUT 14 \DASHING.HPGL) (331 SI::RESETUNWIND 309 OUTPUT 284 SI::RESETUNWIND 262 OUTPUT 228 SI::RESETUNWIND 206 OUTPUT 177 SI::RESETUNWIND 155 OUTPUT 122 SI::RESETUNWIND 100 OUTPUT 90 STREAM 46 IMAGEOPS 39 STREAM 32 DSPCOLOR 4 \DASHING.HPGL) () \DRAWPOLYGON.HPGL :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 POINTS I 0 STREAM F 3 LISPXHIST) %@ S!g ¿$i(29 SI::RESETUNWIND 24 \MVLIST 19 \DRAWPOLYGON.HPGLA0001 5 \DUMPSTRING.HPGL) (14 SI::RESETUNWIND) () \FILLCIRCLE.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 CENTERX F 2 CENTERY F 3 RADIUS) {oh PQh `h PdR¿h `h oh Sh `h oh `h oh (120 PRIN1 109 PRIN1 98 PRIN1 87 PRIN1 76 PRIN1 69 PRIN1 58 PRIN1 47 PRIN1 33 PRIN1 22 PRIN1 10 PRIN1) (103 HPGL.SEPARATOR 81 HPGL.SEPARATOR 52 HPGL.TERMINATOR 27 HPGL.SEPARATOR) ( 114 "360" 92 "0" 63 "WG" 4 "PU") \FILLCIRCLE.HPGLA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h `h (21 PRIN1 10 PRIN1) (15 HPGL.CHORD.ANGLE 4 HPGL.SEPARATOR) () \FILLCIRCLE.HPGLA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \FILLCIRCLE.HPGL :D8 (P 1 SI::*RESETFORMS* P 0 $$1 I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) ®@ @D @É0gH hhhg ¿$`²1gH hhhg ¿$gH hhhg ¿$i(166 SI::RESETUNWIND 161 \MVLIST 156 \FILLCIRCLE.HPGLA0003 136 OUTPUT 119 SI::RESETUNWIND 114 \MVLIST 109 \FILLCIRCLE.HPGLA0002 89 OUTPUT 65 SI::RESETUNWIND 60 \MVLIST 55 \FILLCIRCLE.HPGLA0001 35 OUTPUT 12 \FILL.HPGL 5 \DUMPSTRING.HPGL) (151 SI::RESETUNWIND 129 OUTPUT 104 SI::RESETUNWIND 82 OUTPUT 75 HPGL.CHORD.ANGLE 50 SI::RESETUNWIND 28 OUTPUT 18 STREAM) () \FONT.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FONT) 4oh PÉ`µoh `h (49 PRIN1 38 PRIN1 10 PRIN1) (43 HPGL.TERMINATOR 23 HPGL.FONTS 16 FONTDESCRIPTOR) ( 32 "" 4 "CS") \FONT.HPGLA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FONT) 3PÈ h `h PÈ h (48 PRIN1 42 SIN 29 PRIN1 18 PRIN1 12 COS) (35 FONTDESCRIPTOR 23 HPGL.SEPARATOR 5 FONTDESCRIPTOR) () \FONT.HPGLA0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \FONT.HPGLA0005 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.SEPARATOR) () \FONT.HPGLA0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \FONT.HPGLA0007 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$2) >oh Pdgð–¿ogð‘k„h `h (59 PRIN1 48 PRIN1 42 SHOULDNT 10 PRIN1) (53 HPGL.TERMINATOR 33 ITALIC 19 REGULAR) ( 27 "" 4 "SL") \FONT.HPGL :D8 (P 6 $$2 P 5 SI::*RESETFORMS* I 1 FONT I 0 STREAM) >AÃžA@ b¿@É0AAµHHð³ö@ AÉHÉð³1gH hhhg ¿$AÈHÈð’±“H¹oI ¿AÈ²JAÈZjð³=J—J ³1gH hhhg ¿$gH hhhg ¿$H¼H»oK ¿oAÈAÉ`Öl×L×H¿gH hhhg ¿$oAÈ oÖL×H¿gH hhhg ¿$AÉNHÉð³1gH hhhg ¿$HHA¿(555 SI::RESETUNWIND 550 \MVLIST 545 \FONT.HPGLA0007 525 OUTPUT 478 SI::RESETUNWIND 473 \MVLIST 468 \FONT.HPGLA0006 448 OUTPUT 435 PRINTNUM 401 SI::RESETUNWIND 396 \MVLIST 391 \FONT.HPGLA0005 371 OUTPUT 358 PRINTNUM 312 PRIN1 285 SI::RESETUNWIND 280 \MVLIST 275 \FONT.HPGLA0004 255 OUTPUT 238 SI::RESETUNWIND 233 \MVLIST 228 \FONT.HPGLA0003 208 OUTPUT 194 \FZEROP 160 PRIN1 117 SI::RESETUNWIND 112 \MVLIST 107 \FONT.HPGLA0001 87 OUTPUT 53 \DUMPSTRING.HPGL 18 FONTCLASSCOMPONENT 13 IMAGESTREAMTYPE) (540 SI::RESETUNWIND 518 OUTPUT 506 FONTDESCRIPTOR 489 FONTDESCRIPTOR 463 SI::RESETUNWIND 441 OUTPUT 417 FONTDESCRIPTOR 386 SI::RESETUNWIND 364 OUTPUT 342 HPGL.FONT.EXPANSIONS 332 FONTDESCRIPTOR 324 FONTDESCRIPTOR 270 SI::RESETUNWIND 248 OUTPUT 223 SI::RESETUNWIND 201 OUTPUT 177 FONTDESCRIPTOR 167 FONTDESCRIPTOR 139 FONTDESCRIPTOR 128 FONTDESCRIPTOR 102 SI::RESETUNWIND 80 OUTPUT 70 FONTDESCRIPTOR 59 FONTDESCRIPTOR 27 STREAM 5 FONTCLASS) ( 424 100.0 411 (FLOAT NIL 3) 318 (FLOAT NIL 3) 306 "SR" 154 "DI") \LEFTMARGIN.HPGL :D8 (L (1 XPOSITION 0 STREAM)) !@É0HA™HA¿NIL (5 STREAM) () \LINEFEED.HPGL :D8 (I 1 DELTAY I 0 STREAM) jl@É0È ÖÕNIL (18 FONTDESCRIPTOR 8 STREAM) () \MOVETO.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 X F 2 Y) =oh PQh `h PdR¿h `h (58 PRIN1 47 PRIN1 33 PRIN1 22 PRIN1 10 PRIN1) (52 HPGL.TERMINATOR 27 HPGL.SEPARATOR) ( 4 "PU") \MOVETO.HPGL :D8 (P 1 SI::*RESETFORMS* P 0 $$1 I 2 Y I 1 X I 0 STREAM) B@ @É0gH hhhg ¿$i(58 SI::RESETUNWIND 53 \MVLIST 48 \MOVETO.HPGLA0001 28 OUTPUT 5 \DUMPSTRING.HPGL) (43 SI::RESETUNWIND 21 OUTPUT 11 STREAM) () \RESET.HPGL :D8 (P 2 A0348 P 1 A0347 I 0 STREAM) J@É0@É.É ¹@HH@É.É@kJÔlINIL (56 IMAGEOPS 49 STREAM 23 IMAGEOPS 16 STREAM 5 STREAM) () \RIGHTMARGIN.HPGL :D8 (L (1 XPOSITION 0 STREAM)) #@É0HAšHA¿NIL (5 STREAM) () \ROTATE.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1) )oh Ph `h (38 PRIN1 27 PRIN1 10 PRIN1) (32 HPGL.TERMINATOR) ( 4 "RO") \ROTATE.HPGL :D8 (P 1 SI::*RESETFORMS* P 0 $$1 I 1 ROTATION I 0 STREAM) [@É0HH²8@ ¿gH hhhg ¿$(83 SI::RESETUNWIND 78 \MVLIST 73 \ROTATE.HPGLA0001 53 OUTPUT 40 \DUMPSTRING.HPGL) (68 SI::RESETUNWIND 46 OUTPUT 5 STREAM) () \SCALEDBITBLT.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 I F 1 Z) PkÙh `h Qh (26 PRIN1 19 PRIN1 8 PRIN1) (13 HPGL.SEPARATOR) () \SCALEDBITBLT.HPGLA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \SCALEDBITBLT.HPGLA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 I F 1 Z) 1oh Ph `h Qh `h (46 PRIN1 35 PRIN1 28 PRIN1 17 PRIN1 10 PRIN1) (40 HPGL.TERMINATOR 22 HPGL.SEPARATOR) ( 4 "PU") \SCALEDBITBLT.HPGLA0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 I F 1 Z) PkÙh `h Qh (26 PRIN1 19 PRIN1 8 PRIN1) (13 HPGL.SEPARATOR) () \SCALEDBITBLT.HPGLA0005 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \SCALEDBITBLT.HPGLA0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) oh `h (21 PRIN1 10 PRIN1) (15 HPGL.TERMINATOR) ( 4 "PU") \SCALEDBITBLT.HPGL :D8 (P 13 LASTPOSITION P 12 PI P 11 I P 10 STATE P 9 X P 7 Z P 5 SI::*RESETFORMS* P 4 J P 3 SOURCEWIDTH P 2 FILESTREAM P 1 Y I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 STREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 BITMAP) óC BGÔkÙBCÉ0AFÔkÙEIHó²1gJ hhhg ¿$iLGkÙÔLONó’±ƒKAjD$ OOó’±àO@OIhûð³EkOÕ_jð³SOµFgJ hhhg ¿$O_¿OkÔ_¿OGÔ_¿°™ ²·oJ ¿OOkÙÙjð³0gJ hhhg ¿$gJ hhhg ¿$±ÿpOjð’±„O˜O ³uoJ ¿OOkÙÙjð³0gJ hhhg ¿$gJ hhhg ¿$OkÔ_±þ}IkÔ¹LGÔ¼±þ0(469 SI::RESETUNWIND 464 \MVLIST 459 \SCALEDBITBLT.HPGLA0005 439 OUTPUT 423 SI::RESETUNWIND 418 \MVLIST 413 \SCALEDBITBLT.HPGLA0004 393 OUTPUT 370 PRIN1 357 \FZEROP 329 SI::RESETUNWIND 324 \MVLIST 319 \SCALEDBITBLT.HPGLA0002 299 OUTPUT 283 SI::RESETUNWIND 278 \MVLIST 273 \SCALEDBITBLT.HPGLA0001 253 OUTPUT 230 PRIN1 217 \FZEROP 185 SI::RESETUNWIND 180 \MVLIST 175 \SCALEDBITBLT.HPGLA0003 155 OUTPUT 76 SI::RESETUNWIND 71 \MVLIST 66 \SCALEDBITBLT.HPGLA0006 46 OUTPUT 5 \DUMPSTRING.HPGL) (454 SI::RESETUNWIND 433 OUTPUT 408 SI::RESETUNWIND 387 OUTPUT 314 SI::RESETUNWIND 293 OUTPUT 268 SI::RESETUNWIND 247 OUTPUT 170 SI::RESETUNWIND 149 OUTPUT 61 SI::RESETUNWIND 40 OUTPUT 18 STREAM) ( 364 "PD" 224 "PD") \STRINGWIDTH.HPGL :D8 (I 2 RDTBL I 1 STRING I 0 STREAM) Ah@ Bd(14 STRINGWIDTH 7 DSPFONT) NIL () \CLIPPINGREGION.HPGL :D8 (I 1 REGION I 0 STREAM) @É0jdHH(27 CREATEREGION) (5 STREAM) () \TERPRI.HPGL :D8 (P 2 A0350 P 1 A0349 I 0 STREAM) F@É0@É.É ¹@HH@É.É@kJÔlINIL (52 IMAGEOPS 45 STREAM 23 IMAGEOPS 16 STREAM 5 STREAM) () \XPOSITION.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 XPOSITION) 9oh PQh `h Ph `h (54 PRIN1 43 PRIN1 33 PRIN1 22 PRIN1 10 PRIN1) (48 HPGL.TERMINATOR 27 HPGL.SEPARATOR) ( 4 "PU") \XPOSITION.HPGL :D8 (P 1 SI::*RESETFORMS* P 0 $$1 I 1 XPOSITION I 0 STREAM) J@É0HA²8@ ¿gH hhhg ¿$(66 SI::RESETUNWIND 61 \MVLIST 56 \XPOSITION.HPGLA0001 36 OUTPUT 23 \DUMPSTRING.HPGL) (51 SI::RESETUNWIND 29 OUTPUT 5 STREAM) () \YPOSITION.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 $$1 F 1 YPOSITION) ;oh Ph `h PdQ¿h `h (56 PRIN1 45 PRIN1 31 PRIN1 20 PRIN1 10 PRIN1) (50 HPGL.TERMINATOR 25 HPGL.SEPARATOR) ( 4 "PU") \YPOSITION.HPGL :D8 (P 1 SI::*RESETFORMS* P 0 $$1 I 1 YPOSITION I 0 STREAM) J@É0HA²8@ ¿gH hhhg ¿$(66 SI::RESETUNWIND 61 \MVLIST 56 \YPOSITION.HPGLA0001 36 OUTPUT 23 \DUMPSTRING.HPGL) (51 SI::RESETUNWIND 29 OUTPUT 5 STREAM) () \DUMPSTRING.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TEXT.TERMINATOR) () \DUMPSTRING.HPGL :D8 (P 3 SI::*RESETFORMS* P 2 CHARCODE I 0 STREAM) v@É0H´dH¹oI ¿H ŽdHJ µðgH hhhg ¿$Hhi(103 SI::RESETUNWIND 98 \MVLIST 93 \DUMPSTRING.HPGLA0001 73 OUTPUT 56 BOUT 42 DREVERSE 31 PRIN1) (88 SI::RESETUNWIND 66 OUTPUT 5 STREAM) ( 25 "LB") \FONTCREATE.HPGL :D8 (P 7 WIDTH P 6 N P 3 FONTDESCRIPTOR P 2 WIDTHSBLOCK I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) Ô@`¢±µlÿlØkØâ `dg¿d@¿dA¿dB¿dCÍ¿dAÍ ¿dAÍ¿djÍ ¿lÿkØi HdI¿lþjlAÖl×jØNMó²<KÉ`dJ¿dJ¿dAÍ ¿djÍ¿lÿlØkØâ ¼dL¿KJNÐOÍ¿NkÔ^°¶`ABCg (209 FONTCREATE 164 \ALLOCBLOCK 83 \ALLOCBLOCK 23 \ALLOCBLOCK) (203 HPGL 193 HPGL.FONTS 130 |CHARSETINFOTYPE#| 123 FONTDESCRIPTOR 35 HPGL 28 |FONTDESCRIPTORTYPE#| 5 HPGL.FONTS) () \INIT.HPGLA0039 :D8 (L (1 SCALE 0 STREAM)) kNIL NIL () \INIT.HPGLA0064 :D8 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) YBdgðŸ¿h@ A ÖdgðŸ¿h@ A Ö³ h@ A Öh@ A ÖB (86 \ILLEGAL.ARG 77 BITMAPHEIGHT 71 DSPSCALE 63 BITMAPWIDTH 57 DSPSCALE 46 BITMAPHEIGHT 40 DSPSCALE 22 BITMAPWIDTH 16 DSPSCALE) (30 HEIGHT 6 WIDTH) () \INIT.HPGLA0072 :D8 (P 0 A0351 I 0 STREAM) @É(@llHNIL (5 STREAM) () \INIT.HPGL :D8 (P 4 CLASS P 1 FONTSET) `dg¿dgh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg>¿dg<¿dg:¿dg8¿dg6¿dg4¿dg2¿dg*¿dg ¿dg¿dg¿dg¿dg¿dg¿`dg¿dg¿dg¿dg¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg ¿dg"¿dg$¿dg,¿dg0¿dg2¿dg4¿dg>¿dg<¿dg@¿dgD¿dgL¿dgJ¿dg^¿dg\¿dgZ¿dgX¿dgV¿dgT¿dgR¿dgP¿dgN¿dgH¿dgF¿dgB¿dg:¿dg8¿dg6¿dg.¿dg*¿dg(¿dg&¿dg¿`!Hµ` h¹gIKµHX°Û\²EL²=gL³/LZggLd“‡ hJ¿K[°ª(763 FONTUNPARSE 673 FONTSET) (744 STANDARD 739 HPGL 719 HPGL 682 FONTPROFILE 668 FONTNAME 656 FONTDEFS 651 \HPGLIMAGEOPS 643 \INIT.HPGLA0072 634 NILL 625 NILL 616 NILL 607 NILL 598 NILL 589 NILL 580 \INIT.HPGLA0064 571 NILL 562 NILL 553 NILL 544 NILL 535 NILL 526 NILL 517 NILL 508 NILL 499 \DRAWPOINT.GENERIC 490 \MEDW.BLTCHAR 481 \MEDW.XOFFSET 472 \MEDW.YOFFSET 463 \ROTATE.HPGL 454 \DRAWARC.HPGL 445 \SCALEDBITBLT.HPGL 436 \DRAWPOLYGON.HPGL 427 \CLIPPINGREGION.HPGL 418 \RESET.HPGL 409 \STRINGWIDTH.HPGL 400 \STRINGWIDTH.HPGL 391 \COLOR.HPGL 382 HPGL 373 \TERPRI.HPGL 364 \INIT.HPGLA0039 355 \MOVETO.HPGL 346 \BLTSHADE.HPGL 337 \BITBLT.HPGL 328 \FILLCIRCLE.HPGL 319 DRAWELLIPSEWITHDRAWCURVE 310 \DRAWCIRCLE.HPGL 301 \DRAWCURVE.HPGL 292 \DRAWLINE.HPGL 283 \LINEFEED.HPGL 274 \RIGHTMARGIN.HPGL 265 \LEFTMARGIN.HPGL 256 \FONT.HPGL 247 \YPOSITION.HPGL 238 \XPOSITION.HPGL 229 \CLOSEFN.HPGL 220 HPGL 213 |IMAGEOPSTYPE#| 208 \NULLFDEV 200 NILL 191 NILL 182 \GENERIC.RENAMEFILE 173 NILL 164 NILL 155 NILL 146 NILL 137 \GENERIC.READCHAR 128 \GENERIC.WRITECHAR 119 \GENERIC.PEEKCHAR 110 \GENERIC.UNREADCHAR 101 \GENERIC.READP 92 \ILLEGAL.DEVICEOP 83 \GENERIC.BINS 74 \GENERIC.BOUTS 65 NILL 56 \GENERIC.CHARSET 47 \ILLEGAL.DEVICEOP 38 \IS.NOT.RANDACCESSP 29 \IS.NOT.RANDACCESSP 20 \GENERIC.READCCODE 11 NILL 4 |FDEVTYPE#|) () \OUTCHAR.HPGL :D8 (I 1 CHARCODE I 0 STREAM) G@É0Al ð–@ l Aó³)Al~ó³#HHAH ÔHAHh(51 CHARWIDTH 21 \TERPRI.HPGL) (5 STREAM) () \SEARCH.HPGL.FONTS :D8 (I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) !Dgð´@`´@ABCDhhNIL (14 HPGL.FONTS 5 HPGL) () \FILL.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 TEXTURE) oh Q3 kQó¨Qló¢Q€kh `h Q3 “Q€jh `h Q3 ²'Ql- Hjðµ H´H ”Q€jh `h (138 PRIN1 127 PRIN1 113 \FZEROP 94 IMOD 75 PRIN1 64 PRIN1 47 PRIN1 36 PRIN1 10 PRIN1) (132 HPGL.TERMINATOR 69 HPGL.SEPARATOR 41 HPGL.SEPARATOR) ( 4 "FT") \FILL.HPGL :D8 (P 2 SI::*RESETFORMS* P 0 A0352 I 1 TEXTURE I 0 STREAM) •@ Ad²' ²@É.É0@AlHA3 ²'AdnÿÿÙjð’¿k‰jØjð’lljAlål-Öhb¿@É0gI hhhg ¿$i(141 SI::RESETUNWIND 136 \MVLIST 131 \FILL.HPGLA0001 111 OUTPUT 17 RGBP 5 \DUMPSTRING.HPGL) (126 SI::RESETUNWIND 104 OUTPUT 94 STREAM 32 IMAGEOPS 25 STREAM) () \DASHING.HPGLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h `h (21 PRIN1 10 PRIN1) (15 HPGL.PATTERN.LENGTH 4 HPGL.SEPARATOR) () \DASHING.HPGLA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) `h (10 PRIN1) (4 HPGL.TERMINATOR) () \DASHING.HPGLA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) oh `h (21 PRIN1 10 PRIN1) (15 HPGL.TERMINATOR) ( 4 "LT") \DASHING.HPGL :D8 (P 6 SI::*RESETFORMS* P 5 SI::*RESETFORMS* P 4 INDEX I 1 DASHING I 0 STREAM) Q@É01H´H`A¢±×Ad£d‘hb² `hºYµ‰ºAJô–JµJ\„I°ëL3 ¢±¡LHð’±‘@ ¿H»oK ¿HLK ¿`²1gH hhhg ¿$gH hhhg ¿$H²D@ ¿gH hhhg ¿$Hh¿(317 SI::RESETUNWIND 312 \MVLIST 307 \DASHING.HPGLA0003 287 OUTPUT 274 \DUMPSTRING.HPGL 249 SI::RESETUNWIND 244 \MVLIST 239 \DASHING.HPGLA0002 219 OUTPUT 202 SI::RESETUNWIND 197 \MVLIST 192 \DASHING.HPGLA0001 172 OUTPUT 152 PRIN1 133 PRIN1 118 \DUMPSTRING.HPGL) (302 SI::RESETUNWIND 280 OUTPUT 234 SI::RESETUNWIND 212 OUTPUT 187 SI::RESETUNWIND 165 OUTPUT 158 HPGL.PATTERN.LENGTH 64 HPGL.DASHING 37 HPGL.DASHING 5 STREAM) ( 127 "LT") (PRETTYCOMPRINT HPGLCOMS) (RPAQQ HPGLCOMS ((* * User Functions) (FNS MAKEHPGL OPENHPGLSTREAM HARDCOPYW.HPGL) (* * ImageOp Functions) (FNS \BITBLT.HPGL \BLTSHADE.HPGL \CLOSEFN.HPGL \COLOR.HPGL \DRAWARC.HPGL \DRAWCIRCLE.HPGL \DRAWCURVE.HPGL \DRAWLINE.HPGL \DRAWPOLYGON.HPGL \FILLCIRCLE.HPGL \FONT.HPGL \LEFTMARGIN.HPGL \LINEFEED.HPGL \MOVETO.HPGL \RESET.HPGL \RIGHTMARGIN.HPGL \ROTATE.HPGL \SCALEDBITBLT.HPGL \STRINGWIDTH.HPGL \CLIPPINGREGION.HPGL \TERPRI.HPGL \XPOSITION.HPGL \YPOSITION.HPGL) (* * Internal Functions) (FNS \DUMPSTRING.HPGL \FONTCREATE.HPGL \INIT.HPGL \OUTCHAR.HPGL \SEARCH.HPGL.FONTS \FILL.HPGL \DASHING.HPGL) (* * etc.) (VARS HPGL.FONTS HPGL.OPTIONS HPGL.FONT.EXPANSIONS HPGL.DASHING ( SKETCHINCOLORFLG T)) (INITVARS (HPGL.TERMINATOR (CHARACTER (CHARCODE ;))) (HPGL.SEPARATOR (CHARACTER ( CHARCODE %,))) (HPGL.TEXT.TERMINATOR (CHARACTER (CHARCODE ^A))) HPGL.CHORD.ANGLE HPGL.PATTERN.LENGTH \HPGLIMAGEOPS \NULLFDEV SK.DASHING.PATTERNS) (GLOBALVARS HPGL.FONTS HPGL.OPTIONS HPGL.FONT.EXPANSIONS HPGL.DASHING HPGL.TERMINATOR HPGL.SEPARATOR HPGL.TEXT.TERMINATOR HPGL.CHORD.ANGLE HPGL.PATTERN.LENGTH \HPGLIMAGEOPS \NULLFDEV) (DECLARE%: DOEVAL@COMPILE DONTCOPY (FILES UTILISOPRS) (ALISTS (PRINTOUTMACROS !, !; !!;)) (RECORDS PLOTTERDATA)) (ADDVARS (PRINTERTYPES ((PLOTTER HPGL) (CANPRINT (HPGL)) (STATUS TRUE) (BITMAPFILE (HARDCOPYW.HPGL FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)) (PROPERTIES NILL))) (PRINTFILETYPES (HPGL (EXTENSION (HPGL PLOT)) (CONVERSION (TEXT MAKEHPGL TEDIT (LAMBDA (FILE PFILE) ( SETQ FILE (OPENTEXTSTREAM FILE)) (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE HPGL)) ( CLOSEF? FILE) PFILE))))) (IMAGESTREAMTYPES (HPGL (OPENSTREAM OPENHPGLSTREAM) (FONTCREATE \FONTCREATE.HPGL) (FONTSAVAILABLE \SEARCH.HPGL.FONTS) (CREATECHARSET NILL)))) (P (if (FGETD (FUNCTION SK.DASHING.LABEL)) then (for ENTRY in HPGL.DASHING do (push SK.DASHING.PATTERNS (LIST ( SK.DASHING.LABEL (CDR ENTRY)) (CDR ENTRY))))) (\INIT.HPGL)))) (RPAQQ HPGL.FONTS ((STANDARD . 0) (9825 . 1) (FRENCH . 2) (SCANDINAVIAN . 3) (SPANISH . 4) (JISASCII . 6) (ROMAN . 7) (KATAKANA . 8) (IRV . 9) (SWEDISH . 30) (SWEDISH2 . 31) (NORWAY . 32) (GERMAN . 33) (FRENCH2 . 34) (BRITISH . 35) (ITALIAN . 36) (SPANISH2 . 37) (PORTUGUESE . 38) (NORWAY2 . 39))) (RPAQQ HPGL.OPTIONS ((ROTATE . "RO") (VELOCITY . "VS") (PAPER . "PS") (TERMINATOR . "DT"))) (RPAQQ HPGL.FONT.EXPANSIONS ((REGULAR . 200.0) (COMPRESSED . 100.0) (EXPANDED . 400.0))) (RPAQQ HPGL.DASHING ((1 1 49) (2 25) (3 35 15) (4 39 5 1 5) (5 35 5 5 5) (6 25 5 5 5 5 5))) (RPAQQ SKETCHINCOLORFLG T) (RPAQ? HPGL.TERMINATOR (CHARACTER (CHARCODE ;))) (RPAQ? HPGL.SEPARATOR (CHARACTER (CHARCODE %,))) (RPAQ? HPGL.TEXT.TERMINATOR (CHARACTER (CHARCODE ^A))) (RPAQ? HPGL.CHORD.ANGLE NIL) (RPAQ? HPGL.PATTERN.LENGTH NIL) (RPAQ? \HPGLIMAGEOPS NIL) (RPAQ? \NULLFDEV NIL) (RPAQ? SK.DASHING.PATTERNS NIL) (ADDTOVAR PRINTERTYPES ((PLOTTER HPGL) (CANPRINT (HPGL)) (STATUS TRUE) (BITMAPFILE (HARDCOPYW.HPGL FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)) (PROPERTIES NILL))) (ADDTOVAR PRINTFILETYPES (HPGL (EXTENSION (HPGL PLOT)) (CONVERSION (TEXT MAKEHPGL TEDIT (LAMBDA (FILE PFILE) (SETQ FILE (OPENTEXTSTREAM FILE)) (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE HPGL)) (CLOSEF? FILE) PFILE))))) (ADDTOVAR IMAGESTREAMTYPES (HPGL (OPENSTREAM OPENHPGLSTREAM) (FONTCREATE \FONTCREATE.HPGL) ( FONTSAVAILABLE \SEARCH.HPGL.FONTS) (CREATECHARSET NILL))) (if (FGETD (FUNCTION SK.DASHING.LABEL)) then (for ENTRY in HPGL.DASHING do (push SK.DASHING.PATTERNS ( LIST (SK.DASHING.LABEL (CDR ENTRY)) (CDR ENTRY))))) (\INIT.HPGL) (PUTPROPS HPGL COPYRIGHT ("Stanford University" 1985 1986 1987 1988)) NIL