(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "16-Jan-87 17:40:35" ("compiled on " {ERIS}LISPCORE>LLCOLOR.;3) "15-Jan-87 11:55:17" recompiled ALL in "Xerox Lisp 15-Jan-87 ..." dated "15-Jan-87 12:27:48") (FILECREATED "16-Jan-87 17:37:34" {ERIS}LISPCORE>LLCOLOR.;3 132573 changes to%: (FNS \CreateColorScreenBitMap COLORMAPCREATE) previous date%: " 5-Jun-86 23:33:11" {ERIS}LISPCORE>LLCOLOR.;2) COLORDISPLAY :D4 (P 3 DISPLAYINFO P 2 DISPLAYSTATE P 1 OLDTYPE P 0 OLDONOFF I 1 TYPE I 0 ONOFF F 4 \COLORSCREEN F 5 \MAINSCREEN F 6 BACKGROUNDCURSOREXITFN F 7 \CURSORSCREEN) @`#@dguHg1g gA )`dJKAIbA / TAI cgT l gc > g2Hdg+hc WUUdlUl ` H(184 \STOPCOLOR 177 CURSORSCREEN 127 \STARTCOLOR 115 SHOWCOLORTESTPATTERN 109 WINDOWWORLD 99 CREATESCREEN 96 COLORSCREENBITMAP 85 SCREENCOLORMAP 82 SCREENCOLORMAP 74 \CREATECOLORDISPLAYFDEV 37 COLORDISPLAY 29 COLORDISPLAY) (181 \COLORDISPLAYFDEV 169 SCREEN 160 SCREEN 141 OFF 133 OFF 119 CURSOREXIT 105 ON 77 \COLORDISPLAYFDEV 52 FDEV 49 \COLORDISPLAYFDEV 43 FDEV 33 ON 26 OFF 20 ON 12 ON 5 \COLORDISPLAYFDEV) () COLORMAPBITS :D4 (I 0 COLORMAP) @ k (8 INTEGERLENGTH 3 ARRAYSIZE) NIL () \CreateColorScreenBitMap :D4 (P 3 BITSPERPIXEL P 2 HEIGHT P 1 WIDTH P 0 DISPLAYINFO I 0 FDEV) L`@dXdYHZH[l IJK dLIKldMdIdJdK(33 \COLORDISPLAYBITS) (73 ColorScreenBitMap 6 FDEV) () \CREATECOLORDISPLAYFDEV :D4 (P 1 WSOPS P 0 DISPLAYINFO I 0 TYPE F 2 \DISPLAYINFOALIST) F @RXdYH2` g Hd`I`Ib` `(64 \CreateColorScreenBitMap 27 \CREATEDISPLAY) (67 \COLORDISPLAYFDEV 61 \COLORDISPLAYFDEV 55 FDEV 52 \COLORDISPLAYFDEV 42 FDEV 39 \COLORDISPLAYFDEV 33 FDEV 30 \COLORDISPLAYFDEV 24 COLORDISPLAY 19 \COLORDISPLAYFDEV) () COLORMAP :D4 (P 2 I P 0 OLDCOLORMAP I 1 NEWCOLORMAP I 0 BITSPERPIXEL) s@dl`l`XA@dlAlA`Hg @A kjJI`JAJ JkZ(103 \SENDCOLORMAPENTRY 100 ELT 80 ARRAYSIZE 72 BITSPERPIXEL 69 COLORSCREENBITMAP) (94 \COLORDISPLAYFDEV 63 ON 57 FDEV 50 \COLORDISPLAYFDEV 46 \8COLORMAP 36 \4COLORMAP 21 \8COLORMAP 12 \4COLORMAP) () SCREENCOLORMAP :D4 (I 0 NEWCOLORMAP)  @ (9 COLORMAP 5 BITSPERPIXEL 2 COLORSCREENBITMAP) NIL () SCREENCOLORMAPENTRY :D4 (I 1 RGB I 0 COLOR) @A `@A (15 \SENDCOLORMAPENTRY 7 SETA 2 SCREENCOLORMAP) (10 \COLORDISPLAYFDEV) () ROTATECOLORMAP :D4 (P 3 COLOR P 1 RGB P 0 COLORMAP I 1 THRUCOLOR I 0 STARTCOLOR) K X@jbAH kbHA YA@KJ"HK HKI `KHK Kk[h(64 \SENDCOLORMAPENTRY 61 ELT 50 SETA 44 ELT 28 ELT 18 ARRAYSIZE 5 SCREENCOLORMAP) (55 \COLORDISPLAYFDEV) () RGBCOLORMAP :D4 (P 15 RED P 10 I P 6 COLORMAP P 5 BLUES P 4 GREENS P 3 REDS P 2 NBLUE P 1 NGREEN P 0 NRED I 3 BITSPERPIXEL I 2 BLUEBITS I 1 GREENBITS I 0 REDBITS) l@ kXlA kYlB kZHj2 OdOLO[Ij2 OdObO\Jj2 OdOyO]lC@AB k OOOC lH _OOh__Ok_O&_lI _OOh__Ok_|O&_lJ _OOh__Ok_eO&_O0Kid0LGd_0M&d_OOOh_&O( O&h_*O&&_(O*_ O"@O _$_"O$_OO__O _Ok_ _O _"O (383 LAST 373 LAST 358 \NCONC2 205 FIXR 164 FIXR 124 FIXR 115 COLORMAPCREATE 95 EXPT 26 EXPT 17 EXPT 8 EXPT) NIL () CMYCOLORMAP :D4 (P 1 MAXCOLOR P 0 COLORMAP I 3 BITSPERPIXEL I 2 YELLOWBITS I 1 MAGENTABITS I 0 CYANBITS) C`@ABC Xd kYdljML$IMHHMKJ KJHM Mk]H(56 SETA 52 SETA 49 ELT 42 ELT 14 ARRAYSIZE 9 RGBCOLORMAP) NIL () GRAYCOLORMAP :D4 (P 4 I P 2 COLORMAP P 1 GRAYS P 0 MAXCOLOR I 0 BITSPERPIXEL) _0@ XjH2KL$LlH _NOh^LmԼO&MY0IdddhNMh_M&O@ (92 COLORMAPCREATE 26 FIXR 6 MAXIMUMCOLOR) NIL () COLORSCREENBITMAP :D4 NIL `NIL (2 ColorScreenBitMap) () \COLORDISPLAYBITS :D4 (P 0 NPAGES I 2 BITSPERPIXEL I 1 HEIGHT I 0 WIDTH) J`B@BlAllXdn oH hdl (68 \ALLOCBLOCK 53 ERROR 43 \ALLOCPAGEBLOCK) (71 \COLORDISPLAYBITS 5 \COLORDISPLAYBITS) ( 49 "No room for color screen of size") COLORSCREEN :D4 (F 0 \COLORSCREEN) PNIL NIL () SHOWCOLORTESTPATTERN :D4 (P 17 LEFT P 16 VERTCOLOR P 13 BOTTOM P 12 HORIZCOLOR P 10 LEFT P 9 COLOR P 5 NCOLORS P 4 COLORS P 3 BITSPERPIXEL P 2 HEIGHT P 1 WIDTH P 0 DESTINATION I 0 SIZE F 19 COLORNAMES) z`@3l bXd YH ZH [jH 0W&dONh_N&_O\d ]Ijl  OO-LOM k HOnl(187 ELT 161 ELT 135 ELT 113 ELT 91 ELT 69 ELT 47 ELT 25 ELT) NIL () \MAP4 :D4 (P 5 J P 3 I P 0 MAP I 1 |1C| I 0 |0C|) z@-jbA lb lgjd XljKJHl l HKljdML,NKkM YjIAMl ԾMk] @N Kk[(113 SETA 103 \FZEROP 92 LLSH 73 LLSH 50 COLORNUMBERP 43 COLORNUMBERP 25 ARRAY) (20 SMALLPOSP) () \MAP8 :D4 (P 4 I P 0 MAP I 1 |1C| I 0 |0C|) q@-jbA lb0lgjd XljLKHl l HLdkYj0I&ALlZjJA Lk\ @ @(106 \FZEROP 98 \FZEROP 88 SETA 50 COLORNUMBERP 43 COLORNUMBERP 25 ARRAY) (20 SMALLPOSP) () \GETCOLORBRUSH :D4 (I 2 NBITS I 1 COLOR I 0 BRUSH) -@@dB@@@@g@k jAB (42 COLORIZEBITMAP 36 \BRUSHBITMAP) (29 ROUND 10 BITMAP 3 BITMAP) () \DRAWCOLORLINE1 :D4 (L (12 COLOR 11 NBITS 10 RASTERWIDTH 9 BITMAPBASE 8 MODE 7 YINC 6 CDL 5 DY 4 DX 3 YLIMIT 2 XLIMIT 1 Y0 0 X0)) 4 Gl@ABCDEFGGGGG @ABCDEFGGGGG (49 \DRAW8BPPCOLORLINE 27 \DRAW4BPPCOLORLINE) NIL () \DRAW4BPPCOLORLINE :D4 (L (11 COLOR 10 RASTERWIDTH 9 BITMAPBASE 8 MODE 7 YINC 6 CDL 5 DY 4 DX 3 YLIMIT 2 XLIMIT 1 Y0 0 X0))   G[AG@\GLX`@l]MNYGl@l ZjbdbEDdBIH_ImH_HGdgJOgJOGgJOOJODFEb AkbCCFDb GLG\иIYjIJ@kb} GLk\иKnhACIH_ImH_HGdgJOgJOGgJOOJOEFDb :@kbBFEb IYjI J⺰ GLkؼKnGLG\иAkbk(357 \FZEROP 216 \FZEROP 64 LLSH) (291 PAINT 279 INVERT 267 ERASE 135 PAINT 123 INVERT 111 ERASE 42 ARRAYP 36 ARRAYP 27 4BITMASKARRAY) () \DRAW8BPPCOLORLINE :D4 (L (11 COLOR 10 RASTERWIDTH 9 BITMAPBASE 8 MODE 7 YINC 6 CDL 5 DY 4 DX 3 YLIMIT 2 XLIMIT 1 Y0 0 X0))  0AG@ZGJX@kYjbdbEDIkaHjGdgGHjgGHjGgGHjGǿDFEb AkbCNFDb GJGZи@kbB4HkGdgGHkgGHkGgGHkGǿDFEb AkbCFDb GJGغ@kbBGJkZXBj@`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'(955 \FZEROP 802 \FZEROP 741 \FZEROP 680 \FZEROP 643 \FZEROP 605 \FZEROP 518 \FZEROP 436 \FZEROP 375 \FZEROP 315 \FZEROP 118 \FZEROP 55 \FZEROP) (776 ARRAYP 770 ARRAYP 757 BITMASKARRAY 715 ARRAYP 709 ARRAYP 698 BITMASKARRAY 579 ARRAYP 573 ARRAYP 562 BITMASKARRAY 410 ARRAYP 404 ARRAYP 391 BITMASKARRAY 349 ARRAYP 343 ARRAYP 332 BITMASKARRAY 289 ARRAYP 283 ARRAYP 272 BITMASKARRAY 29 ARRAYP 23 ARRAYP 12 BITMASKARRAY) () \24BITLINEBLT :D4 (P 2 DX P 1 SX I 6 1COLOR I 5 0COLOR I 4 WIDTH I 3 DLEFT I 2 DBASE I 1 SLEFT I 0 SBASE) XADkAC3IHHBJ@I`Il[KL]jMF IkԹJkԺ Eh(79 \FZEROP 65 \PUTBASE24) (43 ARRAYP 37 ARRAYP 28 BITMASKARRAY) () \GETBASE24 :D4 (L (1 D 0 X)) 6AlXAkj@H@Hk@Hl@HkNIL NIL () \PUTBASE24 :D4 (L (2 V 1 D 0 X)) RAlXAkj@HB@HkBl@Hl@H@HnB@HkBnhNIL NIL () COLORTEXTUREFROMCOLOR# :D4 (P 6 BITMAPBASE P 5 TEXTUREBITMAP P 4 I P 2 BITPATTERN P 1 TEXTUREBITMAP P 0 TEXTURE I 1 BITSPERPIXEL I 0 COLOR#) @@@A bAdl9 ldd @@@@ljLKILJ Lk\Il- lll @@ljLKILJ Lk\IAl. lll ]ljLKNL@ Lk\Mo (183 ERROR 167 \PUTBASE24 144 BITMAPCREATE 117 \BITMAPWORD 95 BITMAPCREATE 69 \BITMAPWORD 34 BITMAPCREATE 14 COLORNUMBERP) (148 BITMAP 6 BITMAP) ( 180 "Only 4, 8 and 24 bits per pixel implemented.") \BITMAPWORD :D4 (I 2 NEWBITS I 1 WORDN I 0 BM) @ABnHIINIL (3 BITMAP) () COLORIZEBITMAP :D4 (P 0 COLORBITMAP I 3 BITSPERPIXEL I 2 1COLOR I 1 0COLOR I 0 BITMAP) 8@@C X@jdHjd@@AC BC C H(52 \BWTOCOLORBLT 47 COLORNUMBERP 42 COLORNUMBERP 18 BITMAPCREATE) (35 BITMAP 29 BITMAP 12 BITMAP 6 BITMAP) () UNCOLORIZEBITMAP :D4 (P 21 X P 19 Y P 15 WORD P 14 BWRASTERWIDTH P 13 RASTERWIDTH P 12 BWBASE P 11 BASE P 10 BIT P 9 B P 8 G P 7 R P 6 RGB P 5 TABLE P 4 BWBITMAP P 3 MAXY P 2 MAXX P 1 MAXCOLOR P 0 BITSPERPIXEL I 1 COLORMAP I 0 BITMAP) 0@kZ@k[@XAd bH YJkKkk \Il ]Ij_"_ O"O