(FILECREATED "16-Sep-86 15:28:19" ("compiled on " {DSK}4045INT>4045XLPSTREAM.;20) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "16-Sep-86 15:24:59" {DSK}4045INT>4045XLPSTREAM.;20 68331 changes to: (VARS 4045XLPSTREAMCOMS) (FNS \SEARCH4045FONTS \CREATECHARSET.4045 \GENERICBITBLT.4045XLP \WINDOWCMD.4045XLP \BOLDMODE.4045XLP \MEDIUMMODE.4045XLP \SEND4045XLPCOMMAND OPEN4045XLPSTREAM) previous date: "10-Sep-86 17:07:20" {DSK}4045INT>4045XLPSTREAM.;16) 4045XLP.EncodedSixelofBitmap D1 (P 2 StartOfSixelRun P 1 SixelsRemaining P 0 WordsToSkip I 1 Sixel# I 0 BASEPTR) All!Alܹ@HкIdjJbkJeYIdlJJElJ%;IdlJ.lJJIdlJElJI l?(176Q SHOULDNT) NIL () \BLTSHADE.4045XLP D1 (I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 4045XLPSTREAM I 0 TEXTURE) 2@n@dmABCDE j@hABCDEFGhA (57Q \BLTSHADE.GENERICPRINTER 53Q DSPSCALE 25Q \BLACKBOX.4045XLP) NIL () \4045XLP.ROUND.BITMAP D1 (P 3 NEWBITMAP P 2 NEWWIDTH P 1 SOURCEHEIGHT P 0 SOURCEREGION I 4 HEIGHT I 3 WIDTH I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBM) MABCD jd@ @ !HHlllZI @ABKjdHIgg K(111Q BKBITBLT 61Q BITMAPCREATE 26Q INTERSECTREGIONS 23Q CREATEREGION 20Q BITMAPHEIGHT 14Q BITMAPWIDTH 6 CREATEREGION) (105Q REPLACE 102Q INPUT) () \SCALEDBITBLT.4045XLP D1 (P 6 SCALE P 5 SIXEL.WIDTH P 4 WordWidth P 3 WIDTH.ROUNDED P 2 HEIGHT P 1 BACKINGSTREAM P 0 EXPANDED.SOURCEBITMAP I 16Q SCALE I 15Q CLIPPEDSOURCEBOTTOM I 14Q CLIPPEDSOURCELEFT I 13Q CLIPPINGREGION I 12Q TEXTURE I 11Q OPERATION I 10Q SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 4045XLPSTREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) G GkGlGllGh @ABF@ G@ C H H !Kl۽HGlNDNJEKJC HJMLI i(174Q \GENERICBITBLT.4045XLP 162Q \WINDOWCMD.4045XLP 114Q BITMAPWIDTH 105Q BITMAPHEIGHT 67Q \4045XLP.ROUND.BITMAP 63Q BITMAPHEIGHT 53Q BITMAPWIDTH 40Q ERRORX) (130Q BITMAP 76Q STREAM) () \GENERICBITBLT.4045XLP D1 (P 11Q I P 7 Sixel P 5 PRESENTBYTE P 4 PREVBYTE P 3 BYTECOUNT P 2 CurrRow P 1 ROW I 4 BACKINGSTREAM I 3 WORDWIDTH I 2 SIXEL.WIDTH I 1 HEIGHT I 0 EXPANDED.SOURCEBITMAP) Ak@j$IHBkjONJO LMKdnkԻnKjdKdkDL![ Q Ok_O_OO_OCjhi_Ok_OOOOOO_DO!DL!k[MOk_qJCкIkYVKkYLZK Q Ok_O_OO_OCjhi_Ok_OOOOOO_DO!DL!h(305Q CONCAT 113Q CONCAT 47Q 4045XLP.EncodedSixelofBitmap) (5 BITMAP) () \BITBLT.4045XLP D1 (P 5 WordWidth P 4 SIXEL.WIDTH P 3 WIDTH.ROUNDED P 2 HEIGHT P 1 BACKINGSTREAM P 0 EXPANDED.SOURCEBITMAP I 15Q CLIPPEDSOURCEBOTTOM I 14Q CLIPPEDSOURCELEFT I 13Q CLIPPINGREGION I 12Q TEXTURE I 11Q OPERATION I 10Q SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 4045XLPSTREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) I@ABFG C H H !KlۼHlDJlEKJC HJLMI (106Q \GENERICBITBLT.4045XLP 75Q \WINDOWCMD.4045XLP 36Q BITMAPWIDTH 27Q BITMAPHEIGHT 11Q \4045XLP.ROUND.BITMAP) (52Q BITMAP 20Q STREAM) () \BLACKBOX.4045XLP D1 (P 3 CMD P 2 YY P 1 XX P 0 BACKINGSTREAM I 4 HEIGHT I 3 WIDTH I 2 BOTTOM I 1 LEFT I 0 4045XLPSTREAM) *@ ABoKIoJoCoD H (47Q \SEND4045XLPCOMMAND 43Q CONCAT) (3 STREAM) ( 36Q "," 31Q "," 24Q "," 13Q "x") \WINDOWCMD.4045XLP D1 (P 2 CH P 0 BACKINGSTREAM I 6 2700MODE? I 5 4045XLPSTREAM I 4 HEIGHT I 3 WIDTH I 2 TOP I 1 LEFT I 0 MAGNIFICATION) E E !o@oAoBoCoDoo@oAoBoCoDo QIkټILIػICjhi^Lk\KNMLMLºHJ!h(116Q CONCAT 14Q 4045XLPIn2700ModeP) (3 STREAM) ( 112Q "% " 105Q "," 100Q "," 73Q "," 66Q ";" 61Q "vw" 53Q "% " 46Q "," 41Q "," 34Q "," 27Q ";" 22Q "gw") 4045XLPIn2700ModeP D1 (I 0 4045XLPSTREAM) @g (6 STREAMPROP) (3 2700MODE) () BEGINPAGE.4045XLP D1 (P 0 IMAGEDATA I 0 4045XLPSTREAM) '@(@HHH (44Q SETXY.4045XLP) (36Q FONTDESCRIPTOR 31Q 4045XLPDATA 23Q 4045XLPDATA 15Q 4045XLPDATA 3 STREAM) () ENDPAGE.4045XLP D1 (I 0 4045XLPSTREAM) @ l !NIL (3 STREAM) () NEWPAGE.4045XLP D1 (I 0 4045XLPSTREAM) @ @ (7 BEGINPAGE.4045XLP 3 ENDPAGE.4045XLP) NIL () NEWLINE.4045XLP D1 (P 1 NEWYPOS P 0 4045XLPDATA I 0 4045XLPSTREAM) (@(HHYdH@ @HI h(44Q SETXY.4045XLP 33Q NEWPAGE.4045XLP) (22Q 4045XLPDATA) () SETXY.4045XLP D1 (I 2 Y I 1 X I 0 4045XLPSTREAM) M@(A@(B@ oAoB @ oAoB @ (112Q \SEND4045XLPCOMMAND 101Q CONCAT 63Q \SEND4045XLPCOMMAND 52Q CONCAT 33Q 4045XLPIn2700ModeP) (105Q STREAM 56Q STREAM 24Q 4045XLPDATA 17Q STREAM 10Q 4045XLPDATA 3 STREAM) ( 75Q "," 70Q "p" 46Q "," 41Q "a") \MOVETO.4045XLP D1 (I 2 Y I 1 X I 0 4045XLPSTREAM) @AB (5 SETXY.4045XLP) NIL () \BOLDMODE.4045XLP D1 (P 2 C P 0 BACK I 0 4045XLPSTREAM) R@ @ ooQIkټILIػICjhi^Lk\KNMLMLºHJ!h(14Q 4045XLPIn2700ModeP) (3 STREAM) ( 26Q "W" 21Q "b") \MEDIUMMODE.4045XLP D1 (P 2 C P 0 BACK I 0 4045XLPSTREAM) R@ @ ooQIkټILIػICjhi^Lk\KNMLMLºHJ!h(14Q 4045XLPIn2700ModeP) (3 STREAM) ( 26Q "&" 21Q "p") \FIXLINELENGTH.4045XLP D1 (L (0 4045XLPSTREAM)) !@(@HHH$YkIl hNIL NIL () \SEND4045XLPCOMMAND D1 (P 1 C I 2 NOCR I 1 BACKINGSTREAM I 0 STRING) GAl!@QHkٻHKHغHCjhi]Kk[JMLKLK¹AI!BAl !NIL NIL () \4045XLPINITA0017 D1 NIL oNIL NIL ( 3 4.166667) \4045XLPINITA0030 D1 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) 5BdgA lgA lBA lA l (62Q \ILLEGAL.ARG 52Q BITMAPHEIGHT 43Q BITMAPWIDTH 30Q BITMAPHEIGHT 13Q BITMAPWIDTH) (22Q HEIGHT 4 WIDTH) () \4045XLPINITA0054 D1 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL NIL () \4045XLPINITA0061 D1 (L (2 FDEV 1 RECOG 0 NAME)) @NIL NIL () \4045XLPINITA0063 D1 (L (0 NAME)) @NIL NIL () \4045XLPINIT D1 (F 2 IMAGESTREAMTYPES F 3 PRINTFILETYPES) `dgdgdgdgdgdg dg dgdgdgdgdgdgdgdgdg dg"dg$dg(dg&dg,dgdg*dg2dg4dgDdgdg8dg6dg0dg.`gghHdIdjdjdj0dgdgdg dgdgdgdg dgdgdgdgdgdgdgdgdg dg"dg&dg6dg8dg:dg4dg2dg0dg.dg*dg$oRcoSc`go h(1017Q SETFONTCLASSCOMPONENT) (1010Q 4045XLP 1005Q DEFAULTFONT 762Q 4045XLPFDEV 754Q \GENERIC.READP 745Q NILL 736Q \IS.NOT.RANDACCESSP 727Q \ILLEGAL.DEVICEOP 720Q \IS.NOT.RANDACCESSP 711Q \ILLEGAL.DEVICEOP 702Q \GENERIC.RENAMEFILE 673Q \NONPAGEDBOUTS 664Q \ILLEGAL.DEVICEOP 655Q \PAGEDBACKFILEPTR 646Q \ILLEGAL.DEVICEOP 637Q 4045.OUTCHARFN 630Q \ILLEGAL.DEVICEOP 621Q NILL 612Q NILL 603Q NILL 574Q \4045XLPINITA0063 565Q \4045XLPINITA0061 556Q \ILLEGAL.DEVICEOP 547Q NILL 540Q \GENERATENOFILES 531Q NILL 522Q \ILLEGAL.DEVICEOP 513Q \4045XLPINITA0054 504Q NILL 475Q NILL 466Q NILL 423Q PRINTER 420Q 4045XLP 414Q FDEVTYPE# 411Q \4045XLPIMAGEOPS 403Q NILL 374Q NILL 365Q NILL 356Q NILL 347Q NILL 340Q NILL 331Q NILL 322Q NILL 313Q \4045XLPINITA0030 304Q \DRAWPOLYGON.4045XLP 275Q \DSPCLIPPINGREGION.4045XLP 266Q \SCALEDBITBLT.4045XLP 257Q \CHARWIDTH.4045XLP 250Q \STRINGWIDTH.4045XLP 241Q \DSPSPACEFACTOR.4045XLP 232Q NEWPAGE.4045XLP 223Q 4045XLP 214Q \DSPTOPMARGIN.4045XLP 205Q \DSPBOTTOMMARGIN.4045XLP 176Q NEWLINE.4045XLP 167Q \4045XLPINITA0017 160Q \MOVETO.4045XLP 151Q \BITBLT.4045XLP 142Q \BLTSHADE.4045XLP 133Q \FILLCIRCLE.4045XLP 124Q NILL 115Q \DRAWCIRCLE.4045XLP 106Q NILL 77Q \DRAWLINE.4045XLP 70Q \DSPLINEFEED.4045XLP 61Q \DSPRIGHTMARGIN.4045XLP 52Q \DSPLEFTMARGIN.4045XLP 43Q \DSPFONT.4045 34Q \DSPYPOSITION.4045XLP 25Q \DSPXPOSITION.4045XLP 16Q \CLOSE4045XLPSTREAM 7 4045XLP 2 IMAGEOPSTYPE#) ( 1014Q (TITAN 12Q MRR) 776Q (4045XLP (EXTENSION (4045XLP))) 766Q (4045XLP (OPENSTREAM OPEN4045XLPSTREAM) (FONTCREATE \CREATE4045FONT) (FONTSAVAILABLE \SEARCH4045FONTS) (CREATECHARSET \CREATECHARSET.4045))) OPEN4045XLPSTREAM D1 (P 6 X P 5 X P 3 4045XLPSTREAM P 2 4045XLPDEFAULTFONT I 1 OPTIONS I 0 4045XLPFILE)  gl gjg `d`dk0dg d`&`jdn n HdI dkdjdjdl djdn `dn djHdI(@gho HdI dg.dg,dg"djd`djd`dhdldjRdk@dhdg l ol o a Lk_L_OL_LCjhi_Ok_OOOOOO½K M!KK KgAg'`n JK JK K K(604Q BEGINPAGE.4045XLP 600Q DSPLINEFEED 566Q DSPFONT 561Q STREAMPROP 532Q FULLNAME 377Q CONCAT 370Q CHARACTER 357Q CHARACTER 346Q \SETACCESS 212Q OPENSTREAM 75Q CREATEREGION 17Q FONTCREATE) (572Q FONTDESCRIPTOR 552Q 4045XLPDEFAULTLANGUAGE 544Q MODE 540Q 2700MODE 525Q STREAM 521Q STREAM 506Q STREAM 343Q OUTPUT 277Q \STREAM.DEFAULT.MAXBUFFERS 263Q FILELINELENGTH 246Q \EOSERROR 237Q \STREAM.NOT.OPEN 230Q \STREAM.NOT.OPEN 202Q OUTPUT 61Q 4045XLPDATATYPE# 53Q \4045XLPIMAGEOPS 44Q 4045.OUTCHARFN 27Q 4045XLPFDEV 22Q STREAMTYPE# 13Q 4045XLP 7 MRR 2 TITAN) ( 374Q "+P" 363Q "+P" 207Q ((TYPE BINARY))) \CLOSE4045XLPSTREAM D1 (I 0 4045XLPSTREAM) @ @ i @ @(26Q CLOSEF 15Q FORCEOUTPUT 3 ENDPAGE.4045XLP) (21Q STREAM 7 STREAM) () 4045.OUTCHARFN D1 (P 4 NEWXPOS P 3 CLIPPINGREGION P 2 NSCODE P 1 BACKINGSTREAM P 0 4045XLPDATA I 1 CHARCODE I 0 4045XLPSTREAM) @(@ BAH AZH [Jdl @ rlAl @d @ WJl @ LHHJl HHJl]M\dH@ LKKkLK IJl!h(176Q NEWLINE.4045XLP 115Q NEWPAGE.4045XLP 102Q \DSPXPOSITION.4045XLP 76Q NEWLINE.4045XLP 72Q \DSPXPOSITION.4045XLP 47Q NEWLINE.4045XLP) (127Q 4045XLPDATA 123Q 4045XLPDATA 6 STREAM) () \CHARWIDTH.4045XLP D1 (I 1 CHARCODE I 0 4045XLPSTREAM) /Al @(@(H(AAH Al(43Q \CREATECHARSET) NIL () \STRINGWIDTH.4045XLP D1 (I 2 RDTBL I 1 STRING I 0 4045XLPSTREAM) A@(B@( (16Q \STRINGWIDTH.GENERIC) NIL () \DSPXPOSITION.4045XLP D1 (I 1 XPOSITION I 0 4045XLPSTREAM) !@(A@A@( (35Q SETXY.4045XLP) (30Q 4045XLPDATA 23Q STREAM 10Q 4045XLPDATA 3 STREAM) () \DSPYPOSITION.4045XLP D1 (I 1 YPOSITION I 0 4045XLPSTREAM) !@(A@d(A (35Q SETXY.4045XLP) (27Q 4045XLPDATA 22Q STREAM 10Q 4045XLPDATA 3 STREAM) () \DSPBOTTOMMARGIN.4045XLP D1 (L (1 YPOSITION 0 4045XLPSTREAM)) @(A@(ANIL (25Q 4045XLPDATA 20Q STREAM 10Q 4045XLPDATA 3 STREAM) () \DSPTOPMARGIN.4045XLP D1 (L (1 YPOSITION 0 4045XLPSTREAM)) @(A@(ANIL (25Q 4045XLPDATA 20Q STREAM 10Q 4045XLPDATA 3 STREAM) () \DSPLEFTMARGIN.4045XLP D1 (I 1 XPOSITION I 0 4045XLPSTREAM) @(A@(A@ (21Q \FIXLINELENGTH.4045XLP) NIL () \DSPRIGHTMARGIN.4045XLP D1 (I 1 XPOSITION I 0 4045XLPSTREAM) @(A@(A@ (21Q \FIXLINELENGTH.4045XLP) NIL () \DSPCLIPPINGREGION.4045XLP D1 (L (1 REGION 0 4045XLPSTREAM) P 1 \INTERRUPTABLE) @(H AHA NIL (27Q 4045XLPDATA 14Q 4045XLPDATA 3 STREAM) () \DSPSPACEFACTOR.4045XLP D1 (P 0 4045XLPDATA I 1 FACTOR I 0 4045XLPSTREAM) !@(HAHAH HA(26Q FIXR) NIL () \DSPLINEFEED.4045XLP D1 (P 0 4045XLPDATA I 1 DELTAY I 0 4045XLPSTREAM) @(HAAd3HA (31Q \ILLEGAL.ARG) NIL () \DSPFONT.4045 D1 (P 1 OLDFONT P 0 4045XLPDATA I 1 FONT I 0 4045XLPSTREAM) @(HYAwdAg IA bbHAHA HdH HAkHA  Ag gIg g@ Ig g@ @ I(200Q \FIXLINELENGTH.4045XLP 173Q \MEDIUMMODE.4045XLP 162Q FONTPROP 152Q \BOLDMODE.4045XLP 140Q FONTPROP 123Q FONTPROP 71Q FIXR 33Q FONTCOPY 24Q \COERCEFONTDESC) (165Q BOLD 157Q WEIGHT 143Q BOLD 135Q WEIGHT 126Q BOLD 120Q WEIGHT 100Q FONTDESCRIPTOR 21Q 4045XLP) () \CREATE4045FONT D1 (P 2 NEWFONT P 1 TRANSL I 4 DEVICE I 3 ROTATION I 2 FONTFACE I 1 SIZE I 0 FAMILY) f``@dABCD  `!Hh@IiMngjd _OOOOkO OOO.O,(JO.OdO.(njO.(o *O.k_.OOO_&_$O&O$uOO&OO&(Kn*O&k_&(1736Q FIXR 1663Q AIN 1636Q ARRAY 1543Q \FZEROP 1475Q GETEOFPTR 1470Q GETFILEPTR 1363Q FIXR 1310Q AIN 1213Q \FZEROP 1164Q FIXR 646Q FIXR 575Q FIXR 531Q FIXR 460Q FIXR 417Q SETFILEPTR 413Q \FIXPIN 402Q \FZEROP 361Q \FINDFONT 346Q COPYBYTES 341Q OPENSTREAM 321Q SETFILEPTR 312Q RANDACCESSP 272Q OPENSTREAM 245Q FINDFILE 236Q \FONTFILENAME 202Q \ALLOCBLOCK 133Q \FACECODE 60Q \ALLOCBLOCK 41Q \ALLOCBLOCK 30Q FIXR 12Q ARRAY) (1631Q SMALLPOSP 1623Q FONTDESCRIPTOR 1604Q ARRAYP 1600Q CHARSETINFO 1566Q FONTDESCRIPTOR 1521Q FONTDESCRIPTOR 1102Q FONTDESCRIPTOR 1074Q FONTDESCRIPTOR 1070Q FONTDESCRIPTOR 1051Q FONTDESCRIPTOR 1045Q FONTDESCRIPTOR 1006Q FONTDESCRIPTOR 1002Q FONTDESCRIPTOR 763Q FONTDESCRIPTOR 757Q FONTDESCRIPTOR 720Q FONTDESCRIPTOR 714Q FONTDESCRIPTOR 677Q FONTDESCRIPTOR 666Q FONTDESCRIPTOR 656Q FONTDESCRIPTOR 610Q FONTDESCRIPTOR 541Q FONTDESCRIPTOR 473Q FONTDESCRIPTOR 424Q FONTDESCRIPTOR 336Q NEW 333Q BOTH 330Q {NODIRCORE} 267Q OLD 264Q INPUT 242Q INTERPRESSFONTDIRECTORIES 230Q WD 160Q \ASCIITONS 75Q FONTDESCRIPTORTYPE# 33Q CHARSETINFOTYPE# 5 SMALLPOSP) ( 1732Q .122449 1357Q .122449 1160Q .122449 642Q .122449 571Q .122449 525Q .122449 454Q .122449 260Q (PROGN (CLOSEF? OLDVALUE)) 170Q 4.166667 24Q 72.0) \READ4045FONTFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \READ4045FONTFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\READ4045FONTFILEA0001)) \CREATECHARSET.4045A0001 D1 (NAME ERRORSET L (0 NIL) P 40Q SIZE P 37Q LENGTH P 36Q TYPE P 35Q NEXT P 13Q WIDTHSY P 12Q TEM P 11Q LASTCHAR P 10Q FIRSTCHAR P 7 RELFLAG P 6 FIXEDFLAGS P 5 WSTRM P 4 WFILE P 3 CSINFO P 2 NSMICASIZE F 51Q WIDTHS F 52Q CHARSETHEIGHT F 53Q PSIZE F 54Q RESETVARSLST F 55Q RESETY F 56Q FAMILY F 57Q FACE F 60Q CHARSET F 61Q FBBOX) ) WVn o `l HdIl HdIKcRW\WVW^gW` i` \oLgg ]hWXcXM Mj Mggg ] j1 iM jh_j OO _Md M M dnnkcbKjM M dnnk M M M M dnnkcTO KK Jn WTJncTKWTK M M NllM M _OOjOd OJn_OO__OOQWROOOk_MO: M _O:O>ODoAo@oCoB E o@oAoBoC E (73Q \SEND4045XLPCOMMAND 67Q CONCAT 36Q \SEND4045XLPCOMMAND 32Q CONCAT) NIL ( 62Q "," 55Q "," 50Q "," 43Q "x" 25Q "," 20Q "," 13Q "," 6 "x") (PRETTYCOMPRINT 4045XLPSTREAMCOMS) (RPAQQ 4045XLPSTREAMCOMS ((* * Bitmap Functions) (FNS 4045XLP.EncodedSixelofBitmap \BLTSHADE.4045XLP \4045XLP.ROUND.BITMAP \SCALEDBITBLT.4045XLP \GENERICBITBLT.4045XLP \BITBLT.4045XLP \BLACKBOX.4045XLP \WINDOWCMD.4045XLP) (* * Stream manipulation functions) (FNS 4045XLPIn2700ModeP BEGINPAGE.4045XLP ENDPAGE.4045XLP NEWPAGE.4045XLP NEWLINE.4045XLP SETXY.4045XLP \MOVETO.4045XLP \BOLDMODE.4045XLP \MEDIUMMODE.4045XLP \FIXLINELENGTH.4045XLP \SEND4045XLPCOMMAND \4045XLPINIT OPEN4045XLPSTREAM \CLOSE4045XLPSTREAM 4045.OUTCHARFN \CHARWIDTH.4045XLP \STRINGWIDTH.4045XLP) (* * DSP specific functions) (FNS \DSPXPOSITION.4045XLP \DSPYPOSITION.4045XLP \DSPBOTTOMMARGIN.4045XLP \DSPTOPMARGIN.4045XLP \DSPLEFTMARGIN.4045XLP \DSPRIGHTMARGIN.4045XLP \DSPCLIPPINGREGION.4045XLP \DSPSPACEFACTOR.4045XLP \DSPLINEFEED.4045XLP \DSPFONT.4045) (* * Fontcreate methods) (FNS \CREATE4045FONT \COERCEASCIITO4045FONT \READ4045FONTFILE \CREATECHARSET.4045 \SEARCH4045FONTS) (* * Drawing algorithms) (FNS \DRAWCIRCLE.4045XLP \CIRCLEPOINTS.4045XLP \FILLCIRCLE.4045XLP \FILLCIRCPOINTS.4045XLP \DRAWPOLYGON.4045XLP \DRAWLINE.4045XLP \DRAWDIAGONAL.4045XLP \DRAWDASH.4045XLP \DRAWDOT.4045XLP) (DECLARE: EVAL@LOAD DONTCOPY (RECORDS SIXEL 4045XLPDATA) (MACROS \4045XLPBackingStream)) (INITRECORDS 4045XLPDATA SIXEL) (INITVARS (4045XLPDEFAULTLANGUAGE 2700)) (VARS \ASCIITOASCII) (CONSTANTS 4045XLP.DOTSPERMICA 4045XLP.DOTSPERPOINT noInfoCode) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\4045XLPINIT))))) (/DECLAREDATATYPE (QUOTE 4045XLPDATA) (QUOTE (WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((4045XLPDATA 0 (BITS . 15)) (4045XLPDATA 1 (BITS . 15)) ( 4045XLPDATA 2 (BITS . 15)) (4045XLPDATA 3 (BITS . 15)) (4045XLPDATA 4 (BITS . 15)) (4045XLPDATA 6 POINTER) (4045XLPDATA 8 POINTER) (4045XLPDATA 10 POINTER) (4045XLPDATA 12 POINTER) (4045XLPDATA 14 POINTER) (4045XLPDATA 16 POINTER) (4045XLPDATA 18 POINTER) (4045XLPDATA 20 POINTER))) (QUOTE 22)) (RPAQ? 4045XLPDEFAULTLANGUAGE 2700) (RPAQ \ASCIITOASCII (READARRAY 256 (QUOTE SMALLPOSP) 0)) (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 NIL) (RPAQQ 4045XLP.DOTSPERMICA .122449) (RPAQQ 4045XLP.DOTSPERPOINT 4.166667) (RPAQQ noInfoCode 32768) (CONSTANTS 4045XLP.DOTSPERMICA 4045XLP.DOTSPERPOINT noInfoCode) (\4045XLPINIT) (PUTPROPS 4045XLPSTREAM COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL