(FILECREATED "11-Mar-85 21:26:40" ("compiled on " {ERIS}LIBRARY>LLCOLOR.;17) "11-Mar-85 16:19:22" recompiled changes: COLORDISPLAY \COLORDISPLAYBITS in "INTERLISP-D 11-Mar-85 ..." dated "11-Mar-85 16:44:03") (FILECREATED "11-Mar-85 21:23:54" {ERIS}LIBRARY>LLCOLOR.;17 88709 changes to: (FNS \COLORDISPLAYBITS COLORDISPLAY) previous date: "11-Mar-85 19:10:45" {ERIS}LIBRARY>LLCOLOR.;16) COLORDISPLAY D1 (P 3 \INTERRUPTABLE P 2 COLORBITS P 1 CBITMAP P 0 DISPLAYDEV I 3 DISPLAY I 2 CLEARSCREENFLG I 1 BITSPERPIXEL I 0 COLORMAPIFON) C `@yA b`AV @AH IAH I@di` bJIIll @JAH BUj `JBj `` H `hIIIl (316Q \UNLOCKPAGES 247Q \STOPCOLOR 235Q COLORSCREENBITMAP 231Q CHANGECURSORSCREEN 216Q COLORBACKGROUND 201Q COLORBACKGROUND 170Q \STARTCOLOR 160Q \LOCKPAGES 122Q COLORMAPOF 74Q COLORSCREENBITMAP 70Q \CreateColorScreenBitMap 60Q COLORDISPLAY 51Q COLORDISPLAY 33Q COLORSCREENBITMAP 20Q \INSUREBITSPERPIXEL 3 \CoerceToDisplayDevice) (304Q BITMAP 276Q BITMAP 270Q BITMAP 263Q \SystemColorMap 256Q LastSystemColorMap 253Q \SystemColorMap 226Q ScreenBitMap 222Q \COLORCURSORBM 206Q \SystemColorMap 143Q BITMAP 135Q BITMAP 117Q LastSystemColorMap 103Q BITMAP 36Q BITMAP 26Q \SystemColorMap 11Q \SystemColorMap) () COLORMAPBITS D1 (I 0 COLORMAP?) @d`l`l@ (27Q \ILLEGAL.ARG) (16Q 8BITCOLORMAPPTYPE# 5 COLORMAPPTYPE#) () \CreateColorScreenBitMap D1 (P 1 HEIGHT P 0 WIDTH I 1 DISPLAY I 0 BITSPP) AHAH2``PAH``@HI `H@`H@l`I`@C`@HI dJH@ldKH@ڼdLdId@AH`h(173Q \COLORDISPLAYBITS 72Q \COLORDISPLAYBITS) (261Q ColorScreenBitMap 254Q FDEV 247Q ColorScreenBitMap 164Q BITMAPTYPE# 154Q BITMAP 151Q ColorScreenBitMap 142Q BITMAP 137Q ColorScreenBitMap 117Q BITMAP 114Q ColorScreenBitMap 103Q BITMAP 100Q ColorScreenBitMap 64Q BITMAP 61Q ColorScreenBitMap 54Q ColorScreenBitMap 47Q FDEV 40Q BITMAPTYPE# 34Q ColorScreenBitMap 16Q FDEV 3 FDEV) () SCREENCOLORMAP D1 (P 0 \INTERRUPTABLE I 1 DISPLAY I 0 NEWCOLORMAP) `@@ b@A @(24Q \SETSCREENCOLORMAP 11Q COLORMAPOF) (31Q \SystemColorMap 2 \SystemColorMap) () MAXIMUMCOLOR D1 (I 0 COLORMAP) @ `dll ll(34Q SHOULDNT 20Q COLORMAPBITS) (5 \COLORDISPLAYBITSPERPIXEL) () COLORSCREENBITMAP D1 NIL `NIL (2 ColorScreenBitMap) () \COLORDISPLAYBITS D1 (P 3 NPAGES P 2 SHEIGHT P 1 SWIDTH P 0 \INTERRUPTABLE I 2 HEIGHT I 1 WIDTH I 0 BITSPP) a@AnBnI@lJllػ`0Kdn oK hdl @`(123Q \ALLOCBLOCK 104Q ERROR 72Q \ALLOCPAGEBLOCK) (136Q \COLORDISPLAYBITS 133Q \COLORDISPLAYBITSPERPIXEL 126Q \COLORDISPLAYBITS 47Q \COLORDISPLAYBITS) ( 100Q "No room for color screen of size") COLORNUMBERBITSPERPIXEL D1 NIL `NIL (2 \COLORDISPLAYBITSPERPIXEL) () \STARTCOLOR D1 (I 3 DISPLAY I 2 BITSPP I 1 PTRTOBITS I 0 COLORMAP) C FC @ABlH(23Q \CoerceToDisplayDevice 3 \CoerceToDisplayDevice) (6 FDEV) () \STOPCOLOR D1 (I 0 DISPLAY) @ F@ kH(24Q \CoerceToDisplayDevice 3 \CoerceToDisplayDevice) (6 FDEV) () \SETSCREENCOLORMAP D1 (I 1 DISPLAY I 0 COLORMAP) A FA @lH(25Q \CoerceToDisplayDevice 3 \CoerceToDisplayDevice) (6 FDEV) () COLORLEVEL D1 (I 4 DISPLAY I 3 NEWLEVEL I 2 PRIMARYCOLOR I 1 COLOR# I 0 COLORMAP) !D FD @ABClH(26Q \CoerceToDisplayDevice 3 \CoerceToDisplayDevice) (6 FDEV) () ROTATECOLORMAP D1 (I 3 DISPLAY I 2 THRUCOLOR I 1 STARTCOLOR I 0 COLORMAP) !C FC @ABlH(27Q \CoerceToDisplayDevice 3 \CoerceToDisplayDevice) (6 FDEV) () COLORMAPCREATE D1 (P 4 COLORS P 3 I P 0 CMAP I 1 BITSPERPIXEL I 0 INTENSITIES F 5 \DEFAULTCOLORINTENSITIES F 6 \DEFAULT8BITCOLORINTENSITIES) A`dl8`@U@ ljIHKJHKL KkԻIYlK`n IdJ@UV @ ljIHKJHKL KkԻIYA (223Q \ILLEGAL.ARG 205Q SETCOLORINTENSITY 154Q \ILLEGAL.ARG 145Q \APPEND2 120Q \ALLOCBLOCK 67Q SETCOLORINTENSITY 36Q \ILLEGAL.ARG) (111Q 8BITCOLORMAPPTYPE# 17Q COLORMAPPTYPE# 5 \COLORDISPLAYBITSPERPIXEL) () COLORMAPOF D1 (I 1 BITSPERPIXEL I 0 NEWCM) )A`b@ A@ @@A @dihA (46Q COLORMAPCREATE 32Q COLORMAPCOPY 21Q COLORMAPBITS 13Q COLORMAPP) (5 \COLORDISPLAYBITSPERPIXEL) () COLORMAPP D1 (L (1 BITSPERPIXEL 0 COLORMAP?)) &AAdl@d`AAl @`@NIL (37Q 8BITCOLORMAPPTYPE# 16Q COLORMAPPTYPE#) () COLORMAPCOPY D1 (I 1 BITSPERPIXEL I 0 COLORMAP) @A @ A (16Q COLORMAPCREATE 12Q INTENSITIESFROMCOLORMAP 4 COLORMAPP) NIL () COLORNUMBERP D1 (P 0 LEVELS I 2 NOERRFLG I 1 BITSPERPIXEL I 0 COLOR#) }@dd"j@@lA` @B@ l@ XBhbo@ @ @ X@ @XBh@ H B@o (172Q ERROR 155Q COLORFROMRGBLEVELS 147Q \ILLEGAL.ARG 133Q RGBP 125Q HLSTORGB 120Q HLSP 113Q ERROR 66Q \LOOKUPCOLORNAME 53Q \ILLEGAL.ARG 36Q EXPT) (33Q \COLORDISPLAYBITSPERPIXEL) ( 167Q "not available in color map" 107Q "Unknown color name") \LOOKUPCOLORNAME D1 (I 0 COLORNAME F 0 COLORNAMES) @P (4 FASSOC) NIL () HLSP D1 (L (0 X)) %@!@mni@@ @@NIL NIL () RGBP D1 (L (0 X)) I@B@X;Hm5nH.@X&Hm nH@XHm nH@NIL NIL () COLORFROMRGBLEVELS D1 (P 2 CM P 1 I I 0 LEVELS) FjIH6JIg @#JIg @JIg @IiIkYh(61Q COLORLEVEL 43Q COLORLEVEL 26Q COLORLEVEL 6 SCREENCOLORMAP 2 MAXIMUMCOLOR) (56Q BLUE 40Q GREEN 23Q RED) () \POSSIBLECOLOR D1 (P 0 MAXIMUMCOLOR I 0 COLOR?) :l@ dgdgj@h@Hh@g @ @ (67Q HLSP 61Q RGBP 10Q TYPENAME) (52Q LISTP 23Q SMALLP 14Q LITATOM) () INTENSITIESFROMCOLORMAP D1 (P 5 PRIM P 1 I I 0 CM) \ @bl@ kjBIH?0od@IM ONh_N&_OK Lh[IkYL&J(55Q COLORLEVEL 20Q EXPT 15Q COLORMAPBITS 4 SCREENCOLORMAP) NIL ( 42Q (RED GREEN BLUE)) SETCOLORINTENSITY D1 (P 0 RGB I 2 INTENSITIES I 1 COLOR# I 0 COLORMAP) RBH oX H H XH X @AgH @AgH @AgH h(116Q COLORLEVEL 101Q COLORLEVEL 65Q COLORLEVEL 52Q \ILLEGAL.ARG 41Q \LOOKUPCOLORNAME 33Q HLSTORGB 26Q HLSP 20Q RGBP) (107Q BLUE 73Q GREEN 60Q RED) ( 12Q (0 0 0)) \GENERICCOLORLEVEL D1 (I 3 NEWLEVEL I 2 PRIMARYCOLOR I 1 COLOR# I 0 COLORMAP) A bl@AlBdgjgkBdgl llCZCdjCClC @AlBdgjgkllABdgngnnlC(120Q \ILLEGAL.ARG 57Q \ILLEGAL.ARG 3 COLORNUMBERP) (203Q GREEN 171Q RED 143Q GREEN 133Q RED 46Q BLUE 35Q GREEN 24Q RED 13Q COLORMAPP) () \GENERICROTATECOLORMAP D1 (I 2 THRUCOLOR I 1 STARTCOLOR I 0 COLORMAP) @ bAj bBl bABdAbb`@Bll@Bll@BllZAllBllkٽLM@Ml@MnMmԽ@AllA[Hn@AllKIn@AllKJn@(33Q COLORNUMBERP 21Q COLORNUMBERP 7 SCREENCOLORMAP 3 COLORMAPP) NIL () \INSUREBITSPERPIXEL D1 (I 0 NBITS) '@ `llg@dll@ (44Q \ILLEGAL.ARG 22Q MACHINETYPE) (25Q DORADO 5 \COLORDISPLAYBITSPERPIXEL) () \FAST8BIT D1 (L (3 MAP 2 N 1 B 0 A)) jd@HкBIhAICJ(BIkYAICJ!(BIkYAICJA(BIkYAICJa(BIkYAICJ(BIkYAICJ(BIkYAICJ(BIkYrAICJ(IkԹHkԸRNIL NIL () \MAP4 D1 (P 5 J P 3 I P 0 MAP I 1 1C I 0 0C) w@,jbAlblgjd ljKJHl l HKljdML,NKkM YjIAMl ԾMk] @N*Kk[(146Q \FZEROP 133Q LLSH 110Q LLSH 61Q COLORNUMBERP 52Q COLORNUMBERP 26Q ARRAY) (21Q SMALLPOSP) () \MAP8 D1 (P 4 I P 0 MAP I 1 1C I 0 0C) m@+jbAlblgjd AljLKHl l HLdkYj.I$ALlZjJ A*Lk\ @ @(146Q \FZEROP 136Q \FZEROP 60Q COLORNUMBERP 51Q COLORNUMBERP 26Q ARRAY) (21Q SMALLPOSP) () \GETCOLORBRUSH D1 (I 2 NBITS I 1 COLOR I 0 BRUSH) /@d`dB@@@@g@k jAB (54Q COLORIZEBITMAP 46Q \BRUSHBITMAP) (37Q ROUND 14Q BITMAP 5 BITMAPTYPE#) () \DDSETCOLORFONT D1 (P 1 FONT P 0 DD I 0 DISPLAYSTREAM) k@g (H h@ h@ H YHI H*InHI H h(147Q \SFFixY 57Q \GETCOLORFONT 41Q DSPBACKCOLOR 34Q DSPCOLOR 6 \GETSTREAM) (137Q ARRAYP 132Q FONTDESCRIPTOR 126Q \DISPLAYDATA 106Q BITMAP 101Q FONTDESCRIPTOR 75Q PILOTBBT 64Q \DISPLAYDATA 52Q BITMAP 45Q \DISPLAYDATA 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () \GETCOLORFONT D1 (I 3 NBITS I 2 BACKCOLOR I 1 FORECOLOR I 0 BWFONT) W@ABC N`@ @@@@@ B A C HdI@ABC (124Q \COLORFONTSTORE 102Q COLORIZEBITMAP 76Q COLORNUMBERP 72Q COLORNUMBERP 61Q FONTCREATE 17Q NCREATE2 6 \COLORFONTLOOKUP) (64Q FONTDESCRIPTOR 53Q FONTDESCRIPTOR 45Q FONTDESCRIPTOR 37Q FONTDESCRIPTOR 31Q FONTDESCRIPTOR 23Q FONTDESCRIPTOR 13Q FONTDESCRIPTORTYPE#) () \COLORFONTLOOKUP D1 (I 3 NBITS I 2 BACKCOLOR I 1 FORECOLOR I 0 BWFONT) CBA@`    (25Q FASSOC 21Q FASSOC 15Q FASSOC 11Q FASSOC) (6 \COLORFONTCACHE) () \COLORFONTSTORE D1 (P 1 Y P 0 X I 4 NBITS I 3 BACKCOLOR I 2 FORECOLOR I 1 BWFONT I 0 COLORIZEDFONT) u A` XABCD@hhh`OBH YHBCD@hhh 3CI XICD@hh DH Y HD@h @I@@(151Q \NCONC2 135Q FASSOC 125Q \NCONC2 106Q FASSOC 76Q \NCONC2 52Q FASSOC 11Q FASSOC) (42Q \COLORFONTCACHE 36Q \COLORFONTCACHE 6 \COLORFONTCACHE) () CHANGECURSORSCREEN D1 (P 0 \INTERRUPTABLE I 0 NEWSCREEN F 2 \MOUSEHOTSPOTX F 3 \MOUSEHOTSPOTY) ``@d`8`1 h`hhYdRIS `` ?``dnn`nHn'IIn' `  @@ (222Q \ILLEGAL.ARG 211Q \SETCOLORCURSORBM 205Q CURSOR 176Q \SETCURSORPOSITION 121Q COLORDISPLAYP 113Q COLORSCREENBITMAP 106Q \SETCURSORPOSITION 74Q SETCURSOR 36Q \TAKEDOWNCOLORCURSOR 6 COLORSCREENBITMAP) (202Q \EMPTYCURSOR 150Q LASTMOUSEY 133Q LASTMOUSEX 126Q \COLORCURSORBM 103Q LASTMOUSEY 100Q LASTMOUSEX 52Q \COLORCURSOR 46Q \COLORCURSORDOWN 43Q \COLORCURSORBM 26Q \COLORCURSORBM 17Q ScreenBitMap 12Q ScreenBitMap 2 \COLORCURSORBM) () \SETCOLORCURSORBM D1 (P 4 \INTERRUPTABLE P 2 CURSORCOLORBM P 1 NBITS P 0 COLORSBM I 0 CURSORBM) 1HY@j` I Z``1`j `j 0`k `l Q`j @`Hn`Jn`g[KH``HJJJ@iJh(344Q \PUTUPCOLORCURSOR 30Q COLORIZEBITMAP 24Q MAXIMUMCOLOR 2 COLORSCREENBITMAP) (340Q \COLORCURSORBM 333Q \COLORCURSORDOWN 326Q \COLORCURSOR 321Q \COLORCURSORHEIGHT 314Q BITMAP 307Q \COLORCURSORWIDTH 302Q BITMAP 275Q \COLORCURSORBASE 270Q BITMAP 263Q \COLORSCREENWIDTHINBITS 256Q BITMAP 245Q \COLORSCREENRASTERWIDTH 242Q \COLORSCREENCURSORLINE 235Q \EM.CURSORY 230Q BITMAP 217Q \COLORSCREENCURSORLINEBASE 214Q \VALSPACE 176Q \COLORCURSORRASTERWIDTH 171Q BITMAP 165Q PILOTBBT 162Q \ColorCursorBBT 144Q \COLORSCREENRASTERWIDTH 137Q BITMAP 133Q PILOTBBT 130Q \ColorCursorBBT 115Q \ColorCursorBBT 104Q \ColorCursorBBT 74Q \ColorCursorBBT 64Q \ColorCursorBBT 55Q PILOTBBT 52Q \ColorCursorBBT 46Q PILOTBBTTYPE# 40Q PILOTBBTTYPE# 34Q \ColorCursorBBT 21Q \SystemColorMap 11Q BITMAP) () \TAKEDOWNCOLORCURSOR D1 NIL ``i`jvhNIL (17Q \ColorCursorBBT 14Q \COLORCURSORDOWN 7 \COLORCURSORDOWN 2 \COLORCURSORBM) () \IFCOLORDS\TAKEDOWNCOLORCURSOR D1 (I 0 DS) @g ((34Q \TAKEDOWNCOLORCURSOR 26Q COLORSCREENBITMAP 6 \GETSTREAM) (21Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () \PUTUPCOLORCURSOR D1 NIL *`d`j`` hHII(31Q \SHOWCOLORCURSOR) (36Q \COLORCURSORDOWN 24Q \EM.CURSORY 17Q \EM.CURSORX 10Q \EM.DISPINTERRUPT 2 \EM.DISPINTERRUPT) () \COLORCURSORDOWN D1 (I 0 DS) &`h@g ((43Q \TAKEDOWNCOLORCURSOR 35Q COLORSCREENBITMAP 15Q \GETSTREAM) (30Q \DISPLAYDATA 25Q \DISPLAYDATA 20Q STREAM 12Q OUTPUT 2 \COLORCURSORDOWN) () \DRAWCOLORLINE1 D1 (L (14Q COLOR 13Q NBITS 12Q RASTERWIDTH 11Q BITMAPBASE 10Q MODE 7 YINC 6 CDL 5 DY 4 DX 3 YLIMIT 2 XLIMIT 1 Y0 0 X0)) 4 Gl@ABCDEFGGGGG @ABCDEFGGGGG (61Q \DRAW8BPPCOLORLINE 33Q \DRAW4BPPCOLORLINE) NIL () \DRAW4BPPCOLORLINE D1 (L (13Q COLOR 12Q RASTERWIDTH 11Q BITMAPBASE 10Q MODE 7 YINC 6 CDL 5 DY 4 DX 3 YLIMIT 2 XLIMIT 1 Y0 0 X0))  GaAG@\GLY`@l]MNZGl@l [jbdbEDGgdBIKIDFEb AkbC~FDb GLG\йJZjJK@kb GLk\йHnIKJnIDFEb AkbCFDb GLG\йJZj JK@kb@B񲰱 GLk\йHnGgACIKIEFDb <@kbBFEb JZjJ K⻰ GLkؼHnGLG\йAkbIKJnIEFDb :@kbBEFEb JZjJ K⻰ GLkؼHnGLG\йAkbACh(723Q \FZEROP 563Q \FZEROP 423Q \FZEROP 251Q \FZEROP 77Q LLSH) (452Q INVERT 122Q INVERT 51Q ARRAYP 43Q ARRAYP 32Q 4BITMASKARRAY) () \DRAW8BPPCOLORLINE D1 (L (13Q COLOR 12Q RASTERWIDTH 11Q BITMAPBASE 10Q MODE 7 YINC 6 CDL 5 DY 4 DX 3 YLIMIT 2 XLIMIT 1 Y0 0 X0))  0AG@ZGJX@kYjbdbEDGgIk:HjGHjǿDFEb AkbCFDb GJGZи@kbBHkGHkǿDFEb AkbCFDb GJGغ@kbByGJkZXIk6HjGǿDFEb AkbCPFDb GJGZи@kbB6HkGǿDFEb AkbCFDb GJGغ@kbBGJkZXGgIk:HjGHjǿAkbCGJGZиEFDb @kbBFEb HkGHkǿAkbCGJGZиEFDb @kbBFEb GJkZXIk2HjGǿAkbC[GJGZиEFDb @kbB@FEb HkGǿAkbC+GJGZиEFDb @kbBFEb GJkZаhNIL (443Q INVERT 45Q INVERT) () \BWTOCOLORBLT D1 (P 17Q LINECOUNTER P 15Q SCR P 14Q DESALIGNLEFT P 13Q NBITS P 12Q DESOFF P 11Q DESWRD P 10Q DESRW P 7 DESHEIGHT P 6 DESBASE P 5 SRCOFFSET P 4 SRCWRD P 3 SRCRW P 2 SRCHEIGHT P 1 SRCBASE P 0 MAP I 12Q DESTNBITS I 11Q 1COLOR I 10Q 0COLOR I 7 HEIGHT I 6 WIDTH I 5 DBOTTOM I 4 DLEFT I 3 DESTCOLORBM I 2 SBOTTOM I 1 SLEFT I 0 SOURCEBWBM) z GdlGG @@@AAlCCCDDll, Oj)lGl _CO_EOjdOGgg GkOO1IJOBKLMNOOEOOFHGG Ok_O2COECOOEFGgg OjdCOEOGgg hlGG @@@AAlCCCDDk GkOOIJOBKLMNOOEOOOFHGG Ok_(567Q SHOULDNT 553Q \8BITLINEBLT 374Q \MAP8 354Q BKBITBLT 325Q BKBITBLT 257Q \4BITLINEBLT 173Q BKBITBLT 136Q BITMAPCREATE 21Q \MAP4) (454Q BITMAP 446Q BITMAP 440Q BITMAP 421Q BITMAP 413Q BITMAP 405Q BITMAP 377Q ARRAYP 350Q REPLACE 345Q INPUT 321Q REPLACE 316Q INPUT 167Q REPLACE 164Q INPUT 101Q BITMAP 73Q BITMAP 65Q BITMAP 46Q BITMAP 40Q BITMAP 32Q BITMAP 24Q ARRAYP) () \8BITLINEBLT D1 (I 7 1COLOR I 6 0COLOR I 5 MAPBASE I 4 WIDTH I 3 DBITOFFSET I 2 DBASE I 1 SBITOFFSET I 0 SBASE) Ck`Bk@`AlHHIHj HH FGǿAkbljb@kbjbBkbDkbAkHj HH Ddl~AjwBE@BE@!BE@ABE@aBE@BE@BE@BE@Blb@kbDlbDjhDk>Bj@`AlHHIHj HH FGhBj@`AlHHIHj HH FGǿBk@`AklHHIHj HH FGǿBkbDlbAdl@kbjblbGǿBl@kbHj HH FGǿBlbDlb$Dj Dk>Bj@`AlHHIHj HH FAlHBj@Hj HH FGǿBkb@kbHj HH FGDZBj@`AlHHIHj HH FGǿBk@`AklHHIHj HH FGǿAlbDlbBkbDdlۿAkBE@BE@1BE@QBE@qBE@BE@BE@Bl@Hj HH )F'(1673Q \FZEROP 1442Q \FZEROP 1345Q \FZEROP 1250Q \FZEROP 1203Q \FZEROP 1135Q \FZEROP 1006Q \FZEROP 664Q \FZEROP 567Q \FZEROP 473Q \FZEROP 166Q \FZEROP 67Q \FZEROP) (1410Q ARRAYP 1402Q ARRAYP 1365Q BITMASKARRAY 1313Q ARRAYP 1305Q ARRAYP 1272Q BITMASKARRAY 1103Q ARRAYP 1075Q ARRAYP 1062Q BITMASKARRAY 632Q ARRAYP 624Q ARRAYP 607Q BITMASKARRAY 535Q ARRAYP 527Q ARRAYP 514Q BITMASKARRAY 441Q ARRAYP 433Q ARRAYP 420Q BITMASKARRAY 35Q ARRAYP 27Q ARRAYP 14Q BITMASKARRAY) () \4BITLINEBLT D1 (P 0 SWORDCONTENTS I 6 1COLOR I 5 0COLOR I 4 MAPBASE I 3 WIDTH I 2 DBASE I 1 SBITOFFSET I 0 SBASE) YAldjFAjCdllC@0Cdjbdk@BjBjlH`AlYIJ[jK F% ElpBjH`Al\LM^jKNAFH`Akl__OO_jOF E EBjH`Al__OO_jOFH`Akl__OO_jYONFǿBkH`All_"_ O O"_$jO$FBlh E E uErBDAdj@l@CAl@@BkbClbAlbdljb@kb lBD@BD@CBD@BD@Blb@kbClbdkKAkCdllC@0Cdj_dk=BjH`AlYIJ[jK FBj±" ElpBjH`Al\LM^jKNAFH`Akl__OO_jOF E EBjH`Al__OO_jOFH`Akl__OO_jYONFǿBkH`All_"_ O O"_$jO$FBlh E E uErBDAdk@$l@SAl @@@kbBkbClbAlbdlkb lBD@BD@SBD@BD@@kbBlbClblVAlCdllC@0Cdjudk=BjH`AlYIJ[jK FBj±8 ElpBjH`Al\LM^jKNAFH`Akl__OO_jOF E EBjH`Al__OO_jZOOFH`Akl__OO_jOFǿBkAl@5 E EH`All_"_ O O"_$jO$FBlh EBDAdl@#%l@cAl @@@kbBkbClbAlbdl lblBD@#BD@cBD@BD@@kbBlbClblC@0Cdjdk=BjH`AlYIJ[jK FBj±O El|BjH`Al\LM^jNFAl@- EH`All__OO_jOF EBjH`Al__OO_jOFAl@- EH`All__OO_jOFǿBkAl@- EH`All_"_ O O"_$jO$FBlh EBDAdl@3&l@sAl @@@kbBkbClbAlbdllbAlClClBD@3BD@sBD@BD@@kbBlbClb(4232Q \FZEROP 4124Q \FZEROP 4014Q \FZEROP 3705Q \FZEROP 3613Q \FZEROP 3507Q \FZEROP 3102Q \FZEROP 2774Q \FZEROP 2764Q \FZEROP 2571Q \FZEROP 2560Q \FZEROP 2406Q \FZEROP 1754Q \FZEROP 1744Q \FZEROP 1734Q \FZEROP 1451Q \FZEROP 1440Q \FZEROP 1266Q \FZEROP 645Q \FZEROP 635Q \FZEROP 625Q \FZEROP 342Q \FZEROP 331Q \FZEROP 157Q \FZEROP) (4163Q ARRAYP 4154Q ARRAYP 4135Q BITMASKARRAY 4053Q ARRAYP 4044Q ARRAYP 4025Q BITMASKARRAY 3744Q ARRAYP 3735Q ARRAYP 3721Q BITMASKARRAY 3652Q ARRAYP 3643Q ARRAYP 3624Q BITMASKARRAY 3546Q ARRAYP 3540Q ARRAYP 3527Q BITMASKARRAY 3447Q ARRAYP 3441Q ARRAYP 3430Q BITMASKARRAY 3033Q ARRAYP 3024Q ARRAYP 3005Q BITMASKARRAY 2712Q ARRAYP 2703Q ARRAYP 2665Q BITMASKARRAY 2627Q ARRAYP 2620Q ARRAYP 2604Q BITMASKARRAY 2525Q ARRAYP 2516Q ARRAYP 2500Q BITMASKARRAY 2445Q ARRAYP 2437Q ARRAYP 2426Q BITMASKARRAY 2346Q ARRAYP 2340Q ARRAYP 2327Q BITMASKARRAY 1665Q ARRAYP 1656Q ARRAYP 1637Q BITMASKARRAY 1600Q ARRAYP 1571Q ARRAYP 1553Q BITMASKARRAY 1507Q ARRAYP 1500Q ARRAYP 1464Q BITMASKARRAY 1405Q ARRAYP 1376Q ARRAYP 1360Q BITMASKARRAY 1325Q ARRAYP 1317Q ARRAYP 1306Q BITMASKARRAY 1226Q ARRAYP 1220Q ARRAYP 1207Q BITMASKARRAY 556Q ARRAYP 547Q ARRAYP 530Q BITMASKARRAY 471Q ARRAYP 462Q ARRAYP 444Q BITMASKARRAY 400Q ARRAYP 371Q ARRAYP 355Q BITMASKARRAY 276Q ARRAYP 267Q ARRAYP 251Q BITMASKARRAY 216Q ARRAYP 210Q ARRAYP 177Q BITMASKARRAY 122Q ARRAYP 114Q ARRAYP 103Q BITMASKARRAY) () COLORFILL D1 (P 0 COLORBM I 3 OPERATION I 2 COLORBM I 1 COLOR# I 0 REGION) 3Bd` @jdhd@@@AHC h(57Q COLORFILLAREA 20Q \ILLEGAL.ARG 14Q COLORSCREENBITMAP) (5 BITMAPTYPE#) () COLORBACKGROUND D1 (I 0 C) `@ghg (17Q COLORFILL) (14Q REPLACE 10Q BLACK 2 WHOLECOLORDISPLAY) () COLORFILLAREA D1 (I 6 OPERATION I 5 COLORBM I 4 COLOR# I 3 HEIGHT I 2 WIDTH I 1 BOTTOM I 0 LEFT) -E$b E hddE@ABCgFgD `(43Q BKBITBLT 14Q \ILLEGAL.ARG 5 COLORSCREENBITMAP) (50Q BITMAPTYPE# 36Q REPLACE 30Q TEXTURE) () COLORTEXTUREFROMCOLOR# D1 (P 3 I P 1 BITPATTERN P 0 TEXTUREBITMAP I 1 NBITS I 0 COLOR#) f@`@A`b@A bAdld@@@l(ll @@"ljKJHKI Kk[Ho (143Q ERROR 123Q \BITMAPWORD 75Q BITMAPCREATE 25Q COLORNUMBERP) (15Q \COLORDISPLAYBITSPERPIXEL 4 BITMAPTYPE#) ( 140Q "Only 4 and 8 bits per pixel implemented.") \BITMAPWORD D1 (L (2 NEWBITS 1 WORDN 0 BM)) @ABnHIINIL (3 BITMAP) () COLORIZEBITMAP D1 (P 1 CBMPTR P 0 CM I 3 NBITS I 2 1COLOR I 1 0COLOR I 0 BITMAP) :@@C b @jdHjd@@A B C H(66Q \BWTOCOLORBLT 61Q COLORNUMBERP 55Q COLORNUMBERP 24Q BITMAPCREATE 17Q \INSUREBITSPERPIXEL) (47Q BITMAP 41Q BITMAP 11Q BITMAP 3 BITMAP) () (PRETTYCOMPRINT LLCOLORCOMS) (RPAQQ LLCOLORCOMS ((FNS COLORDISPLAY COLORMAPBITS \CreateColorScreenBitMap SCREENCOLORMAP MAXIMUMCOLOR COLORSCREENBITMAP \COLORDISPLAYBITS COLORNUMBERBITSPERPIXEL) (FNS \STARTCOLOR \STOPCOLOR \SETSCREENCOLORMAP COLORLEVEL ROTATECOLORMAP) (FNS COLORMAPCREATE COLORMAPOF COLORMAPP COLORMAPCOPY COLORNUMBERP \LOOKUPCOLORNAME HLSP RGBP COLORFROMRGBLEVELS \POSSIBLECOLOR INTENSITIESFROMCOLORMAP SETCOLORINTENSITY) (FNS \GENERICCOLORLEVEL \GENERICROTATECOLORMAP) (FNS \INSUREBITSPERPIXEL \FAST8BIT \MAP4 \MAP8) (FNS \GETCOLORBRUSH \DDSETCOLORFONT \GETCOLORFONT \COLORFONTLOOKUP \COLORFONTSTORE) (FNS CHANGECURSORSCREEN \SETCOLORCURSORBM \TAKEDOWNCOLORCURSOR \IFCOLORDS\TAKEDOWNCOLORCURSOR \PUTUPCOLORCURSOR \COLORCURSORDOWN) (GLOBALVARS \COLORCURSOR \COLORSCREENBITMAPBASE \COLORCURSORWIDTH \CURSORSAV \COLORCURSORDOWN \EMPTYCURSOR \ColorCursorBBT \COLORSCREENRASTERWIDTH \COLORCURSORRASTERWIDTH \COLORSCREENWIDTHINBITS \COLORCURSORBASE \COLORCURSORWIDTH \COLORCURSORHEIGHT \COLORFONTCACHE) (INITVARS (\COLORCURSOR) (\CURSORSAV) (\COLORFONTCACHE)) (CURSORS \EMPTYCURSOR \DEFAULTCOLORCURSOR) (FNS \DRAWCOLORLINE1 \DRAW4BPPCOLORLINE \DRAW8BPPCOLORLINE) (DECLARE: DONTCOPY DOEVAL@COMPILE (MACROS .DRAW4BPPLINEX. .DRAW8BPPLINEX .DRAW8BPPLINEY .DRAW4BPPLINEY.)) (DECLARE: DONTCOPY DOEVAL@COMPILE (MACROS \BITADDRESSOFPIXEL COLORNUMBERBITSPERPIXEL)) (FNS \BWTOCOLORBLT \8BITLINEBLT \4BITLINEBLT COLORFILL COLORBACKGROUND COLORFILLAREA COLORTEXTUREFROMCOLOR# \BITMAPWORD) (FNS COLORIZEBITMAP) (RECORDS COLORMAPP 8BITCOLORMAPP RGB HLS) (DECLARE: DONTCOPY (RECORDS NIBBLES ONEOFFSETBITACCESS TWOOFFSETBITACCESS THREEOFFSETBTACCESS 2BITNIBBLES ODD2BITNIBBLES) (CONSTANTS ( \ColorScreenAddr 268) (\ColorMapAddr 270) (REDMASK 2048) (GREENMASK 1024) (BLUEMASK 512) ( COLORSOFFSETINMAP 2) (INTENSITYSIZE 3) (REDOFFSET 0) (GREENOFFSET 1) (BLUEOFFSET 2) (\MaxBitsPerPixel 4) (\MaxBitMapWidth 65535) (\MaxBitMapHeight 65535) (\MaxBitMapWords 131066))) (* this should be in each device init) (VARS (COLORSCREENWIDTH 640) (COLORSCREENHEIGHT 480)) (CONSTANTS (MaxBitsPerPixel 8) (PagesPerSegment 256) (BITSPERWORD 16) (ExtraColorDisplayPages 2)) (INITVARS (\SystemColorMap) ( \COLORDISPLAYBITS) (ColorScreenBitMap) (LastSystemColorMap) (\DefaultColorMap) ( \COLORDISPLAYBITSPERPIXEL 4)) (VARS \DEFAULTCOLORINTENSITIES COLORNAMES (\DEFAULT8BITCOLORINTENSITIES (for RED from 83 to 255 by 43 join (for GREEN from 80 to 255 by 35 join (for BLUE from 80 to 255 by 25 collect (LIST RED GREEN BLUE))))) (WHOLECOLORDISPLAY (create REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ COLORSCREENWIDTH HEIGHT _ COLORSCREENHEIGHT))) (GLOBALVARS \COLORDISPLAYBITS \COLORDISPLAYBITSPERPIXEL ColorScreenBitMap \SystemColorMap LastSystemColorMap WHOLECOLORDISPLAY \COLORCURSOR) (RECORDS BRUSH)) ) (RPAQ? \COLORCURSOR) (RPAQ? \CURSORSAV) (RPAQ? \COLORFONTCACHE) (RPAQ \EMPTYCURSOR (CURSORCREATE (READBITMAP) 0 15)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") (RPAQ \DEFAULTCOLORCURSOR (CURSORCREATE (READBITMAP) 0 15)) (16 16 "OOH@" "OO@@" "ON@@" "ON@@" "OO@@" "OOH@" "OOL@" "OON@" "LOO@" "HGOH" "@COL" "@AON" "@@OO" "@@GN" "@@CL" "@@AH") (DATATYPE COLORMAPP ((UNUSED1 2 WORD) (COLORINTENSITIES 48 WORD) (UNUSED2 14 WORD))) (DATATYPE 8BITCOLORMAPP (COLORINTENSITIES) COLORINTENSITIES _ (\ALLOCBLOCK 384)) (RECORD RGB (RED GREEN BLUE)) (RECORD HLS (HUE LIGHTNESS SATURATION)) (/DECLAREDATATYPE (QUOTE COLORMAPP) (QUOTE (WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE 8BITCOLORMAPP) (QUOTE (POINTER))) (RPAQQ COLORSCREENWIDTH 640) (RPAQQ COLORSCREENHEIGHT 480) (RPAQQ MaxBitsPerPixel 8) (RPAQQ PagesPerSegment 256) (RPAQQ BITSPERWORD 16) (RPAQQ ExtraColorDisplayPages 2) (CONSTANTS (MaxBitsPerPixel 8) (PagesPerSegment 256) (BITSPERWORD 16) (ExtraColorDisplayPages 2)) (RPAQ? \SystemColorMap) (RPAQ? \COLORDISPLAYBITS) (RPAQ? ColorScreenBitMap) (RPAQ? LastSystemColorMap) (RPAQ? \DefaultColorMap) (RPAQ? \COLORDISPLAYBITSPERPIXEL 4) (RPAQQ \DEFAULTCOLORINTENSITIES ((0 0 0) (0 0 255) (0 255 0) (255 0 0) (255 255 0) (255 0 255) (0 255 255) (255 255 255) (128 128 128) (171 171 255) (252 128 0) (212 182 129) (0 255 132) (255 0 133) (0 201 39) (167 1 152))) (RPAQQ COLORNAMES ((BLACK 0 0 0) (BLUE 0 0 255) (GREEN 0 255 0) (RED 255 0 0) (YELLOW 255 255 0) ( MAGENTA 255 0 255) (CYAN 0 255 255) (WHITE 255 255 255))) (RPAQ \DEFAULT8BITCOLORINTENSITIES (for RED from 83 to 255 by 43 join (for GREEN from 80 to 255 by 35 join (for BLUE from 80 to 255 by 25 collect (LIST RED GREEN BLUE))))) (RPAQ WHOLECOLORDISPLAY (create REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ COLORSCREENWIDTH HEIGHT _ COLORSCREENHEIGHT)) (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR)) (PUTPROPS LLCOLOR COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL