(FILECREATED "11-Oct-85 15:03:59" ("compiled on " {ERIS}NEWWINDOWS>ADISPLAY.;1) "10-Oct-85 19:26:01" recompiled changes: \DRAWLINE.DISPLAY \CLIPANDDRAWLINE \CLIPANDDRAWLINE1 in "INTERLISP-D 10-Oct-85 ..." dated "10-Oct-85 19:58:34") (FILECREATED "11-Oct-85 15:00:49" {ERIS}NEWWINDOWS>ADISPLAY.;1 153265 changes to: (FNS \DRAWLINE.DISPLAY \CLIPANDDRAWLINE \CLIPANDDRAWLINE1) previous date: " 4-Oct-85 18:24:26" {ERIS}SOURCES>ADISPLAY.;68) \BBTCURVEPT D1 (I 23Q DISPLAYDATA I 22Q NBITS I 21Q COLORBRUSHBASE I 20Q BRUSHRASTERWIDTH I 17Q RASTERWIDTH I 16Q DESTINATIONBASE I 15Q BRUSHBASE I 14Q TOP I 13Q BOTTOMMINUSBRUSH I 12Q BRUSHHEIGHT I 11Q DestinationBitMap I 10Q TOPMINUSBRUSH I 7 NBITSRIGHTPLUS1 I 6 RIGHTPLUS1 I 5 LEFTMINUSBRUSH I 4 BRUSHWIDTH I 3 LEFT I 2 BBT I 1 Y I 0 X) `AG/AGظBGBGBGAGٺdJ:J6GGG AGYлBKBKBGAGټdLLI GGGHнBMBMG"C@MBG$lCCBDBG$l@Eك@EHIIG$lHH5BG$l@@bBjBDG@HdIIBG& Hk QHIgijk @BjvAGBG"BG"!G"G AGBHBHBG& Hl QHIgjk @PC@%BCBDB@EHII'B@BjBDF@HdIIBjvNIL (720Q PILOTBBT 710Q PILOTBBT 700Q PILOTBBT 652Q PILOTBBT 645Q PILOTBBT 635Q PILOTBBT 611Q INVERT 560Q PILOTBBT 547Q PILOTBBT 516Q PILOTBBT 504Q PILOTBBT 453Q INVERT 405Q PILOTBBT 375Q PILOTBBT 350Q PILOTBBT 265Q PILOTBBT 260Q PILOTBBT 235Q PILOTBBT 211Q PILOTBBT 200Q PILOTBBT 165Q BITMAP 132Q PILOTBBT 121Q PILOTBBT 110Q PILOTBBT 45Q PILOTBBT 33Q PILOTBBT 21Q PILOTBBT) () \CHANGEBACKGROUND.DISPLAY D1 (P 0 OPENWINDOWS I 1 SHADE I 0 DISPLAY) AiA `b Ad` H d @H`@HAA `A A`AH` d (167Q \OPENW1 157Q TILE 133Q \CLEARBM 123Q TEXTUREP 56Q \CLOSEW1 46Q \ILLEGAL.ARG 36Q OPENWINDOWS 20Q TEXTUREP) (154Q ScreenBitMap 142Q BITMAPTYPE# 127Q ScreenBitMap 115Q CURRENTBACKGROUNDSHADE 105Q FDEV 101Q WINDOWBACKGROUNDSHADE 67Q FDEV 27Q BITMAPTYPE# 11Q WINDOWBACKGROUNDSHADE) () \CHANGEBACKGROUNDBORDER.DISPLAY D1 (I 1 SHADE I 0 DISPLAY) /`dl`A`AlAA j(51Q \DoveDisplay.SetBorderPattern 41Q \DoveDisplay.GetBorderPattern) (25Q \IOPAGE 14Q \IOPAGE 2 \MACHINETYPE) () CREATETEXTUREFROMBITMAP D1 (P 11Q Y P 7 X P 3 TEXTURE P 2 TEXTHEIGHT P 1 W P 0 H I 0 BITMAP)  @d`d @@BIlIdlsHlHlfjljONVlj OO@@OIOH j(K`lOlOl\LMOk_Ok_KIllH@lHdld ljO%Oj>OO 2jOlOOl!@jdKOjIHgg OI__K(362Q BKBITBLT 314Q \FZEROP 261Q BITMAPCREATE 133Q BITMAPBIT 14Q \ILLEGAL.ARG) (356Q REPLACE 353Q INPUT 174Q ARRAYP 166Q ARRAYP 143Q BITMASKARRAY 27Q BITMAP 21Q BITMAP 5 BITMAPTYPE#) () PRINTBITMAP D1 (L (1 FILE 0 BITMAP)) @@`0@l@-X` oi @i oi i hoA H A kA H A Hd kkA H A HA oA h(177Q PRIN1 167Q \WRITEBITMAP 161Q PRIN2 155Q BITSPERPIXEL 150Q SPACES 136Q BITSPERPIXEL 131Q PRIN2 125Q BITMAPHEIGHT 120Q SPACES 112Q PRIN2 106Q BITMAPWIDTH 101Q PRIN1 67Q TERPRI 62Q PRIN1 51Q PRIN1 43Q PRIN1) (30Q BITMAPTYPE# 10Q BITMAPTYPE#) ( 173Q ")" 75Q "(" 56Q " is not a BITMAP." 37Q "******** ") PRINTCURSOR D1 (P 0 CUR I 0 VAR) z @g XY`$IIddIdd oi @i oi i hg@goHHhh H h(166Q PRINTBITMAP 161Q PRINT 122Q TERPRI 115Q PRIN1 104Q PRIN1 76Q PRIN1 11Q EVALV) (133Q CURSORCREATE 127Q RPAQ 21Q BITMAPTYPE# 6 PRINTCURSOR) ( 137Q (READBITMAP) 111Q " is not a CURSOR." 72Q "******** ") \WRITEBITMAP D1 (P 3 LIM P 2 W P 1 OFD P 0 BASE I 1 FILE I 0 BITMAP) @Ag @@djbA Il" HJлHKBIHjl@ IHjll@ IHkl@ IHkll@ HkXIl" kٰ(173Q \BOUT 156Q \BOUT 140Q \BOUT 121Q \BOUT 103Q \BOUT 53Q \BOUT 44Q TERPRI 14Q GETSTREAM) (31Q BITMAP 20Q BITMAP 11Q OUTPUT 3 BITMAP) () \GETINTEGERPART D1 (L (0 FRACT)) '@ljjk@dnnHHNIL NIL () \CONVERTTOFRACTION D1 (P 1 BOX P 0 RESULT I 0 FLOAT)  @ojXdlYH I(30Q \PUTFIXP) NIL ( 7 1048576.0) CARET D1 (I 0 NEWCARET) `-g@x`h  @di?`dghOHH hdd`hh-o` !gh@ hdd@hh@l (174Q \LISPERROR 151Q CURSORP 133Q ERROR 101Q CURSORP 31Q CARETRATE 26Q CARETRATE 22Q \CARET.DOWN) (177Q \CARET.DEFAULT 140Q OFF 130Q DEFAULTCARET 110Q DEFAULTCARET 50Q OFF 44Q DEFAULTCARET 15Q \CARET.UP 7 OFF 2 \CARET.DEFAULT) ( 125Q "DEFAULTCARET is not a cursor") \CARET.CREATE D1 (L (0 CURSOR)) hdd@`hhNIL (10Q DEFAULTCARET) () \CARET.DOWN D1 (P 0 \INTERRUPTABLE I 2 UNLESSOCCLUDED I 1 INTERVAL I 0 STREAM) a`\@ ``@d`;`B `h``l`l A`(127Q \CLOCK0 57Q \CARET.SHOW) (135Q \CARET.FORCED.OFF.RATE 120Q \CARET.TIMER 110Q \CARET.TIMER 102Q \CARET.UP 72Q \CARET.UP 64Q \CARET.UP 53Q \CARET.UP 40Q WINDOW 33Q WINDOWTYPE# 24Q \CARET.UP 12Q \CARET.UP 2 \CARET.UP) () \CARET.FLASH? D1 (I 5 Y I 4 X I 3 OFFRATE I 2 ONRATE I 1 CARET I 0 STREAM F 0 TtyDisplayStream) `O` Fh`l@`ljjkj&l`ljjkjl@`l jjkj hA`b` @Pb @g x@  beA@Cl@`ljjkj&l`ljjkjl@`l jjkjDE #Ah`l`l B`i(354Q \CLOCK0 321Q \CARET.FLASH 213Q \INSUREWINDOW 202Q TEXTOBJ 174Q IMAGESTREAMTYPEP 163Q DISPLAYSTREAMP 144Q TIMEREXPIRED? 117Q \CARET.DOWN 12Q TIMEREXPIRED?) (362Q \CARET.ON.RATE 345Q \CARET.TIMER 335Q \CARET.TIMER 277Q \LASTKEYSTATE 254Q \LASTKEYSTATE 231Q \LASTKEYSTATE 205Q TEXTOBJ 171Q TEXT 141Q \CARET.TIMER 126Q \CARET.DEFAULT 100Q \LASTKEYSTATE 55Q \LASTKEYSTATE 32Q \LASTKEYSTATE 20Q \CARET.UP 7 \CARET.TIMER 2 \CARET.UP) () \CARET.SHOW D1 (P 13Q CLIPVAR P 12Q CLIPREG P 11Q CARETBMHEIGHT P 10Q CARETBMWIDTH P 7 CWY P 6 CWX P 5 CARETBM P 4 CBMY P 3 CBMX P 2 CARETWIN P 1 DD P 0 DS I 1 UNLESSOCCLUDED I 0 CARET) @H(H jd@e @^@_M _M_I _d_NOON[_OOOON_O_O_OOOO\_O_OOOO_O_kOkOiNI^OI_J JNONOkOOk AhJ MKL`NOOOgg i(362Q BKBITBLT 332Q TOTOPW 321Q \AREAVISIBLE? 272Q OPENWP 47Q BITMAPWIDTH 16Q WFROMDS) (356Q INVERT 353Q INPUT 341Q ScreenBitMap 261Q \DISPLAYDATA 247Q \DISPLAYDATA 65Q \DISPLAYDATA 55Q BITMAP 10Q STREAM) () CARETRATE D1 (I 1 OFFRATE I 0 ONRATE F 0 DEFAULTCARETRATE) I`d``@A7`l`l j@dPjAd`(43Q \CLOCK0) (105Q \CARET.OFF.RATE 102Q \CARET.ON.RATE 65Q \CARET.ON.RATE 34Q \CARET.TIMER 24Q \CARET.TIMER 13Q \CARET.OFF.RATE 6 \CARET.OFF.RATE 2 \CARET.ON.RATE) () \CARET.FLASH.AGAIN D1 (P 1 OC P 0 OCARET I 3 Y I 2 X I 1 STREAM I 0 CARET F 2 \LASTKEYSTATE F 3 TtyDisplayStream) `Hn@kASb `HIZ@A`l@Rljjkj"lRljjkjl@Rl jjkjBC `@@dH@hIY(151Q SHOULDNT 136Q \CARET.FLASH 24Q DISPLAYSTREAMP) (143Q \CARET.UP 42Q \CARET.UP 2 \CARET.UP) () \CARET.FLASH.MULTIPLE D1 (P 3 CARET P 2 STR I 3 OFFRATE I 2 ONRATE I 1 CARETS I 0 STREAMS) /@ABC A@"IHh[J IH(44Q \CARET.FLASH.AGAIN 10Q \CARET.FLASH?) NIL () \CARET.FLASH D1 (P 0 \INTERRUPTABLE I 5 Y I 4 X I 3 UNLESSOCCLUDED I 2 RATE I 1 STREAM I 0 CARET) E@A@DdA @@EdA @@B`@C @i(73Q \CARET.SHOW 36Q DSPYPOSITION 13Q DSPXPOSITION) (101Q \CARET.UP 62Q \CARET.OFF.RATE) () \AREAVISIBLE? D1 (P 0 WPTR I 4 TOP I 3 RGHT I 2 BTM I 1 LFT I 0 WIN) 9`@ABCD hABCD HX Hd@i(44Q \REGIONOVERLAPAREAP 23Q \AREAINREGIONP) (52Q WINDOW 32Q WINDOW 11Q WINDOW 2 TOPW) () \REGIONOVERLAPAREAP D1 (L (4 TOP 3 RGHT 2 BTM 1 LFT 0 REG)) +@C#A@@k@DB@@khNIL NIL () \AREAINREGIONP D1 (L (4 TOP 3 RGHT 2 BTM 1 LFT 0 REGION)) 1A@h(B@h@@Ch@@DhNIL NIL () CURSORP D1 (L (0 X)) ;@7@H`H&@!@dd@dd@NIL (15Q BITMAPTYPE#) () CURSORBITMAP D1 NIL `NIL (2 CursorBitMap) () CreateCursorBitMap D1 (I 0 ARRAY) /ld 1HYljKJIK@Kk(nKk[H(5 BITMAPCREATE) NIL () CREATEREGION D1 (L (3 HEIGHT 2 WIDTH 1 BOTTOM 0 LEFT)) @ABChNIL NIL () REGIONP D1 (I 0 X) $@l @dddih@(5 EQLENGTH) NIL () INTERSECTREGIONS D1 (L (0 REGIONS)) eHj ojojojojh@aIZdIk[I\dIk]Hl_OdNJKfLMaJLKJkMLkhaYdJILIIdIkKIkػIIkMIIkؽOk_hNIL NIL ( 36Q 40000000002Q 30Q 40000000002Q 22Q -20000000001Q 14Q -20000000001Q) UNIONREGIONS D1 (L (0 REGIONS)) eHjhp@YdZIIk[I\IIk]Hl_OdNJLKJkMLkhaYdJILIIdIkKIkػIIkMIIkؽOk_NIL NIL () REGIONSINTERSECTP D1 (L (1 REGION2 0 REGION1)) @@AAk0A@@k"@AAkA@@khNIL NIL () SUBREGIONP D1 (L (1 SMALLREGION 0 LARGEREGION)) BA@h8A@h,@@AAh@@AAhNIL NIL () EXTENDREGION D1 (L (1 INCLUDEREGION 0 REGION)) @dA@@A@A@A@@@A@AAdAk@@k@AAk@kAAk@@k@AAk@k@NIL NIL () EXTENDREGIONBOTTOM D1 (L (1 NEWBOTTOM 0 REG)) !@HA@A@@HA@NIL NIL () EXTENDREGIONLEFT D1 (L (1 NEWLEFT 0 REG)) @HA@A@@HA@NIL NIL () EXTENDREGIONRIGHT D1 (L (1 NEWRIGHT 0 REG)) @@kAH@@AH@NIL NIL () EXTENDREGIONTOP D1 (L (1 NEWTOP 0 REG)) #@@kAH@@AH@NIL NIL () INSIDEP D1 (I 2 Y I 1 POSORX I 0 REGION) R@ h@ bAdddBdd@AB A @AA AdddB (117Q \ILLEGAL.ARG 74Q INSIDE? 63Q POSITIONP 56Q INSIDE? 11Q DSPCLIPPINGREGION 3 WINDOWP) NIL () STRINGREGION D1 (I 3 RDTBL I 2 PRIN2FLG I 1 STREAM I 0 STR) %hA hA A@ABC Ah(27Q STRINGWIDTH 11Q DSPYPOSITION 4 DSPXPOSITION) (33Q FONTDESCRIPTOR 15Q FONTDESCRIPTOR) () \BRUSHBITMAP D1 (P 0 BRUSHES&METHOD I 1 BRUSHWIDTH I 0 BRUSHSHAPE) J@` @ Ajjd lAHA(AH HAk=<HA=H=(53Q FASSOC 31Q BITMAPCREATE 14Q \ILLEGAL.ARG 6 FASSOC) (3 \BrushAList) () \GETBRUSH D1 (I 0 BRUSH) @d` g@k @ (35Q \BRUSHBITMAP 24Q \BRUSHBITMAP) (15Q ROUND 5 BITMAPTYPE#) () \GETBRUSHBBT D1 (I 2 BBT I 1 DISPLAYDATA I 0 BRUSHBM) @k@k@jd khBAnB@nBj Bk kjhBA AdgdggdgdggHJdgkglJglj QHIgJgjk @B(212Q SHOULDNT 30Q BITMAPBIT) (271Q ERASE 264Q INVERT 245Q INVERT 234Q PAINT 223Q ERASE 205Q ERASE 177Q ERASE 171Q INVERT 163Q PAINT 155Q PAINT 147Q REPLACE 116Q PILOTBBT 76Q BITMAP 72Q PILOTBBT 52Q BITMAP 45Q \DISPLAYDATA 41Q PILOTBBT 15Q BITMAP 3 BITMAP) () \InitCurveBrushes D1 (P 4 SIZE P 2 CREATIONMETHOD P 1 BARRAY P 0 BRUSHNAME) ^kd jdk `Gdlghk oH Ik`*llLKILdkJ*Lk\HJI h(124Q INSTALLBRUSH 51Q PACK* 41Q ARRAY 15Q BITMAPBIT 4 BITMAPCREATE) (61Q \SingleBitBitmap 34Q POINTER 20Q \BrushNames 7 \SingleBitBitmap) ( 45Q "\MakeBrush.") \BrushFromWidth D1 (L (0 W)) g@hNIL (2 ROUND) () \MakeBrush.DIAGONAL D1 (P 2 X P 0 BM I 0 SIZE) #@d !@kjJIHJdk JkZH(30Q BITMAPBIT 4 BITMAPCREATE) NIL () \MakeBrush.HORIZONTAL D1 (P 0 BM I 0 SIZE) %@d hddHj@kkhkggn H(41Q BKBITBLT 4 BITMAPCREATE) (32Q REPLACE 27Q TEXTURE) () \MakeBrush.VERTICAL D1 (P 0 BM I 0 SIZE) %@d hddH@kkjk@ggn H(41Q BKBITBLT 4 BITMAPCREATE) (32Q REPLACE 27Q TEXTURE) () \MakeBrush.SQUARE D1 (P 0 BM I 0 SIZE) (@dk`d hddHhdddggn H(44Q BKBITBLT 14Q BITMAPCREATE) (35Q REPLACE 32Q TEXTURE 7 \SingleBitBitmap) () \MakeBrush.ROUND D1 (P 3 DS P 2 DESTINATIONBASE P 1 BITMAP P 0 RADIUS I 0 SIZE) @kk@d II@dkdjdklJnJn@dlJn@JnJn@lJn`JnJnJn`@dl'JnpJnJnJnJnpl-Jn0JnxJnJnJnxJn0I @@@knK (354Q FILLCIRCLE 331Q DSPCREATE 15Q BITMAPCREATE) (24Q BITMAP) () INSTALLBRUSH D1 (P 2 X P 0 OLDENTRY I 2 BRUSHARRAY I 1 BRUSHFN I 0 BRUSHNAME) ^@` HBHBAGHA?A.B)lghk blkJIBJdkA*JkZ@BAh`h(57Q ARRAY 6 FASSOC) (132Q \BrushAList 126Q \BrushAList 52Q POINTER 3 \BrushAList) () \DRAWLINE.DISPLAY D1 (P 3 DD P 2 BRUSH P 1 BBT P 0 \BRUSHBBT I 10Q DASHING I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 DISPLAYSTREAM)  G<`0`!HgEGhABCDJGJ @I Hh@(@`@ g@ Ad3 KBd3 KCd3 KDd3 KEk3 E FK"gFdgdgdgF KK"K#kK$K%k@G CD@ (362Q MOVETO 353Q \CLIPANDDRAWLINE 321Q \ILLEGAL.ARG 251Q FIXR 225Q FIXR 206Q FIXR 167Q FIXR 150Q FIXR 137Q \TOTOPWDS 121Q WFROMDS 55Q \LINEWITHBRUSH 47Q \GOOD.DASHLST) (311Q ERASE 303Q INVERT 274Q PAINT 264Q REPLACE 231Q \DISPLAYDATA 212Q \DISPLAYDATA 173Q \DISPLAYDATA 154Q \DISPLAYDATA 131Q CLOSED 124Q WINDOW 112Q \TOPWDS 101Q STREAM 72Q \\BRUSHBBT.GLOBALRESOURCE 62Q \\BRUSHBBT.GLOBALRESOURCE 23Q ROUND 13Q PILOTBBTTYPE# 6 \\BRUSHBBT.GLOBALRESOURCE) () RELMOVETO D1 (I 2 STREAM I 1 DY I 0 DX) @hBg b B AhB B (35Q DSPYPOSITION 30Q DSPYPOSITION 22Q DSPXPOSITION 15Q DSPXPOSITION 10Q \GETSTREAM) (5 OUTPUT) () MOVETOUPPERLEFT D1 (P 0 ASCENT I 1 REGION I 0 STREAM) Oh@ Ad%l Ad3ihA AAA@ h@ YIH@ @(113Q MOVETO 74Q DSPCLIPPINGREGION 67Q DSPLEFTMARGIN 52Q \ILLEGAL.ARG 25Q EQLENGTH 4 DSPFONT) (7 FONTDESCRIPTOR) () \CLIPANDDRAWLINE D1 (P 5 J P 4 I P 2 MAX P 1 MIN P 0 \INTERRUPTABLE I 14Q COLOR I 13Q DS I 12Q TOP I 11Q BOTTOM I 10Q RIGHT I 7 LEFT I 6 BITMAP I 5 OPERATION I 4 WIDTH I 3 Y2 I 2 X2 I 1 Y1 I 0 X1)  Fk*EghG bgb GdG nb@BDlJAC<`G G`G @AgDGhhG E `@Dkb0@GG@DbAdCCYGGAdCCZt`G G`G gG hjdF@dGGbIdGGYBGkػdKK@JdGGIkgEG `xACDlADkb0AGGADb@dBBYGG@dBBZt`G G`G gG hjdFIdGGYAdGGbJdGGIkCGkػdKKAgEG `Dk@ABCEFGGGGGG @BjKKjKACjKKjKNDlDkAKbCKbADkACLK#@LBMEFGGGGGG LkԼMkԽ*DlDk@KbBKb@Dk@BLdKhAMCEFGGGGGG LkԼMkԽ(1302Q \CLIPANDDRAWLINE1 1165Q \CLIPANDDRAWLINE1 1020Q \CLIPANDDRAWLINE1 757Q \PUTUPCOLORCURSOR 747Q BKBITBLT 650Q \TOTOPWDS 631Q WFROMDS 613Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 460Q \PUTUPCOLORCURSOR 450Q BKBITBLT 351Q \TOTOPWDS 332Q WFROMDS 314Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 202Q \PUTUPCOLORCURSOR 172Q DRAWPOINT 165Q DSPDESTINATION 142Q \TOTOPWDS 125Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 60Q COLORNUMBERP 55Q DSPCOLOR 31Q COLORNUMBERP 26Q DSPBACKCOLOR) (753Q \COLORCURSORDOWN 740Q TEXTURE 641Q CLOSED 634Q WINDOW 621Q \TOPWDS 605Q \COLORCURSORBM 454Q \COLORCURSORDOWN 441Q TEXTURE 342Q CLOSED 335Q WINDOW 322Q \TOPWDS 306Q \COLORCURSORBM 175Q \COLORCURSORDOWN 150Q ROUND 133Q \TOPWDS 117Q \COLORCURSORBM 37Q PAINT 15Q ERASE 3 BITMAP) () \CLIPANDDRAWLINE1 D1 (P 14Q CA2 P 13Q CA1 P 12Q CY2 P 11Q CX2 P 10Q CY1 P 7 CX1 P 6 \INTERRUPTABLE P 5 HALFDY P 4 HALFDX P 3 YMOVEUP P 2 DY P 1 DX P 0 BMRASTERWIDTH I 13Q COLOR I 12Q DS I 11Q TOP I 10Q BOTTOM I 7 RIGHT I 6 LEFT I 5 BITMAP I 4 OPERATION I 3 Y2 I 2 X2 I 1 Y1 I 0 X1)  EQ@B@BbLbACbLbB@Y\CAiCAACZ]F@BGKGAzCGCrAGlEkb`G G`G gG @EAkIJIJIJLMKjHـHDEH `8@ABC@AFGGG BCFGGG  OdOj𣿱 Oj`G G`G gG EdkWOEOkOOKOOOOIJIdJdO@LIKOAAOMJKjHـHDEH mdldl^OEOkOOKOOOOIJIdJdO@LIKOAAOMJKjHـHDEHEG `hOjlOdl@IJGA _G_:l@IJAG _G_ KAJIF@ ؉AJIF@ _F_OOFGGG _Odl@IJAG _G_=l@IJGA _G_#KAJIG@ ؊AJIG@ _G_OOFGGG _(1324Q \CLIPCODE 1274Q \GREATESTPTAT 1260Q \GREATESTPTAT 1231Q \GREATESTPTAT 1177Q \GREATESTPTAT 1147Q \CLIPCODE 1120Q \LEASTPTAT 1105Q \LEASTPTAT 1057Q \LEASTPTAT 1025Q \LEASTPTAT 772Q \PUTUPCOLORCURSOR 761Q SHOULDNT 754Q \DRAWCOLORLINE1 604Q \DRAWLINE1 445Q \TOTOPWDS 426Q WFROMDS 410Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 343Q \CLIPCODE 326Q \CLIPCODE 300Q \PUTUPCOLORCURSOR 270Q \DRAWLINE1 216Q \TOTOPWDS 177Q WFROMDS 161Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (765Q \COLORCURSORDOWN 744Q BITMAP 735Q BITMAP 630Q BITMAP 575Q BITMAP 470Q BITMAP 452Q BITMAP 436Q CLOSED 431Q WINDOW 416Q \TOPWDS 402Q \COLORCURSORBM 274Q \COLORCURSORDOWN 261Q BITMAP 224Q BITMAP 207Q CLOSED 202Q WINDOW 167Q \TOPWDS 153Q \COLORCURSORBM 137Q BITMAP 3 BITMAP) () \CLIPCODE D1 (L (5 BOTTOM 4 TOP 3 RIGHT 2 LEFT 1 Y 0 X)) ;B@ADlEAl k@CADlEAl lADlEAljNIL NIL () \LEASTPTAT D1 (L (2 THISB 1 DB 0 DA)) @AB@@kAkB@AANIL NIL () \GREATESTPTAT D1 (L (2 THISB 1 DB 0 DA)) @ABk@@kAB@AANIL NIL () \DRAWLINE1 D1 (I 12Q RASTERWIDTH I 11Q BITMAPBASE I 10Q MODE I 7 YINC I 6 CDL I 5 DY I 4 DX I 3 YLIMIT I 2 XLIMIT I 1 Y0 I 0 X0) 3 GAG@@lDGEGdglgkjFBkCk;NIL (43Q ERASE 32Q INVERT) () \DRAWLINE.UFN D1 (L (10Q PIXELSINY 7 PIXELSINX 6 INITIALBUCKET 5 OPERATIONCODE 4 YDELTA 3 YINCR 2 XDELTA 1 FIRSTBIT 0 FIRSTADDR))   `AlHHIDBEdjNGkjJI?@H@BFDb Kk[G$FBb @CbHXj@kbnJkZhkOGkjJI@Hn@BFDb Kk[GFBb @CbHXj@kbnJkZGkjJI@H@BFDb Kk[GFBb @CbHXj@kbnJkZEdjPGkjJIR@H@DFBb #Kk[G5FDb HXj@kbn@CbJkZkSGkjJI@Hn@DFBb #Kk[GFDb HXj@kbn@CbJkZGkjJI@H@DFBb #Kk[GFDb HXj@kbn@CbJkZNIL (23Q ARRAYP 15Q ARRAYP 2 BITMASKARRAY) () \DRAWCIRCLE.DISPLAY D1 (L (5 DASHING 4 BRUSH 3 RADIUS 2 CENTERY 1 CENTERX 0 DISPLAYSTREAM) P 57Q \INTERRUPTABLE P 56Q \INTERRUPTABLE P 55Q \INTERRUPTABLE P 54Q \INTERRUPTABLE) ~0CdddjC bC Cjh`4`jCkClH@(DlD#+O(A_NB_PhO&$_2O&%_0O&#_.O&"_,O&_*O&dgdggg_JO*_Vk[DOVlllOV _>OJgh@ g_Rg_JD Dd@ g_RDOROV _TD _>O*_DO*_@O>O&O$ _$O>_BO>_FO>_4O$O*k_LO&gg_JOVdkO,O4_86lO,O4_8O._HOVlO,O4_8O._HO>_6O2O6_:O0O6_A B C D TJjKjHI@ hkJJ kKKEJKjb EddE `>`_E E JdKdjdk@(FlF!0O&_6OBO"O _OB_8OB_@OB_ ,LMOO(OO@OtOxO" OhOOpO_^O4WO*NQOO0JO.OCOO6NOODOFO> -NOOO(OO@OtOxO" `jOVjOTuO OH_HOLOJ_JOPk OR_ZON_NOPOR_PjOR_ROVOTjOPkk _VORll jOXjOTkk _XOZkk OT_TjOVOHjjO _ jOL_LOPON_ZjON_NOZON_POZl OR_RjOVOZ_VOTOX_XOTOZOVk _T)(3253Q LSH 3210Q LSH 3110Q RSH 3071Q RSH 3054Q RSH 3035Q RSH 2766Q LSH 2716Q \PUTUPCOLORCURSOR 2706Q \BBTCURVEPT 2631Q \FBITMAPBIT 2536Q \BBTCURVEPT 2462Q \FBITMAPBIT 2375Q \TOTOPWDS 2362Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2262Q MOVETO 2113Q RSH 2102Q RSH 2055Q RSH 2005Q RSH 1754Q RSH 1667Q RSH 1640Q RSH 1562Q RSH 1554Q RSH 1525Q RSH 1442Q ABS 1435Q ABS 1425Q LSH 1420Q FIXR 1410Q LSH 1403Q FIXR 1373Q LSH 1366Q FIXR 1343Q LSH 1336Q FIXR 1323Q LSH 1316Q FIXR 1312Q LSH 1257Q FIXR 1253Q SQRT 1236Q LSH 1216Q LSH 1211Q FIXR 1144Q \TOTOPWDS 1111Q SHOULDNT 740Q SHOULDNT 534Q \GETBRUSHBBT 474Q \GETBRUSH 457Q \GETCOLORBRUSH 437Q DSPCOLOR 400Q DSPBACKCOLOR 360Q \GETCOLORBRUSH 136Q SIN 132Q COS 112Q \ILLEGAL.ARG 40Q MOVETO 17Q FIXR 13Q FIXR 7 FIXR 3 FIXR) (2712Q \COLORCURSORDOWN 2367Q \TOPWDS 2355Q \COLORCURSORBM 2272Q \\BRUSHBBT.GLOBALRESOURCE 1136Q \TOPWDS 1124Q \DISPLAYDATA 1100Q \DISPLAYDATA 1045Q \DISPLAYDATA 1015Q \DISPLAYDATA 746Q BITMAP 631Q INVERT 624Q INVERT 606Q BITMAP 570Q BITMAP 556Q BITMAP 544Q BITMAP 516Q BITMAP 504Q BITMAP 462Q BITMAP 444Q BLACK 413Q REPLACE 405Q WHITE 370Q ERASE 327Q BITMAP 317Q REPLACE 312Q ERASE 304Q ERASE 276Q INVERT 220Q \\BRUSHBBT.GLOBALRESOURCE 153Q STREAM 123Q PILOTBBTTYPE# 116Q \\BRUSHBBT.GLOBALRESOURCE) () \DRAWCURVE.DISPLAY D1 (P 2 DASHLST P 1 BBT P 0 \BRUSHBBT I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 DISPLAYSTREAM) ``HDC A djhdk,AA3Ad3oA AAC@ glUAA3Ad3oA AA3Ad3oA AAAACJ@I AB CJI@ @H(272Q \CURVE2 262Q PARAMETRICSPLINE 254Q \LINEWITHBRUSH 225Q ERROR 165Q ERROR 123Q DRAWPOINT 107Q ERROR 30Q LENGTH 21Q \GOOD.DASHLST) (301Q \\BRUSHBBT.GLOBALRESOURCE 43Q \\BRUSHBBT.GLOBALRESOURCE 7 PILOTBBTTYPE# 2 \\BRUSHBBT.GLOBALRESOURCE) ( 217Q "bad knot" 160Q "bad knot" 102Q "bad knot") DRAWPOINT D1 (P 0 BRUSHBM I 4 OPERATION I 3 WINDOW I 2 BRUSH I 1 Y I 0 X) +B HjdC@HkAHkhddD (50Q BKBITBLT 3 \GETBRUSH) (32Q BITMAP 17Q BITMAP) () \LINEWITHBRUSH D1 (L (7 BBT 6 DISPLAYSTREAM 5 DASHLST 4 BRUSH 3 Y2 2 X2 1 Y1 0 X1) P 40Q \INTERRUPTABLE) !iEdF(DlDFLK$_K%_K#_K"KKdgdggg_*M_2k[DO2lllO2 _O*ghF g_.g_*D DdF g_.DO.O2 _0D _M_$M_ OKG bO_"O_&O_GMk_,Kgg_*O2dkNO_4lNO_O_(O2lNO_O_(O_OO_OO_O2dk@Ok_4Kb=l@Ok_4Kb"O2l@Ok_4KbBO4KbAOk_6KbCO6KbF`F @BB@bbCAbbB@k_8CAk_LO:O8@B&H@AFlLIJkZjHhIEYO8O>O:_>!AOO8_>@kbACH@AFlLIJkZjHhIEYO:O>O8_>@kbBO>O:_>AOO:_>!AOO8_>@kb]ACHU@OOO@IAOCOA=GO @AO*O,O$ )@AGNOOOO(OMOOOO"O O$O&O0O2K IJkZjHhIEYO:O>O8_>@kbBO>O:_>AONjo _Njo _Njo _A2Njo _Njo _ Njo _Njo _Oko*Nll_*_(O*O(AOko*Nll O@O>lNAOkOl(Ok(o ONk(o*OkOl(Ok(o ONk(o*Nll O@O>O Nko*ONko*ONko*kNl O>O@AON(ONk(o ONl(_"ON(ONk(o ONl(_$JNkO"oOk(ONl(O k(O Nl(o*KNkO$oOk(ONl(O k(O Nl(o*Nlk_2_0O2O0kJO2OO2(O O2(JNk(*KO2OO2(O O2(KNk(*O2k_2_BO@O_>O@k_@OO*ooOO*k(*O*k_*OO@OO@k(OO@k( *O@k_@OO@OO@k(OO@(o OO@k(oOO@k(OO@k(*OO@OO@k(OO@(o OO@k(oOO@k(OO@k(*O@k_@O O@O O@k(OO@(OO@( *OO@OO@(OO@k(OO@(*OO@OO@(OO@k(OO@(*O@m_@OkOl(Ol(oOk(o*OkOl(Ol(oOk(o*Nll_._,O.O,bOO.OO.l(OO.k(oOO.(oOO.k(OO.k(*OO.OO.l(OO.k(oOO.(oOO.k(OO.k(*O.k_.JNJk(*KNKk(*Nkk_:_8O:O8HO:OO:k(OO:(JO:(oJO:k(o*IO:OO:k(OO:(KO:(oKO:k(o*LO:JO:k(JO:(*MO:KO:k(KO:(*O:k_:JkKkJNKNo****lNk_6_4O4O6SJO6OO6k(JO6k(OO6k(*KO6OO6k(KO6k(OO6k(*O6m_6NOOHIJKLMh(1660Q FMINUS 1555Q FMINUS 1465Q FMINUS 1422Q FMINUS 1271Q ERROR 726Q FMINUS 670Q FMINUS 514Q FMINUS 451Q FMINUS 311Q ARRAY 275Q ARRAY 261Q ARRAY 245Q ARRAY 227Q ARRAY 214Q ARRAY 201Q ARRAY 146Q ARRAY 133Q ARRAY 121Q ARRAY 107Q ARRAY 75Q ARRAY 63Q ARRAY 51Q ARRAY 37Q ARRAY 25Q LENGTH 13Q LAST) NIL ( 2533Q 0.0 2443Q 6.0 2427Q 2.0 2373Q 6.0 2357Q 2.0 2233Q 6.0 2217Q 2.0 2145Q 6.0 2131Q 2.0 2052Q 6.0 2037Q 2.0 2013Q 6.0 2000Q 2.0 1572Q 6.0 1551Q 2.0 1502Q 6.0 1461Q 2.0 1350Q 1.0 1344Q 4.0 1264Q "bad knot" 1065Q 4.0 1030Q 6.0 1011Q 4.0 754Q 6.0 722Q 2.0 664Q 2.0 615Q 0.0 602Q 0.0 567Q 1.0 530Q 6.0 510Q 2.0 465Q 6.0 445Q 2.0 363Q 1.0 323Q 4.0 306Q 0.0 272Q 0.0 256Q 0.0 242Q 0.0 224Q 0.0 211Q 0.0 176Q 0.0 143Q 0.0 130Q 0.0 116Q 0.0 104Q 0.0 72Q 0.0 60Q 0.0 46Q 0.0 34Q 0.0) \CURVE D1 (L (20Q DISPLAYSTREAM 17Q USERFN 16Q ENDING 15Q BBT 14Q DISPLAYDATA 13Q BRUSHBM 12Q N 11Q DDDY 10Q DDDX 7 DDY 6 DDX 5 DY 4 DX 3 Y1 2 X1 1 Y0 0 X0) P 0 \INTERRUPTABLE F 1 \OLDX F 2 \OLDY F 3 DASHON F 4 DASHTAIL F 5 DASHCNT F 6 \CURX F 7 \CURY F 10Q \OLDERX F 11Q \OLDERY F 12Q LEFTMINUSBRUSH F 13Q RIGHTPLUS1 F 14Q BOTTOMMINUSBRUSH F 15Q TOP F 16Q DESTINATIONBASE F 17Q RASTERWIDTH F 20Q BRUSHWIDTH F 21Q BRUSHHEIGHT F 22Q DASHLST F 23Q NBITS F 24Q BRUSHBASE F 25Q DestinationBitMap F 26Q HEIGHTMINUS1 F 27Q COLORBRUSHBASE F 30Q OPERATION F 31Q LEFT F 32Q NBITSRIGHTPLUS1 F 33Q BRUSHRASTERWIDTH F 34Q TOPMINUSBRUSH) 6hddddddddddGjG@<A#@W kG<AW"kG<=Qj=dj=<=Rj=dj=<=kdkQdWRWklklSGQRG lG{`G G `G QWRWQLRWFWR@GWQRW0W,W ,QRGW2W WWW4W8W*W"WWW(WWW6W.W&G `TUkc jShcTW$cc QcRcVcWc=c =c=o <=o <D bE b F b G bG bG bGkd==DDFFG=EEGGG=<=<= <=<= <=<j==j=j==j==d=d<< dk=Qj=dj=<=Rj=dj=<=kdkQdWRWklklSGQRG lG{`G G `G QWRWQLRWFWR@GWQRW0W,W ,QRGW2W WWW4W8W*W"WWW(WWW6W.W&G `TUkc jShcTW$cc QcRcVcWc=c =c= ki== <== <= < = <= jd=6= = =Qj=dj=<=Rj=dj=<=kdkQdWRWklklSGQRG lG{`G G `G QWRWQLRWFWR@GWQRW0W,W ,QRGW2W WWW4W8W*W"WWW(WWW6W.W&G `TUkc jShcTW$cc QcRcVcWc=c =c=== =dk<ɿdk<GBQj=dj=<CRj=dj=<=kdkQdWRWklklSGQRG lG{`G G `G QWRWQLRWFWR@GWQRW0W,W ,QRGW2W WWW4W8W*W"WWW(WWW6W.W&G `TUkc jShcTW$cc QcRcVcWcBc Cc!BW kGCW"kG=Qj=dj=<=Rj=dj=<=kdkQdWRWklklS{`G G `G QWRWQLRWFWR@GWQRW0W,W ,QRGW2W WWW4W8W*W"WWW(WWW6W.W&G `TUkc jShcTW$cc QcRcVcWc=c =cG BCG GLVdjQWdjR=Qj=dj=<=Rj=dj=<=kdkQdWRWklklSGQRG lG{`G G `G QWRWQLRWFWR@GWQRW0W,W ,QRGW2W WWW4W8W*W"WWW(WWW6W.W&G `TUkc jShcTW$cc QcRcVcWc=c =cVdjQWdjR=Qj=dj=<=Rj=dj=<=kdkQdWRWklklSGQRG lG{`G G `G QWRWQLRWFWR@GWQRW0W,W ,QRGW2W WWW4W8W*W"WWW(WWW6W.W&G `TUkc jShcTW$cc QcRcVcWc=c =ch(4362Q \PUTUPCOLORCURSOR 4352Q \BBTCURVEPT 4276Q \FBITMAPBIT 4224Q \TOTOPWDS 4207Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 3716Q \PUTUPCOLORCURSOR 3706Q \BBTCURVEPT 3632Q \FBITMAPBIT 3560Q \TOTOPWDS 3543Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 3341Q MOVETO 3227Q \PUTUPCOLORCURSOR 3217Q \BBTCURVEPT 3143Q \FBITMAPBIT 3071Q \TOTOPWDS 3054Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2572Q \PUTUPCOLORCURSOR 2562Q \BBTCURVEPT 2506Q \FBITMAPBIT 2434Q \TOTOPWDS 2417Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2101Q \PUTUPCOLORCURSOR 2071Q \BBTCURVEPT 2015Q \FBITMAPBIT 1743Q \TOTOPWDS 1726Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1554Q \GETINTEGERPART 1547Q \GETINTEGERPART 1524Q \CONVERTTOFRACTION 1514Q \CONVERTTOFRACTION 1504Q \CONVERTTOFRACTION 1471Q \CONVERTTOFRACTION 1353Q \PUTUPCOLORCURSOR 1343Q \BBTCURVEPT 1267Q \FBITMAPBIT 1215Q \TOTOPWDS 1200Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 737Q \GETINTEGERPART 722Q \GETINTEGERPART 627Q \CONVERTTOFRACTION 617Q \CONVERTTOFRACTION 607Q \CONVERTTOFRACTION 577Q \CONVERTTOFRACTION 570Q \CONVERTTOFRACTION 561Q \CONVERTTOFRACTION 552Q \CONVERTTOFRACTION 535Q \CONVERTTOFRACTION 425Q \PUTUPCOLORCURSOR 415Q \BBTCURVEPT 341Q \FBITMAPBIT 267Q \TOTOPWDS 252Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (4356Q \COLORCURSORDOWN 4215Q \TOPWDS 4201Q \COLORCURSORBM 3712Q \COLORCURSORDOWN 3551Q \TOPWDS 3535Q \COLORCURSORBM 3223Q \COLORCURSORDOWN 3062Q \TOPWDS 3046Q \COLORCURSORBM 2721Q \DISPLAYDATA 2702Q \DISPLAYDATA 2566Q \COLORCURSORDOWN 2425Q \TOPWDS 2411Q \COLORCURSORBM 2075Q \COLORCURSORDOWN 1734Q \TOPWDS 1720Q \COLORCURSORBM 1347Q \COLORCURSORDOWN 1206Q \TOPWDS 1172Q \COLORCURSORBM 421Q \COLORCURSORDOWN 260Q \TOPWDS 244Q \COLORCURSORBM 72Q \DISPLAYDATA 50Q \DISPLAYDATA) ( 546Q .49 531Q .49) \CURVE2 D1 (P 111Q \INTERRUPTABLE P 110Q D3YFACTOR P 107Q D3XFACTOR P 106Q DDDY/PER/SEG P 105Q DDDX/PER/SEG P 104Q TT P 103Q I P 101Q \INTERRUPTABLE P 100Q PERSEG P 77Q KNOT P 72Q DDDY P 71Q DDY P 70Q DY P 67Q DDDX P 66Q DDX P 65Q DX P 64Q Y1 P 63Q X1 P 62Q Y0 P 61Q X0 P 60Q D3 P 57Q D2 P 56Q D1 P 55Q D3Y P 54Q D2Y P 53Q DY P 52Q D3X P 51Q D2X P 50Q DX P 47Q POINTSPERSEG P 46Q NSEGS P 45Q NPOINTS P 44Q LKNOT P 43Q \OLDERY P 42Q \OLDERX P 41Q \OLDY P 40Q \OLDX P 37Q \CURY P 36Q \CURX P 35Q NBITS P 34Q COLORBRUSHBASE P 33Q COLOR P 32Q HEIGHTMINUS1 P 31Q NBITSRIGHTPLUS1 P 30Q RASTERWIDTH P 27Q TOPMINUSBRUSH P 26Q BOTTOMMINUSBRUSH P 25Q LEFTMINUSBRUSH P 24Q DESTINATIONBASE P 23Q BOTTOM P 22Q TOP P 21Q RIGHTPLUS1 P 20Q LEFT P 17Q BRUSHRASTERWIDTH P 16Q BRUSHBASE P 15Q BRUSHHEIGHT P 14Q BRUSHWIDTH P 13Q OPERATION P 12Q DestinationBitMap P 11Q BRUSHBM P 10Q USERFN P 7 DISPLAYDATA P 6 Y/PRIME/POLY P 5 YPOLY P 4 X/PRIME/POLY P 3 XPOLY P 2 DASHCNT P 1 DASHTAIL P 0 DASHON I 4 DISPLAYSTREAM I 3 BBT I 2 DASHLST I 1 BRUSH I 0 SPLINE) JiBdlg lg lg lg D(AlA&5=O@k(@k(O$_&O%_$O#_"O"_ O_Odgdggg_O_:k[AO:lllO: _OghD g_6g_A AdD g_6AO6O: _8A _O_0O_(OOC bO_O_O_COk_4Ogg_O:dkO O_*6lO O_*O"_2O:lO O_*O"_2O_O&O_,O$O_.D`D @k(OkO@k(OkO @kk@O~O|@O~(_b@O~(_d@O~k(_f@O~k(_h@O~(_P@O~(_V@O~(_l@O~(_r@O~(_n@O~(_tOfOb_vjOvOvjOvOhOd_xjOxOxjOx_zdOzOzl_Jdj&OjddddddddddOOCiOD l@k_LOJ_NOJ_Ll@_NOL_JoOJ_\d_^O\_`On_TO`Ot_ZOLkO\OPOlO^oOnO`o_PO^OlO`On_RO\OVO^OroO`Oto_VO^OrO`Ot_XO)ObOdOfOhOPOVOROXOTOZOJOOChOD A`D D`D ObOdOfOhOPOVOROXOTOZOJOOChdD `oOL_KLOnOlOPOb MNOtOrOVOd OLkjoOnOOtOO`OnoO`OtoHOO,OO_Kl2_fOMl2_hO\OPO^OloO_PO^OlO`On_RO\OVO^OroO_VO^OrO`Ot_XO(ObOdOfOhOPOVOROXOTOZl@OOChOD EI`D D`D ObOdOfOhOPOVOROXOTOZl@OOChdD `Of_bOh_dOlO_lOrO_rOLl2_PONl2_VOk_O~k_~vA`D D`D jddddddddddOOCihD `h(2670Q \PUTUPCOLORCURSOR 2657Q \CURVE 2627Q \TOTOPWDS 2614Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2454Q \PUTUPCOLORCURSOR 2444Q \CURVE 2401Q \TOTOPWDS 2366Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2350Q \CURVE 2032Q LOADPOLY 2013Q LOADPOLY 1756Q \PUTUPCOLORCURSOR 1746Q \CURVE 1703Q \TOTOPWDS 1670Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1651Q \CURVE 1324Q \CURVE 751Q \CURVESTART 676Q \TOTOPWDS 631Q SHOULDNT 426Q \GETBRUSHBBT 367Q \GETBRUSH 352Q \GETCOLORBRUSH 332Q DSPCOLOR 273Q DSPBACKCOLOR 253Q \GETCOLORBRUSH 43Q ARRAY 33Q ARRAY 23Q ARRAY 13Q ARRAY) (2663Q \COLORCURSORDOWN 2621Q \TOPWDS 2607Q \COLORCURSORBM 2543Q ARRAYP 2520Q ARRAYP 2450Q \COLORCURSORDOWN 2373Q \TOPWDS 2361Q \COLORCURSORBM 2156Q ARRAYP 2133Q ARRAYP 1752Q \COLORCURSORDOWN 1675Q \TOPWDS 1663Q \COLORCURSORBM 743Q \DISPLAYDATA 717Q \DISPLAYDATA 670Q \TOPWDS 637Q BITMAP 522Q INVERT 515Q INVERT 477Q BITMAP 462Q BITMAP 450Q BITMAP 436Q BITMAP 411Q BITMAP 377Q BITMAP 355Q BITMAP 337Q BLACK 306Q REPLACE 300Q WHITE 263Q ERASE 222Q BITMAP 212Q REPLACE 205Q ERASE 177Q ERASE 171Q INVERT 47Q STREAM 40Q FLOATP 30Q FLOATP 20Q FLOATP 10Q FLOATP) ( 2252Q .5 2206Q .5 2100Q .1666667 2066Q .1666667 2044Q 0.0 1767Q 1.0 1555Q .1666667 1543Q .5 1501Q .1666667 1467Q .5 1406Q 1.0) \CURVEEND D1 (P 12Q \INTERRUPTABLE P 11Q I P 3 DY P 2 DX P 1 Y P 0 X F 13Q \OLDX F 14Q \OLDY F 15Q \CURX F 16Q \CURY F 17Q DASHON F 20Q DASHTAIL F 21Q DASHCNT F 22Q \OLDERX F 23Q \OLDERY F 24Q LEFTMINUSBRUSH F 25Q RIGHTPLUS1 F 26Q BOTTOMMINUSBRUSH F 27Q TOP F 30Q BBT F 31Q DESTINATIONBASE F 32Q RASTERWIDTH F 33Q BRUSHRASTERWIDTH F 34Q BRUSHBASE F 35Q NBITS F 36Q DestinationBitMap F 37Q COLORBRUSHBASE F 40Q TOPMINUSBRUSH F 41Q OPERATION F 42Q DISPLAYDATA F 43Q HEIGHTMINUS1 F 44Q LEFT F 45Q BRUSHWIDTH F 46Q BRUSHHEIGHT F 47Q NBITSRIGHTPLUS1 F 50Q DASHLST) = WWWWWWd lk__OOHJXIKع_WټjLLjLIWٽjMMjMپkNkWdW$WW&klklW `h `h WW(ZW*WSWW,LW.WEW0W2WWWBWFW4 .WWW0WHWJW(W*WNW@WW:WD `W !W"kc"jWhcW WPc c"Wc$Wc&WcWcOcIcOk_h(356Q \PUTUPCOLORCURSOR 346Q \BBTCURVEPT 270Q \FBITMAPBIT 207Q \TOTOPWDS 176Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (352Q \COLORCURSORDOWN 202Q \TOPWDS 171Q \COLORCURSORBM) () \CURVESLOPE D1 (P 3 PARAMS P 2 DY P 1 DX P 0 #KNOTS I 1 ENDFLG I 0 KNOTS) @ 1HjHdkol@@@@A@Hdll 'Hl@@@h@@@@h [dk(YKk(ZAI J IJ(204Q MINUS 200Q MINUS 150Q PARAMETRICSPLINE 76Q REVERSE 73Q NLEFT 3 LENGTH) NIL ( 23Q (1 . 0)) \CURVESTART D1 (L (1 Y 0 X) F 0 \OLDERX F 1 \OLDX F 2 \CURX F 3 \CURY F 4 \OLDERY F 5 \OLDY) @cdcdcAcdc dcNIL NIL () \FDIFS/FROM/DERIVS D1 (L (4 NSTEPS 3 RAD 2 DDDZ 1 DDZ 0 DZ)) =0oDXddYdHZH@CXIACYJBCZHIoJoIJJhNIL NIL ( 57Q 6.0 51Q 2.0 6 1.0) \FILLCIRCLE.DISPLAY D1 (P 27Q \INTERRUPTABLE P 26Q \INTERRUPTABLE P 25Q \INTERRUPTABLE P 24Q NBITS P 23Q GRAYBASE P 22Q GRAYWIDTH P 21Q GRAYHEIGHT P 20Q TEXTUREBM P 17Q CY P 16Q CX P 15Q RASTERWIDTH P 14Q DESTINATIONBASE P 13Q DestinationBitMap P 12Q OPERATION P 11Q LEFT P 10Q RIGHT P 7 BOTTOM P 6 TOP P 5 FCBBT P 4 D P 3 Y P 2 X P 1 DISPLAYDATA P 0 \BRUSHBBT I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 DISPLAYSTREAM) Cd3jC bC `=`@(jCkClHI%kپI$_I"_I#k_I_I__(D`DO(k!Dd@ d`d<DI6d`d<D3 DI6bll _ _&Dldd=d<O&Dldd=d<O&Dldd=d<O&Dldd=d<O h _ _&O_O_Mj MOnMjMk 0MO dll_$kMO dll_"kÿMk MOdgkglOglj QMOgjk @Mk AI_BI_OOk_ONkOOkپ_@`@ Cj/`@ @`@ MOOOOOOOONO$O"O&O( `wJkؼLjJLJkغLJKl؅LKlؼKjT`@ @`@ MOJOOJOOOOONO$O"O&O( `AB@ hH`@ @`@ MOJOKOJOOOOONO$O"O&O( MOJOKOJOOOOONO$O"O&O( `KkٻjLJkغLdKkJKlر(1617Q \PUTUPCOLORCURSOR 1607Q \LINEBLT 1542Q \LINEBLT 1475Q \TOTOPWDS 1462Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1436Q MOVETO 1426Q \PUTUPCOLORCURSOR 1416Q \LINEBLT 1353Q \TOTOPWDS 1340Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1246Q \PUTUPCOLORCURSOR 1236Q \LINEBLT 1177Q \TOTOPWDS 1164Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1141Q \TOTOPWDS 541Q \ILLEGAL.ARG 332Q BITMAPCREATE 222Q COLORTEXTUREFROMCOLOR# 217Q COLORNUMBERP 214Q DSPCOLOR 22Q \ILLEGAL.ARG 12Q FIXR) (1613Q \COLORCURSORDOWN 1467Q \TOPWDS 1455Q \COLORCURSORBM 1445Q \\BRUSHBBT.GLOBALRESOURCE 1422Q \COLORCURSORDOWN 1345Q \TOPWDS 1333Q \COLORCURSORBM 1242Q \COLORCURSORDOWN 1171Q \TOPWDS 1157Q \COLORCURSORBM 1133Q \TOPWDS 1114Q BITMAP 1101Q BITMAP 1062Q BITMAP 1047Q \DISPLAYDATA 1034Q \DISPLAYDATA 1023Q PILOTBBT 1006Q ERASE 766Q INVERT 754Q PAINT 743Q ERASE 704Q BITMAP 654Q BITMAP 634Q PILOTBBT 613Q PILOTBBT 603Q PILOTBBT 572Q BITMAP 560Q BITMAP 546Q BITMAP 532Q \\BRUSHBBT.GLOBALRESOURCE 337Q BITMAP 257Q BITMAPTYPE# 227Q BITMAPTYPE# 166Q BITMAPTYPE# 154Q BITMAP 145Q \DISPLAYDATA 124Q \DISPLAYDATA 113Q \DISPLAYDATA 102Q \DISPLAYDATA 71Q \DISPLAYDATA 47Q STREAM 37Q PILOTBBTTYPE# 26Q \\BRUSHBBT.GLOBALRESOURCE) () \LINEBLT D1 (I 15Q NBITS I 14Q GRAYBASE I 13Q GRAYHEIGHT I 12Q GRAYWIDTH I 11Q TOP I 10Q BOTTOM I 7 RIGHT I 6 LEFT I 5 RASTERWIDTH I 4 DESTINATIONBASE I 3 XRIGHT I 2 Y I 1 X I 0 BBT) FAFbCGGbACBGGBhDEB@H@HG@BG HICI@H@HGdk%@A@AG @CAkbl*@Ab@AG @CkA5Gl+@Ab@AG @CkA@jvh(357Q SHOULDNT 332Q IMOD 252Q IMOD 177Q IMOD 104Q IMOD) (341Q PILOTBBT 324Q PILOTBBT 307Q PILOTBBT 261Q PILOTBBT 244Q PILOTBBT 230Q PILOTBBT 206Q PILOTBBT 171Q PILOTBBT 161Q PILOTBBT 140Q PILOTBBT 127Q PILOTBBT 66Q PILOTBBT 55Q PILOTBBT) () SCREENBITMAP D1 NIL `NIL (2 ScreenBitMap) () BITMAPP D1 (L (0 X)) @`@NIL (4 BITMAPTYPE#) () BITMAPHEIGHT D1 (L (0 BITMAP)) @NIL (6 BITMAP 3 BITMAP) () BITMAPPROP D1 (I 1 PROP I 0 BITMAP) C@9Adg@ g@ Adg@ gAg@@ (100Q \ILLEGAL.ARG 50Q BITSPERPIXEL 33Q BITMAPHEIGHT 21Q BITMAPWIDTH) (71Q BITMAP 62Q WORDWIDTH 54Q RASTERWIDTH 41Q BITSPERPIXEL 25Q HEIGHT 12Q WIDTH 3 BITMAP) () BITSPERPIXEL D1 (L (0 BITMAP)) @NIL (6 BITMAP 3 BITMAP) () CLR D1 (I 0 DS F 0 TtyDisplayStream) hjd@Pjdhdggj (25Q BKBITBLT) (20Q REPLACE 15Q TEXTURE) () CLOSEDISPLAYSTREAM D1 NIL (2 \STOPDISPLAY) NIL () DSPFILL D1 (P 0 STRM I 3 STREAM I 2 OPERATION I 1 TEXTURE I 0 REGION) +Cg @hH bAH@@@@B (50Q BLTSHADE 20Q DSPCLIPPINGREGION 6 \GETSTREAM) (3 OUTPUT) () INVERTW D1 (I 1 SHADE I 0 WIN) h@ Ang@ @(21Q DSPFILL 4 DSPCLIPPINGREGION) (15Q INVERT) () \DSPCOLOR.DISPLAY D1 (P 1 NOWCOLOR P 0 DD I 1 COLOR I 0 STREAM) N@g (HYA d'` A IHA``@H IA(103Q \SFFixFont 53Q \ILLEGAL.ARG 46Q \POSSIBLECOLOR 6 \GETSTREAM) (76Q WHITECOLOR 67Q BLACKCOLOR 63Q \DISPLAYDATA 42Q WHITECOLOR 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () \DSPBACKCOLOR.DISPLAY D1 (P 1 COLORCELL P 0 DD I 1 COLOR I 0 STREAM) N@g (HYA d'` A IH`A`@H IA(103Q \SFFixFont 53Q \ILLEGAL.ARG 46Q \POSSIBLECOLOR 6 \GETSTREAM) (76Q BLACKCOLOR 66Q WHITECOLOR 63Q \DISPLAYDATA 42Q BLACKCOLOR 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () DSPEOLFN D1 (P 0 DD I 1 DISPLAYSTREAM I 0 EOLFN) @Ag (H2g@ @dlH@dgh2 (74Q \ILLEGAL.ARG 6 \GETSTREAM) (61Q OFF 54Q \DISPLAYDATA 34Q OFF 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () DSPCLEOL D1 (P 0 DD I 3 HEIGHT I 2 YPOS I 1 XPOS I 0 DISPLAYSTREAM) i`@ @g b(hdd@AdHbBd H@HAٹjIIjCdjHgg (146Q BKBITBLT 17Q \GETSTREAM 7 \CARET.DOWN) (142Q REPLACE 137Q TEXTURE 76Q FONTDESCRIPTOR 31Q \DISPLAYDATA 24Q STREAM 14Q OUTPUT 2 \CARET.UP) () DSPRUBOUTCHAR D1 (I 4 TTBL I 3 Y I 2 X I 1 CHAR I 0 STREAM) 7A A@bbBbhbb@g b(@ABCDhi (64Q \DSPMOVELR 36Q \GETSTREAM 3 DISPLAYSTREAMP) (50Q \DISPLAYDATA 43Q STREAM 33Q OUTPUT) () \DSPMOVELR D1 (P 5 HEIGHT P 4 YPRIME P 3 FONT P 2 DEFAULTPOS? P 1 WIDTH P 0 DD I 6 ERASEFLG I 5 RIGHTWARDSFLG I 4 TTBL I 3 Y I 2 X I 1 CHAR I 0 DS) @g b(A AlM@D BhChFJIhj{BdHbCdHbEBIbHBjIbH`@ F4H !CKKJBC@ hjd@BLIMgg B@ i(266Q DSPXPOSITION 260Q BKBITBLT 235Q MOVETO 173Q \CARET.DOWN 63Q SHOULDNT 41Q \STREAMCHARWIDTH 27Q CHARCODEP 6 \GETSTREAM) (254Q REPLACE 251Q TEXTURE 221Q FONTDESCRIPTOR 212Q FONTDESCRIPTOR 166Q \CARET.UP 20Q \DISPLAYDATA 13Q STREAM 3 OUTPUT) () (PRETTYCOMPRINT ADISPLAYCOMS) (RPAQQ ADISPLAYCOMS ((COMS (* Interlisp-D dependent stuff.) (EXPORT (RECORDS REGION BITMAP BITMAPWORD POSITION CURSOR MOUSEEVENT)) (SYSRECORDS PILOTBBT \DISPLAYDATA) (CONSTANTS (BITSPERINTEGER 32)) (FNS \BBTCURVEPT \CHANGEBACKGROUND.DISPLAY \CHANGEBACKGROUNDBORDER.DISPLAY) (FNS CREATETEXTUREFROMBITMAP PRINTBITMAP PRINTCURSOR \WRITEBITMAP) (FNS \GETINTEGERPART \CONVERTTOFRACTION) (CONSTANTS (INTEGERBITS 12))) (COMS * CARETCOMS) (COMS (* cursor functions not on LLDISPLAY) (FNS CURSORP CURSORBITMAP CreateCursorBitMap) (EXPORT (MACROS CURSORBITMAP) (CONSTANTS (CURSORHEIGHT 16) (CURSORWIDTH 16)) ( DECLARE: EVAL@COMPILE (ADDVARS (GLOBALVARS CursorBitMap))))) (COMS (* Region functions) (FNS CREATEREGION REGIONP INTERSECTREGIONS UNIONREGIONS REGIONSINTERSECTP SUBREGIONP EXTENDREGION EXTENDREGIONBOTTOM EXTENDREGIONLEFT EXTENDREGIONRIGHT EXTENDREGIONTOP INSIDEP STRINGREGION)) (COMS (* line and spline drawing.) (COMS (* Brushes and brush initialization) (GLOBALRESOURCES \BRUSHBBT) (FNS \BRUSHBITMAP \GETBRUSH \GETBRUSHBBT \InitCurveBrushes \BrushFromWidth) (FNS \MakeBrush.DIAGONAL \MakeBrush.HORIZONTAL \MakeBrush.VERTICAL \MakeBrush.SQUARE \MakeBrush.ROUND) (FNS INSTALLBRUSH) (VARS \BrushNames) (ADDVARS (\BrushAList)) (RECORDS BRUSHITEM) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( \InitCurveBrushes))) (DECLARE: DONTCOPY (GLOBALVARS \BrushList))) (* Lines) (FNS \DRAWLINE.DISPLAY RELMOVETO MOVETOUPPERLEFT) (FNS \CLIPANDDRAWLINE \CLIPANDDRAWLINE1 \CLIPCODE \LEASTPTAT \GREATESTPTAT \DRAWLINE1 \DRAWLINE.UFN) (DECLARE: DONTCOPY (MACROS .DRAWLINEX. .DRAWLINEY.)) (* Curves) (FNS \DRAWCIRCLE.DISPLAY \DRAWARC.DISPLAY \DRAWARC.GENERIC \COMPUTE.ARC.POINTS \DRAWELLIPSE.DISPLAY \DRAWCURVE.DISPLAY DRAWPOINT \LINEWITHBRUSH) (FNS LOADPOLY PARAMETRICSPLINE \CURVE \CURVE2 \CURVEEND \CURVESLOPE \CURVESTART \FDIFS/FROM/DERIVS) (DECLARE: DONTCOPY (* Used by drawcurve) (EXPORT (RECORDS POLYNOMIAL SPLINE))) (DECLARE: DONTCOPY (EXPORT (MACROS HALF \FILLCIRCLEBLT)) (MACROS \CURVEPT .SETUP.FOR.\BBTCURVEPT. \CIRCLEPTS \CURVESMOOTH)) (FNS \FILLCIRCLE.DISPLAY \LINEBLT)) (COMS (* making and copying bitmaps) (FNS SCREENBITMAP BITMAPP BITMAPHEIGHT BITMAPPROP BITSPERPIXEL CLR) (EXPORT ( FILEPKGCOMS BITMAPS CURSORS)) (DECLARE: EVAL@COMPILE (EXPORT (MACROS SCREENBITMAP BITMAPP) (ADDVARS ( GLOBALVARS SCREENHEIGHT SCREENWIDTH ScreenBitMap))))) (COMS (* Display stream functions that are not needed in the primitive system) (FNS CLOSEDISPLAYSTREAM DSPFILL INVERTW) (FNS \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY DSPEOLFN) (EXPORT (CONSTANTS (BLACKSHADE 65535) (WHITESHADE 0)) (VARS (GRAYSHADE 43605) (BLACKCOLOR 0) (WHITECOLOR 7)) (ADDVARS (GLOBALVARS GRAYSHADE WHITECOLOR BLACKCOLOR))) (MACROS DSPRUBOUTCHAR) (FNS DSPCLEOL DSPRUBOUTCHAR \DSPMOVELR) (COMS (* for cursor) (BITMAPS \DefaultCursor) (DECLARE: DONTEVAL@LOAD DOCOPY (INITVARS (DEFAULTCURSOR (CURSORCREATE \DefaultCursor 0 15)))) ( DECLARE: DONTCOPY (GLOBALVARS DEFAULTCURSOR)))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA UNIONREGIONS INTERSECTREGIONS))))) (RECORD REGION (LEFT BOTTOM WIDTH HEIGHT) LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767 ( ACCESSFNS ((TOP (IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM) -1)) (PTOP ( IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM))) (RIGHT (IPLUS (fetch (REGION LEFT) of DATUM) (fetch (REGION WIDTH) of DATUM) -1)) (PRIGHT (IPLUS (fetch (REGION LEFT) of DATUM) ( fetch (REGION WIDTH) of DATUM))))) (TYPE? (AND (EQLENGTH DATUM 4) (EVERY DATUM (FUNCTION NUMBERP)))) ( SYSTEM)) (DATATYPE BITMAP ((BITMAPBASE POINTER) (BITMAPRASTERWIDTH WORD) (BITMAPHEIGHT WORD) (BITMAPWIDTH WORD) (BITMAPBITSPERPIXEL WORD)) BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD) ( BitMapLoLoc WORD)) (* overlay inital pointer)) (SYSTEM)) (BLOCKRECORD BITMAPWORD ((BITS WORD)) (SYSTEM)) (RECORD POSITION (XCOORD . YCOORD) (TYPE? (AND (LISTP DATUM) (NUMBERP (CAR DATUM)) (NUMBERP (CDR DATUM )))) (SYSTEM)) (RECORD CURSOR (CURSORBITMAP . CURSORHOTSPOT) CURSORHOTSPOT _ (create POSITION) (ACCESSFNS (( CURSORHOTSPOTX (fetch (POSITION XCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM)) (replace (POSITION XCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM) with NEWVALUE)) (CURSORHOTSPOTY (fetch (POSITION YCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM)) (replace (POSITION YCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM) with NEWVALUE)))) (TYPE? (AND (type? BITMAP (fetch (CURSOR CURSORBITMAP) of ( LISTP DATUM))) (type? POSITION (fetch (CURSOR CURSORHOTSPOT) of DATUM)))) (SYSTEM)) (RECORD MOUSEEVENT (MOUSEX MOUSEY MOUSEBUTTONS KEYBOARD MOUSETIME) (SYSTEM)) (/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD)) (QUOTE ((BITMAP 0 POINTER) ( BITMAP 2 (BITS . 15)) (BITMAP 3 (BITS . 15)) (BITMAP 4 (BITS . 15)) (BITMAP 5 (BITS . 15)))) (QUOTE 6) ) (ADDTOVAR SYSTEMRECLST (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) ( PBTDESTBPL SIGNEDWORD) (PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) (PBTHEIGHT WORD) (PBTFLAGS WORD) (NIL 5 WORD))) (DATATYPE \DISPLAYDATA ( DDXPOSITION DDYPOSITION DDXOFFSET DDYOFFSET DDDestination DDClippingRegion DDFONT DDSlowPrintingCase DDWIDTHSCACHE DDOFFSETSCACHE DDCOLOR DDLINEFEED DDRightMargin DDLeftMargin DDScroll DDOPERATION DDSOURCETYPE (DDClippingLeft WORD) (DDClippingRight WORD) (DDClippingBottom WORD) (DDClippingTop WORD) (DDobsoletefield WORD) (DDHELDFLG FLAG) (XWINDOWHINT XPOINTER) (DDPILOTBBT POINTER) DDXSCALE DDYSCALE DDCHARIMAGEWIDTHS DDEOLFN DDPAGEFULLFN DDTexture DDMICAXPOS DDMICAYPOS DDMICARIGHTMARGIN DDCHARSET ( DDCHARSETASCENT WORD) (DDCHARSETDESCENT WORD) DDCHARHEIGHTDELTA (DDSPACEWIDTH WORD)))) (RPAQQ BITSPERINTEGER 32) (CONSTANTS (BITSPERINTEGER 32)) (RPAQQ INTEGERBITS 12) (CONSTANTS (INTEGERBITS 12)) (RPAQQ CARETCOMS ((BITMAPS \DefaultCaret) (INITVARS (\CARET.UP NIL (* global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate))) (\CARET.DEFAULT NIL (* global = default caret to put up. An instance of CARET1 datatype)) (\CARET.TIMER (SETUPTIMER 0) (* time for next caret action)) (DEFAULTCARET (CONS \DefaultCaret (CONS 3 4))) (DEFAULTCARETRATE 333 (* default rate for flashing caret)) (\CARET.ON.RATE DEFAULTCARETRATE) (\CARET.OFF.RATE DEFAULTCARETRATE) (\CARET.FORCED.OFF.RATE 0)) (ADDVARS (\SYSTEMTIMERVARS \CARET.TIMER)) (DECLARE: DONTCOPY (RECORDS CARET1)) (INITRECORDS CARET1) (FNS CARET \CARET.CREATE \CARET.DOWN \CARET.FLASH? \CARET.SHOW CARETRATE \CARET.FLASH.AGAIN \CARET.FLASH.MULTIPLE \CARET.FLASH) (* some declarations are on LLDISPLAY -- macro for \CHECKCARET and globalvar declaration for \CARET.UP) (GLOBALVARS \CARET.DEFAULT \CARET.ON.RATE \CARET.OFF.RATE DEFAULTCARET \CARET.TIMER \CARET.UP \CARET.FORCED.OFF.RATE) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (TTYBACKGROUNDFNS \CARET.FLASH?))) (FNS \AREAVISIBLE? \REGIONOVERLAPAREAP \AREAINREGIONP) (P (CARET T)))) (RPAQ \DefaultCaret (READBITMAP)) (7 6 "A@@@" "CH@@" "CH@@" "FL@@" "FL@@" "LF@@") (RPAQ? \CARET.UP NIL (* global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate))) (RPAQ? \CARET.DEFAULT NIL (* global = default caret to put up. An instance of CARET1 datatype)) (RPAQ? \CARET.TIMER (SETUPTIMER 0) (* time for next caret action)) (RPAQ? DEFAULTCARET (CONS \DefaultCaret (CONS 3 4))) (RPAQ? DEFAULTCARETRATE 333 (* default rate for flashing caret)) (RPAQ? \CARET.ON.RATE DEFAULTCARETRATE) (RPAQ? \CARET.OFF.RATE DEFAULTCARETRATE) (RPAQ? \CARET.FORCED.OFF.RATE 0) (ADDTOVAR \SYSTEMTIMERVARS \CARET.TIMER) (ADDTOVAR TTYBACKGROUNDFNS \CARET.FLASH?) (CARET T) (PUTPROPS CURSORBITMAP MACRO (NIL CursorBitMap)) (RPAQQ CURSORHEIGHT 16) (RPAQQ CURSORWIDTH 16) (CONSTANTS (CURSORHEIGHT 16) (CURSORWIDTH 16)) (ADDTOVAR GLOBALVARS CursorBitMap) (/SETTOPVAL (QUOTE \\BRUSHBBT.GLOBALRESOURCE)) (RPAQQ \BrushNames (ROUND SQUARE DIAGONAL HORIZONTAL VERTICAL)) (ADDTOVAR \BrushAList) (RECORD BRUSHITEM (BRUSHARRAY CREATEMETHOD . BRUSHCACHE)) (\InitCurveBrushes) (PUTDEF (QUOTE BITMAPS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (VARS . X)))))) (PUTDEF (QUOTE CURSORS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (MAPC (QUOTE X) (QUOTE PRINTCURSOR)))))))) (DECLARE: EVAL@COMPILE (PUTPROPS SCREENBITMAP MACRO (NIL ScreenBitMap)) (PUTPROPS BITMAPP MACRO ( OPENLAMBDA (X) (AND (type? BITMAP X) X)))) (ADDTOVAR GLOBALVARS SCREENHEIGHT SCREENWIDTH ScreenBitMap) (RPAQQ BLACKSHADE 65535) (RPAQQ WHITESHADE 0) (CONSTANTS (BLACKSHADE 65535) (WHITESHADE 0)) (RPAQQ GRAYSHADE 43605) (RPAQQ BLACKCOLOR 0) (RPAQQ WHITECOLOR 7) (ADDTOVAR GLOBALVARS GRAYSHADE WHITECOLOR BLACKCOLOR) (PUTPROPS DSPRUBOUTCHAR MACRO ((DS CHAR X Y TTBL) (\DSPMOVELR DS CHAR X Y TTBL NIL T))) (RPAQ \DefaultCursor (READBITMAP)) (16 16 "H@@@" "L@@@" "N@@@" "O@@@" "OH@@" "OL@@" "ON@@" "O@@@" "MH@@" "IH@@" "@L@@" "@L@@" "@F@@" "@F@@" "@C@@" "@C@@") (RPAQ? DEFAULTCURSOR (CURSORCREATE \DefaultCursor 0 15)) (PUTPROPS ADISPLAY COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL