(FILECREATED " 4-Mar-85 15:28:20" ("compiled on " {ERIS}LIBRARY>COLORDEMO.;7) "21-Feb-85 12:39:57" recompiled changes: COLORDEMO MODARTDEMO QUITP VINEDEMO INRANGE in "INTERLISP-D 21-Feb-85 ..." dated "21-Feb-85 12:54:37") (FILECREATED " 4-Mar-85 15:26:50" {ERIS}LIBRARY>COLORDEMO.;7 44707 changes to: (FNS VINEDEMO MODARTDEMO QUITP COLORDEMO INRANGE) (VARS COLORDEMOCOMS COLORDEMOS) previous date: "12-OCT-83 14:12:44" {ERIS}LIBRARY>COLORDEMO.;5) COLORDEMOA0001 D1 (NAME ERRORSET L (0 NIL) P 3 \NEXTCOLORDEMO P 2 COLORMENU F 4 RESETVARSLST F 5 DEMODEFAULTCOLORMAP F 6 DEMORAININGCOLORMAP F 7 FASTFLG F 10Q RESETY F 11Q COLORMENT) \igll  U c  `  V c gU hhTc`do`o HdIdgdg dgjdndhHdI gJhWn`W J J  hhhTcWgJ  hhTch`Kg5gl(l<hK `K``[hci(474Q APPLY 456Q IDATE 441Q MACHINETYPE 401Q SETDISPLAYHEIGHT 371Q CHECK/MENU/IMAGE 342Q ADDMENU 337Q GETBOXPOSITION 327Q CHECK/MENU/IMAGE 316Q CHECK/MENU/IMAGE 301Q CHECK/MENU/IMAGE 166Q \APPEND2 126Q SCREENCOLORMAP 114Q RAININGCOLORMAP 107Q TYPENAME 103Q TYPENAME 100Q SCREENCOLORMAP 71Q RAINBOWMAP 64Q TYPENAME 56Q TYPENAME 53Q SCREENCOLORMAP 45Q COLORMAPCREATE 40Q TYPENAME 34Q TYPENAME 31Q SCREENCOLORMAP 25Q COLORDISPLAY 10Q MACHINETYPE 2 COLORDISPLAYP) (525Q \NEWCOLORDEMO 516Q \FIRSTAUTODEMO 506Q COLORDEMOS 500Q \NEWCOLORDEMO 467Q \NEWCOLORDEMO 462Q STOPDATE 444Q DORADO 433Q STOP 424Q \FIRSTAUTODEMO 420Q \NEWCOLORDEMO 374Q BITMAP 365Q SETDISPLAYHEIGHT 332Q BITMAP 321Q BITMAP 304Q BITMAP 274Q SCREENHEIGHT 260Q CLOSEW 222Q DEFAULTMENUHELDFN 213Q CLRPROMPT 204Q CHOOSEDEMO 157Q COLORDEMOS 143Q MENUTYPE# 122Q SCREENCOLORMAP 74Q DEMORAINBOWMAP 61Q DEMORAINBOWMAP 13Q DORADO) ( 163Q (STOP) 151Q "Color demos") COLORDEMO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FASTFLG F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COLORDEMOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COLORDEMOA0001)) CHOOSEDEMO D1 (L (0 NEW)) @NIL (3 \NEWCOLORDEMO) NIL DOCOLORDROP D1 (P 1 I I 7 MAXCOLOR I 6 COLOR# I 5 DS I 4 NCIRCLES I 3 RADIUSINCR I 2 WIDTH I 1 Y I 0 X) 6DkIH+@AICgBFkb GFkb hhE IkYF(53Q DRAWCIRCLE) (21Q ROUND) NIL EXMINESHAFT D1 (P 10Q INCR P 7 BOTTOMFACTOR P 6 LEFTFACTOR P 5 MAXCOLOR P 4 FACTOR P 3 MAXBOTTOM P 2 BOTTOM P 1 LEFT P 0 COLOR I 1 FACTOR I 0 OUTFLG) jodoAol k6LoLo_IjJjnIlnJlH KJoo_IONJOOZKh@HkXjMHkXMj(115Q COLORFILLAREA 111Q COLORSCREENBITMAP 32Q EXPT 27Q COLORMAPBITS 24Q SCREENCOLORMAP) NIL (132Q 1.0 125Q .1 53Q 3.0 44Q 4.0 16Q 100.0 11Q 240.0 4 0.0) MINESHAFT D1 (P 4 BOTTOM P 3 LEFT P 1 N P 0 COLOR I 1 OUTFLG I 0 N) vj@ddkljdMMjTjMlLLlFKLnKlnLlH AHkXjlHkXnjKIlػLIl]ؼh(110Q COLORFILLAREA 104Q COLORSCREENBITMAP) NIL NIL MODART D1 (P 7 I P 5 Y P 4 X P 3 MAXCOLOR P 2 CBM P 1 HT P 0 WD) igll nnDl2k_ON jH jI JjdJjHL jIM LMjk jggjl jggjK l Ok_(213Q DISMISS 205Q \NUBITBLT 201Q COLORTEXTUREFROMCOLOR# 176Q RAND 157Q RAND 137Q RAND 130Q RAND 121Q RAND 105Q RAND 77Q RAND 67Q ROTATECOLORMAP 64Q SCREENCOLORMAP 42Q MAXIMUMCOLOR 37Q COLORSCREENBITMAP 25Q COLORDISPLAY 10Q MACHINETYPE 2 COLORDISPLAYP) (171Q PAINT 165Q INVERT 151Q INPUT 145Q TEXTURE 13Q DORADO) NIL MODARTDEMO D1 (P 12Q J P 10Q I P 5 Y P 4 X P 3 MAXCOLOR P 2 CBM P 1 HT P 0 WD I 0 WAIT) 4 igll nn4@l( h lkOO'JjdJjIM nnggjK jH jI JjdJjHL jIM LMggjK lk OOwjH jI JjHL jIM JjHL jIM LMgjl djgkgg n, `l^jNN Ok_ Ok_h(446Q ROTATECOLORMAP 443Q SCREENCOLORMAP 425Q \FZEROP 401Q GETMOUSESTATE 375Q DISMISS 366Q BITBLT 337Q RAND 324Q RAND 315Q RAND 305Q RAND 276Q RAND 265Q RAND 257Q RAND 234Q BITBLT 230Q RAND 212Q RAND 203Q RAND 167Q RAND 161Q RAND 152Q QUITP 144Q BITBLT 140Q RAND 116Q RAND 61Q QUITP 55Q QUITP 42Q MAXIMUMCOLOR 37Q COLORSCREENBITMAP 25Q COLORDISPLAY 10Q MACHINETYPE 2 COLORDISPLAYP) (405Q LASTMOUSEBUTTONS 362Q PAINT 356Q REPLACE 347Q INVERT 331Q INPUT 222Q REPLACE 217Q TEXTURE 132Q REPLACE 127Q TEXTURE 13Q DORADO) () POINTTEST D1 (P 10Q I P 6 CSN P 5 MAXCOLOR P 4 TOP P 3 RIGHT P 2 BOTTOM P 1 LEFT I 0 REGION) @`@`@`HHk@`HHkl` k`lj.ldkOONIK JL jM Ok_(164Q BITMAPBIT 161Q RAND 154Q RAND 147Q RAND 111Q GETMOUSESTATE 103Q COLORSCREENBITMAP 76Q EXPT) (115Q LASTMOUSEBUTTONS 73Q \COLORDISPLAYBITSPERPIXEL 47Q WHOLECOLORDISPLAY 24Q WHOLECOLORDISPLAY 14Q WHOLECOLORDISPLAY 5 WHOLECOLORDISPLAY) NIL PUTDROPS D1 (P 1 POS P 0 DS I 0 N) >`ljhII@l`ljlll l Hl (71Q DOCOLORDROP 62Q RAND 10Q GETPOSITION 2 DSPCREATE) (40Q LASTMOUSEBUTTONS 14Q LASTMOUSEBUTTONS) NIL QUITP D1 (I 0 N) &`@d `dh(36Q IDATE 30Q IDATE 2 WINDOW.MOUSE.HANDLER) (42Q STOPDATE 23Q STOPDATE 5 \NEWCOLORDEMO) () RAINING D1 (P 11Q YQUAD P 7 XQUAD P 5 COUNTER P 3 MAXCOLOR P 2 DS P 1 N P 0 COLOR# I 0 N) j@dlJ j Klll kMLqkjON_kj OOJHlDOn@l n6 Oll l IdlKlllll JHK Ok_Ok_Mk]h(210Q DOCOLORDROP 201Q RAND 152Q RAND 135Q RAND 37Q COLORBACKGROUND 33Q DSPDESTINATION 27Q COLORSCREENBITMAP 21Q MAXIMUMCOLOR 16Q DSPCREATE) NIL NIL RAININGCOLORMAP D1 NIL lSll2IHjdIhKLh[IlYL&Jlj2IHoK Lh[IkYL&JZohlld2IHjdIhKLh[Il2YL&Jl j2IHoK Lh[IkYL&J (266Q COLORMAPOF 263Q \NCONC2 260Q \NCONC2 2 MAXIMUMCOLOR) NIL (227Q (0 0 0) 134Q (0 0 0) 100Q (0 0 0)) ROTATEIT D1 (P 2 END P 1 BEG P 0 CM I 2 WAIT I 1 ENDCOLOR I 0 BEGINCOLOR) @@jAl kH@J BB` (73Q DISMISS 65Q DISMISS 53Q GETMOUSESTATE 37Q ROTATECOLORMAP 24Q EXPT 21Q COLORMAPBITS 16Q SCREENCOLORMAP 2 SCREENCOLORMAP) (57Q LASTMOUSEX) NIL SHOWCOLORW D1 (P 1 DS P 0 W I 3 POS I 2 0COLOR I 1 1COLOR I 0 W) K@YI BI AI H CbHg jdICChdgg H h(107Q OPENW 103Q BKBITBLT 60Q GETWINDOWPROP 46Q GETPOSITION 41Q CLOSEW 35Q DSPFOREGROUNDCOLOR 30Q DSPBACKGROUNDCOLOR 23Q DSPDESTINATION 17Q COLORSCREENBITMAP 13Q DSPCREATE 5 WHICHW) (77Q REPLACE 74Q INPUT 55Q IMAGECOVERED) NIL TUNNEL D1 (I 0 SPEED) i@ (7 ROTATEIT 4 EXMINESHAFT) NIL NIL TUNNELDEMO D1 (P 1 MAXCOLOR P 0 CM I 1 WAIT I 0 SPEED F 2 DEMODEFAULTCOLORMAP) R l ki@l Al h HjI ` Al h HjI Al h h@l Al h HjI h(170Q ROTATECOLORMAP 161Q QUITP 155Q QUITP 145Q EXMINESHAFT 132Q QUITP 126Q QUITP 113Q ROTATECOLORMAP 104Q QUITP 100Q QUITP 70Q SCREENCOLORMAP 57Q ROTATECOLORMAP 50Q QUITP 44Q QUITP 34Q EXMINESHAFT 16Q EXPT 13Q COLORMAPBITS 10Q SCREENCOLORMAP 3 SCREENCOLORMAP) (65Q DEMORAINBOWMAP) NIL CIRCLEDEMO D1 (P 0 PAUSETIME I 0 WAIT F 1 DEMORAININGCOLORMAP) Vlll2` k @l h `k H Q @l h Qk H h(117Q DISMISS 112Q ROTATECOLORMAP 104Q QUITP 100Q QUITP 70Q SCREENCOLORMAP 61Q DISMISS 54Q ROTATECOLORMAP 44Q QUITP 40Q QUITP 30Q RAINING 24Q SCREENCOLORMAP 2 MAXIMUMCOLOR) (50Q DEMORAINBOWMAP 21Q DEMORAINBOWMAP) NIL WELL D1 (P 3 COLOR P 2 I P 0 DS I 0 N) SH nkdLLj5jLnJJn%n@lJg@kKhhH J@\غKkػh(103Q DRAWCIRCLE 14Q DSPDESTINATION 10Q COLORSCREENBITMAP 2 DSPCREATE) (65Q ROUND) NIL LOGODEMOA0014A0015 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 JLOGO F 1 BIGJFONTS F 2 MAXCOLOR) APQo cln l kR ld hh(70Q DISMISS 62Q ROTATECOLORMAP 55Q SCREENCOLORMAP 50Q QUITP 43Q QUITP 35Q COLORLOGO 21Q INIT/LOGO/COLORBITMAP 11Q READBIGJFONTS) (3 INTERLISP-D/COLORBITMAP) (16Q ( - - D)) LOGODEMOA0014 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 MAXCOLOR P 0 NBITS F 4 RESETVARSLST F 5 JLOGO F 6 MACROY)  1lj ln l kI ld UGl ?g`TcZog JKdTJcT TkK Jhc i(175Q ERROR! 165Q NLEFT 156Q TAILP 130Q LOGODEMOA0014A0015 77Q QUITP 64Q DISMISS 56Q ROTATECOLORMAP 51Q SCREENCOLORMAP 44Q QUITP 37Q QUITP 31Q COLORLOGO 17Q COLORBACKGROUND 5 COLORMAPBITS 2 SCREENCOLORMAP) (136Q INTERLISP-D/COLORBITMAP 125Q INTERNAL 107Q INTERLISP-D/COLORBITMAP 104Q INTERLISP-D/COLORBITMAP) (122Q (DUMMY.FOR.ERRORSET)) LOGODEMO D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST) = 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q LOGODEMOA0014 5 SCREENCOLORMAP 2 COLORMAPCREATE) (54Q SCREENCOLORMAP 44Q ERROR 35Q INTERNAL 13Q SCREENCOLORMAP) (32Q (DUMMY.FOR.ERRORSET)) COLORLOGO D1 (P 13Q ANGLE P 11Q COLORSKIP P 10Q MAXCOLOR P 7 NBITS P 6 WIMAGEHEIGHT P 5 WIMAGEWIDTH P 4 FONT P 3 BORDERCOLOR P 2 COLOR P 1 YPOS P 0 XPOS I 0 POSITION F 15Q CIRCLESIZE F 16Q ANGLEDELTA) @ lnb@@jlgl$ WojWoj lk nj OOjKjOnOOn8HWO IWO MNlJOkOJZj OW__`O``oJOO jdHMIWl h(310Q BKBITBLT 272Q COLORSCREENBITMAP 262Q INIT/LOGO/COLORBITMAP 207Q DRAWACOLORWINDOW 160Q SIN 146Q COS 64Q COLORMAPBITS 61Q SCREENCOLORMAP 34Q FONTCREATE 3 POSITIONP) (265Q INTERLISP-D/COLORBITMAP 245Q INTERLISP-D/COLORBITMAP 236Q INTERLISP-D/COLORBITMAP 230Q INTERLISP-D/COLORBITMAP 27Q TIMESROMAND) (252Q (I n t e r l i s p - D) 53Q .5 42Q .62) DRAWACOLORWINDOW D1 (P 0 BM I 6 1COLOR I 5 0COLOR I 4 WBORDER I 3 WHEIGHT I 2 WWIDTH I 1 YPOS I 0 XPOS) 1@ABCFHg @DADBDlCDlEHg H(55Q COLORFILLAREA 22Q COLORFILLAREA 2 COLORSCREENBITMAP) (51Q REPLACE 16Q REPLACE) NIL INIT/LOGO/COLORBITMAP D1 (P 10Q C P 7 X P 4 COLORBM P 3 XPOS P 2 COLOR P 1 FONT P 0 CHARLST I 3 COLORSKIP I 2 MAXCOLOR I 1 STARTCOLOR# I 0 CHARS) m @ogl$ A"kjHjMNI` \H7 _NOI ؾM]dOKjdJdBkCZIL [L(143Q COLORPRINTCHAR 101Q STRINGWIDTH 64Q COLORNUMBERP 55Q BITMAPCREATE 16Q FONTCREATE) (52Q \COLORDISPLAYBITSPERPIXEL 45Q FONTDESCRIPTOR 11Q TIMESROMAND) (6 (I n t e r l i s p - D)) COLORPRINTCHAR D1 (P 3 TEMPBM P 2 H P 1 W P 0 DSP I 6 TARGETBM I 5 FONT I 4 1COLOR I 3 0COLOR I 2 YPOS I 1 XPOS I 0 LET F 4 COLORPRINTCHARDS) @ k*@ E CDF jdFABhddg A@E T`Tc@E EIlJ [EH KH jdIJh jEH @H KCDF jdFABhddg AhH (231Q DSPXPOSITION 223Q COLORBLT 204Q COLORIZEBITMAP 201Q BITSPERPIXEL 172Q PRIN3 165Q MOVETO 152Q DSPCLIPPINGREGION 136Q DSPDESTINATION 131Q DSPFONT 123Q BITMAPCREATE 102Q STRINGWIDTH 73Q DSPCREATE 55Q STRINGWIDTH 47Q BKBITBLT 30Q COLORIZEBITMAP 25Q BITSPERPIXEL 17Q GETCHARBITMAP 13Q CHCON1 3 NCHARS) (217Q REPLACE 157Q FONTDESCRIPTOR 106Q FONTDESCRIPTOR 64Q DISPLAYSTREAMTYPE# 43Q REPLACE) NIL COLORKINETICA0014 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 6 Y P 5 X P 4 COLOR# P 3 TOP P 2 BOTTOM P 1 RIGHT P 0 LEFT F 7 REGION F 10Q FIRSTCOLOR F 11Q LASTCOLOR F 12Q RESETVARSLST F 13Q RESETY) gi hhWcW `cWj cW cWWWWccWWWkWWWkW%HI JK MNlIM lKN LdWWk\jl djgdkglgg hci(307Q QUITP 303Q \BACKGROUND 277Q COLORFILLAREA 235Q RAND 227Q COLORSCREENBITMAP 207Q RAND 177Q RAND 164Q RAND 156Q RAND 62Q COLORNUMBERP 57Q MAXIMUMCOLOR 45Q COLORNUMBERP 26Q REGIONP 6 COLORDISPLAY) (273Q REPLACE 267Q INVERT 257Q ERASE 245Q PAINT 32Q WHOLECOLORDISPLAY 2 COLORDISPLAY) NIL COLORKINETIC D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 LASTCOLOR I 1 FIRSTCOLOR I 0 REGION F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COLORKINETICA0014) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) DEMOCOLORKINETICA0019 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 COLORKINETICCOMMANDMENU) Pd`P h(20Q MENU 13Q INIT/COLORDEMO/MENUS) (5 MENUTYPE#) NIL DEMOCOLORKINETIC D1 (P 12Q HALFHEIGHT P 11Q HALFWIDTH P 10Q Y P 7 X P 6 KINROTATETIME P 5 ROTATETIME P 4 COLOR# P 3 TOP P 2 BOTTOM P 1 RIGHT P 0 LEFT I 2 LASTCOLOR I 1 FIRSTCOLOR I 0 REGION F 13Q LOGOCYCLEWAITTIME F 14Q KINCYCLEWAITTIME)  i @ `bA jbB lbABABbb@@@k@@@kAj j G @l_@l_@A M Wkl M N WAB N HI _JK _OOlIOdOO lKOdOO LdBAk\g `kjzoi dgi bdgWojcMdgWojc8dgWojc#dgWojcgh`ljAB M Wkl M N WAB N `dWW &(707Q DISMISS 670Q CLOCK0 663Q ROTATECOLORMAP 656Q SCREENCOLORMAP 647Q CLOCKDIFFERENCE 642Q CLOCK0 635Q ROTATECOLORMAP 627Q SCREENCOLORMAP 620Q CLOCKDIFFERENCE 613Q ROTATECOLORMAP 606Q SCREENCOLORMAP 566Q GETMOUSESTATE 422Q EDITCOLORMAP 416Q SCREENCOLORMAP 403Q DEMOCOLORKINETICA0019 361Q GETMOUSESTATE 355Q COLORFILLAREA 346Q COLORSCREENBITMAP 330Q RAND 307Q RAND 257Q RAND 247Q RAND 241Q CLOCK0 234Q ROTATECOLORMAP 227Q SCREENCOLORMAP 220Q CLOCKDIFFERENCE 213Q CLOCK0 206Q ROTATECOLORMAP 200Q SCREENCOLORMAP 171Q CLOCKDIFFERENCE 164Q COLORFILL 161Q COLORSCREENBITMAP 124Q CLOCK 120Q CLOCK 40Q COLORNUMBERP 27Q COLORNUMBERP 14Q REGIONP 7 COLORDISPLAY 2 COLORDISPLAYP) (674Q KINETICWAITTIME 572Q LASTMOUSEBUTTONS 554Q STOP 530Q DecreaseColorFlip 503Q IncreaseColorFlip 456Q DecreaseLogoSpeed 431Q IncreaseLogoSpeed 410Q EditColorMap 365Q LASTMOUSEBUTTONS 351Q REPLACE 20Q WHOLECOLORDISPLAY) (541Q 1.3 514Q .8 467Q 1.3 442Q .8 377Q (DUMMY.FOR.ERRORSET)) CIRKIN D1 (P 10Q I P 5 MAXRAD P 4 BOTTOM P 3 TOP P 2 RIGHT P 1 LEFT P 0 MAXCOLOR I 0 DS F 11Q WHOLECOLORDISPLAY) a@` bW@ h@ ]MMkغMMMkػMMdNNl]lkOO$IJ LK jM jH @ Ok_jl djgdkglgg@ (253Q DSPOPERATION 211Q RAND 171Q FILLCIRCLE 164Q RAND 157Q RAND 152Q RAND 145Q RAND 41Q DSPCLIPPINGREGION 33Q DSPCLIPPINGREGION 22Q DSPCREATE 17Q COLORSCREENBITMAP 2 MAXIMUMCOLOR) (247Q ERASE 243Q INVERT 233Q PAINT 221Q REPLACE 12Q DISPLAYSTREAMTYPE#) NIL COLORDEMO1A0020A0021 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RAINBOWCOLORMAP F 1 LOGOCYCLEWAITTIME F 2 KINREGION F 3 MACROY) 9g ln `ljPkl Q Rll ci(63Q DEMOCOLORKINETIC 51Q DISMISS 44Q ROTATECOLORMAP 23Q GETMOUSESTATE 17Q COLORLOGO 5 COLORBACKGROUND) (27Q LASTMOUSEBUTTONS 2 BLACK) NIL COLORDEMO1A0020 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST F 5 RAINBOWCOLORMAP F 6 MACROY) FU 1gHhhTcog gIcgI Kg c i(100Q COLORBACKGROUND 70Q ERROR! 62Q APPLY 36Q COLORDEMO1A0020A0021 3 SCREENCOLORMAP) (75Q WHITE 53Q SCREENCOLORMAP 42Q ERROR 33Q INTERNAL 11Q SCREENCOLORMAP) (30Q (DUMMY.FOR.ERRORSET)) COLORDEMO1 D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 KINREGION P 0 RAINBOWCOLORMAP F 6 RESETVARSLST F 7 RAINBOWINTENSITIES) SW ldnXn,hi 1gJhhVc og gKc gK Mh(117Q ERROR! 110Q APPLY 64Q COLORDEMO1A0020 31Q COLORDISPLAY 4 COLORMAPCREATE) (101Q COLORDISPLAY 70Q ERROR 61Q INTERNAL 37Q COLORDISPLAY) (56Q (DUMMY.FOR.ERRORSET)) COLORDEMO2A0022A0023 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 COLOR F 1 SIZE F 2 MACROY) Q ``  `kj`d`` Xdghcig i Hgi HdgoLgoAHdgo3go(HdgogoHgo C`` 3(337Q DISMISS 317Q SCREENCOLORMAP 314Q MAPOFACOLOR 311Q SHOULDNT 156Q SCREENCOLORMAP 135Q SCREENCOLORMAP 132Q EDITCOLORMAP 126Q COLORMAPCOPY 123Q SCREENCOLORMAP 76Q MENU 67Q INIT/COLORDEMO/MENUS 35Q GETMOUSESTATE 31Q ROTATECOLORMAP 26Q SCREENCOLORMAP 17Q \SETCURSORPOSITION 3 SHOWCOLORTESTPATTERN) (331Q \MOUSEHOTSPOTY 326Q LASTMOUSEY 277Q YELLOW 264Q GREY 250Q BLUEGREEN 233Q PURPLE 217Q GREEN 202Q BLUE 166Q RED 150Q DEFAULT 116Q EDITCOLORMAP 103Q STOP 73Q COLORDEMO2MENU 61Q MENUTYPE# 54Q COLORDEMO2MENU 41Q LASTMOUSEBUTTONS 12Q KINETICWAITTIME 7 LASTMOUSEX) (305Q (RED GREEN) 272Q (RED BLUE GREEN) 257Q (BLUE GREEN) 241Q (RED BLUE) 226Q (GREEN) 210Q (BLUE) 175Q (RED)) COLORDEMO2A0022 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST F 5 MACROY) E1gHhhTcog gIcgI Kg c i(77Q COLORBACKGROUND 67Q ERROR! 61Q APPLY 35Q COLORDEMO2A0022A0023 2 SCREENCOLORMAP) (74Q WHITE 52Q SCREENCOLORMAP 41Q ERROR 32Q INTERNAL 10Q SCREENCOLORMAP) (27Q (DUMMY.FOR.ERRORSET)) COLORDEMO2 D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 SIZE F 4 RESETVARSLST) ;i 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q COLORDEMO2A0022 3 COLORDISPLAY) (52Q COLORDISPLAY 42Q ERROR 33Q INTERNAL 11Q COLORDISPLAY) (30Q (DUMMY.FOR.ERRORSET)) INIT/COLORDEMO/MENUS D1 (F 2 COLORKINETICCOMMANDMENU) `dodi didg dgjdndhHdI  `dodidi dg dgjdndhHdI c (201Q CHECK/MENU/IMAGE 76Q CHECK/MENU/IMAGE) (204Q BITMAP 144Q DEFAULTMENUHELDFN 135Q CLRPROMPT 106Q MENUTYPE# 101Q BITMAP 73Q COLORDEMO2MENU 40Q DEFAULTMENUHELDFN 31Q CLRPROMPT 2 MENUTYPE#) (114Q ((STOP (QUOTE STOP) "Stops the demonstration") (EditColorMap (QUOTE EditColorMap) "Edits the screen color map") (IncreaseLogoSpeed (QUOTE IncreaseLogoSpeed) "Speeds up the cycling of colors thru the logo") (DecreaseLogoSpeed (QUOTE DecreaseLogoSpeed) "Slows down the cycling of colors thru the logo") (IncreaseColorFlip (QUOTE IncreaseColorFlip) "Increases the frequency of color map changes in the Kinetic region" NXP) (DecreaseColorFlip (QUOTE DecreaseColorFlip) "Reduces the frequency of colormap changes in the Kinetic region")) 10Q ((STOP (QUOTE STOP) "Stops this demonstration.") (EditColors (QUOTE EDITCOLORMAP) "Calls the color map editor.") (Default (QUOTE DEFAULT) "Sets the color map to the system default") (Red (QUOTE RED) "Switch to a RED color map") (Green (QUOTE GREEN) "Switch to a GREEN color map") (Blue (QUOTE BLUE) "Switch to a BLUE color map") (Yellow (QUOTE YELLOW) "Switch to a YELLOW color map") (Purple (QUOTE PURPLE) "Switch to a VIOLET color map") (Grey (QUOTE GREY) "Switch to a GREY color map") (BlueGreen (QUOTE BLUEGREEN) "Switch to a color map that is a mixture of BLUE and GREEN."))) REDGREENA0038A0039 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 NCOLORMASK P 0 L F 2 MACROY) `j`lllBHIHnjggHnjHllHl  l Hkظhci(121Q DISMISS 113Q ROTATECOLORMAP 110Q SCREENCOLORMAP 104Q COLORLEVEL 33Q SCREENCOLORMAP 26Q QUITP 2 SHOWCOLORTESTPATTERN) (55Q RED 51Q GREEN 7 \COLORDISPLAYBITSPERPIXEL) NIL REDGREENA0038 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST F 5 MACROY) Kg 1gHhhTcog gIcgI Kg c i(105Q COLORBACKGROUND 75Q ERROR! 67Q APPLY 43Q REDGREENA0038A0039 10Q SCREENCOLORMAP 5 MAPOFACOLOR) (102Q WHITE 60Q SCREENCOLORMAP 47Q ERROR 40Q INTERNAL 16Q SCREENCOLORMAP 2 RED) (35Q (DUMMY.FOR.ERRORSET)) REDGREEN D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST) ;i 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q REDGREENA0038 3 COLORDISPLAY) (52Q COLORDISPLAY 42Q ERROR 33Q INTERNAL 11Q COLORDISPLAY) (30Q (DUMMY.FOR.ERRORSET)) OVERPAINTDEMOA0065 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 I F 3 RESETVARSLST F 4 MOVEMODE F 5 OVERPAINTBITMAPS F 6 RESETY F 7 NSTEPS F 10Q DY F 11Q DX F 12Q LASTY F 13Q LASTX)  g`dodgdg dgjdndhHdI  hhhScgcjcccccU o hc I` l !hc il TgJ IYk l( (255Q DISMISS 247Q ROTATECOLORMAP 243Q SCREENCOLORMAP 232Q OVERPAINTBM 215Q QUITP 177Q QUITP 173Q QUITP 165Q SCREENCOLORMAP 143Q BITMAPFROMSTRING 73Q ADDMENU) (223Q NONE 162Q DEMORAINBOWMAP 112Q RANDOM 40Q DEFAULTMENUHELDFN 31Q CLRPROMPT 22Q OVERPAINTSELFN 5 MENUTYPE# 2 CLOSEW) (140Q "Interlisp-D" 13Q (RANDOM LINE CURSOR NONE)) OVERPAINTDEMO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q OVERPAINTDEMOA0065) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) OVERPAINTBM D1 (P 5 SCR P 4 BMH P 3 BMW P 2 EBM P 1 COLORSCREENBITMAP P 0 MAXCOLOR I 1 FONT I 0 BM) \B@A` Z@ [J\J ]j 2jn, l3j JIKn Ln kH M h(125Q OVERPAINT 120Q COLORTEXTUREFROMCOLOR# 115Q RAND 110Q NEWY 101Q NEWX 67Q COLORBACKGROUND 57Q RAND 46Q QUITP 43Q COLORBACKGROUND 36Q BITMAPCOPY 25Q BITMAPWIDTH 20Q CACHEBITMAP 5 COLORSCREENBITMAP 2 MAXIMUMCOLOR) (15Q \COLORDISPLAYBITSPERPIXEL) NIL OVERPAINTSELFN D1 (L (0 V) F 0 MOVEMODE) @cNIL NIL NIL CACHEBITMAP D1 (P 1 CBM P 0 BMEXP I 2 NBITS I 1 FONT I 0 BM) GBl``@d`H @dA H bH@dBl dBlH (104Q PUTHASH 64Q EXPANDBITMAP 44Q PUTHASH 40Q BITMAPFROMSTRING) (70Q BITMAP 24Q BITMAPTYPE# 13Q 4BITBMEXP 7 8BITBMEXP) NIL NEWX D1 (I 1 SW I 0 BW F 0 LASTX F 1 DX F 2 NSTEPS F 3 MOVEMODE F 4 DY) Sdgj@A dg`@ldAcAdg]Rkcj+jl2 cjl lml cml cPQcdjjPcjQcA@PjQccPgj(221Q SHOULDNT 134Q RAND 121Q RAND 105Q RAND 74Q RAND 16Q RAND) (212Q NONE 51Q LINE 31Q LASTMOUSEX 23Q CURSOR 4 RANDOM) NIL NEWY D1 (I 1 SH I 0 BH F 0 LASTY F 1 DY F 2 NSTEPS F 3 MOVEMODE F 4 DX) Sdgj@A dg`@ldg]Rkcj+jl2 cjl lml cml cPQcdjjPcjQcA@PjQccPgj(213Q SHOULDNT 126Q RAND 113Q RAND 77Q RAND 66Q RAND 16Q RAND) (204Q NONE 43Q LINE 31Q LASTMOUSEY 23Q CURSOR 4 RANDOM) NIL WALKDEMOA0015 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 I F 2 OVERPAINTBITMAPS F 3 SPEED F 4 MACROY F 5 WAIT) Fj R o hcHhciUl IhS l hdS HX(76Q WALKBM 67Q QUITP 61Q WALKBM 51Q QUITP 16Q BITMAPFROMSTRING 3 COLORBACKGROUND) NIL (13Q "Interlisp-D") WALKDEMO D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 3 WORDS I 2 WORD1 I 1 SPEED I 0 WAIT F 4 RESETVARSLST) ;h 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q WALKDEMOA0015 3 SCREENCOLORMAP) (52Q SCREENCOLORMAP 42Q ERROR 33Q INTERNAL 11Q SCREENCOLORMAP) (30Q (DUMMY.FOR.ERRORSET)) WALKBM D1 (P 13Q COLORCOUNTER P 12Q J P 11Q I P 10Q DY P 7 DX P 6 Y P 5 X P 4 MAXY P 3 MAXX P 2 SCR P 1 EBM P 0 MAXCOLOR I 2 SPEED I 1 FONT I 0 BM F 14Q MINWALK F 15Q MAXWALK) BlbA@A` Yd ZnI [nI\ mdjdkjd OdHkk_MOؽNOؾOjjMKMjNLN*jK jL jBB _jBB _WW Ok_IMNO J Ok_n,j_ kH l eh(326Q DISMISS 320Q ROTATECOLORMAP 313Q SCREENCOLORMAP 307Q SCREENCOLORMAP 304Q RANDCOLORMAP 261Q OVERPAINT 254Q COLORTEXTUREFROMCOLOR# 245Q COLORSCREENBITMAP 231Q RAND 217Q RAND 205Q RAND 175Q RAND 167Q RAND 77Q QUITP 61Q SCREENCOLORMAP 56Q RANDCOLORMAP 41Q BITMAPWIDTH 31Q BITMAPCOPY 24Q CACHEBITMAP 11Q MAXIMUMCOLOR) (21Q \COLORDISPLAYBITSPERPIXEL) NIL RANDCOLORMAP D1 (P 3 CM P 2 CN P 0 MAXCOLOR F 4 WALKRAINBOWCOLORMAP) %l kkl dkX` `HjJIh`Jgjl `Jgjl `Jgjl JkZlWT T cHjl JITJgjl TJgjl TJgjl JlZokl  Hjl JI6KJgjl KJgjl KJgjl JlZK(431Q COLORLEVEL 426Q RAND 412Q COLORLEVEL 407Q RAND 373Q COLORLEVEL 370Q RAND 345Q RAND 333Q MAPOFACOLOR 327Q NTH 324Q RAND 302Q COLORLEVEL 277Q RAND 263Q COLORLEVEL 260Q RAND 244Q COLORLEVEL 241Q RAND 216Q RAND 205Q RAINBOWMAP 202Q COLORMAPBITS 177Q SCREENCOLORMAP 171Q COLORMAPP 151Q COLORLEVEL 146Q RAND 130Q COLORLEVEL 125Q RAND 107Q COLORLEVEL 104Q RAND 51Q COLORMAPCREATE 41Q COLORMAPP 25Q RAND 12Q EXPT 7 COLORMAPBITS 4 SCREENCOLORMAP) (420Q BLUE 401Q GREEN 362Q RED 271Q BLUE 252Q GREEN 233Q RED 140Q BLUE 134Q WALKRANDOMCOLORMAP 117Q GREEN 113Q WALKRANDOMCOLORMAP 76Q RED 72Q WALKRANDOMCOLORMAP 54Q WALKRANDOMCOLORMAP 45Q WALKRANDOMCOLORMAP 36Q WALKRANDOMCOLORMAP) (316Q ((RED GREEN) RED (BLUE GREEN) (BLUE RED) GREEN (RED GREEN BLUE))) VINEDEMO D1 (P 12Q DS P 11Q MAXWIDTH P 10Q WIDTH P 7 MAXCOLOR P 6 COLOR P 5 Y2 P 4 X2 P 3 DY P 2 DX P 1 Y1 P 0 X1 I 0 WAIT) D  n@XlY_dl^l_l _mld Zmld [Ojl jl jl h hddhdddggO  _@lx h mldJml mldKml jnHJ \jLnjJٺjnIK ]jMnjKٻkOOokl Olk _Nokl Ok HILMOgON LMjOk jl jl jl h 2h(474Q SETCOLORINTENSITY 465Q RAND 457Q RAND 451Q RAND 443Q RAND 433Q SCREENCOLORMAP 423Q DRAWLINE 402Q IMOD 371Q NTH 366Q RAND 350Q INRANGE 333Q NTH 330Q RAND 273Q INRANGE 243Q INRANGE 230Q INRANGE 224Q RAND 207Q INRANGE 203Q RAND 163Q QUITP 157Q QUITP 145Q DSPCREATE 142Q COLORSCREENBITMAP 137Q BITBLT 117Q COLORSCREENBITMAP 111Q SETCOLORINTENSITY 102Q RAND 74Q RAND 66Q RAND 56Q SCREENCOLORMAP 52Q RAND 42Q RAND 14Q MAXIMUMCOLOR) (414Q REPLACE 131Q REPLACE 126Q TEXTURE) ( 360Q (-1 0 0 0 0 0 0 1) 322Q (-1 0 0 0 0 0 0 1)) INRANGE D1 (L (2 VALUE 1 MAX 0 MIN)) @AdBBHdIINIL NIL () (PRETTYCOMPRINT COLORDEMOCOMS) (RPAQQ COLORDEMOCOMS ((FNS COLORDEMO CHOOSEDEMO DOCOLORDROP EXMINESHAFT MINESHAFT MODART MODARTDEMO POINTTEST PUTDROPS QUITP RAINING RAININGCOLORMAP ROTATEIT SHOWCOLORW TUNNEL TUNNELDEMO CIRCLEDEMO WELL ) (VARS COLORDEMOS \FIRSTAUTODEMO (\NEWCOLORDEMO NIL) (STOPDATE NIL) (DEMORAINBOWMAP) ( DEMODEFAULTCOLORMAP)) (GLOBALVARS COLORDEMOS \FIRSTAUTODEMO \NEWCOLORDEMO STOPDATE DEMORAINBOWMAP DEMODEFAULTCOLOWMAP) (COMS (* Logo demos) (FNS LOGODEMO COLORLOGO DRAWACOLORWINDOW INIT/LOGO/COLORBITMAP COLORPRINTCHAR) (VARS ANGLEDELTA CIRCLESIZE LOGOCYCLEWAITTIME (JLOGO) ( WINDOWIMAGE) (INTERLISP-D/COLORBITMAP)) (GLOBALVARS INTERLISP-D/COLORBITMAP)) (COMS (* Kinetic demos) (FNS COLORKINETIC DEMOCOLORKINETIC CIRKIN) (VARS (KINETICWAITTIME 150)) (GLOBALVARS KINETICWAITTIME)) (COMS (FNS COLORDEMO1 COLORDEMO2 INIT/COLORDEMO/MENUS) (VARS KINCYCLEWAITTIME (COLORKINETICCOMMANDMENU ) (COLORPRINTCHARDS) (COLORDEMO2MENU)) (VARS RAINBOWINTENSITIES)) (COMS (* Simple demos) (FNS REDGREEN )) (COMS (* Overpaint demos) (FNS OVERPAINTDEMO OVERPAINTBM OVERPAINTSELFN CACHEBITMAP NEWX NEWY) ( VARS (OVERPAINTBITMAPS))) (COMS (* Walk demos) (FNS WALKDEMO WALKBM RANDCOLORMAP) (INITVARS MAXWALK MINWALK RANDCOLORPROB (WALKRANDOMCOLORMAP) (8BITBMEXP (LIST (HARRAY 60))) (4BITBMEXP (LIST (HARRAY 60) ))) (GLOBALVARS 8BITBMEXP 4BITBMEXP WALKRANDOMCOLORMAP)) (COMS (* Vines demo) (FNS VINEDEMO INRANGE)) (FILES COLOR))) (RPAQQ COLORDEMOS (LOGODEMO COLORKINETIC OVERPAINTDEMO MODARTDEMO WALKDEMO TUNNELDEMO CIRCLEDEMO VINEDEMO)) (RPAQQ \FIRSTAUTODEMO LOGODEMO) (RPAQQ \NEWCOLORDEMO NIL) (RPAQQ STOPDATE NIL) (RPAQQ DEMORAINBOWMAP NIL) (RPAQQ DEMODEFAULTCOLORMAP NIL) (RPAQQ ANGLEDELTA 23) (RPAQQ CIRCLESIZE 60) (RPAQQ LOGOCYCLEWAITTIME 60) (RPAQQ JLOGO NIL) (RPAQQ WINDOWIMAGE NIL) (RPAQQ INTERLISP-D/COLORBITMAP NIL) (RPAQQ KINETICWAITTIME 150) (RPAQQ KINCYCLEWAITTIME 5114) (RPAQQ COLORKINETICCOMMANDMENU NIL) (RPAQQ COLORPRINTCHARDS NIL) (RPAQQ COLORDEMO2MENU NIL) (RPAQQ RAINBOWINTENSITIES ((178 0 0) (255 0 0) (255 128 0) (255 255 0) (128 255 0) (0 255 0) (0 255 128) (0 255 255) (0 128 255) (0 0 255) (128 0 255) (255 0 255) (255 128 255) (255 255 255) (128 128 128) (0 0 0))) (RPAQQ OVERPAINTBITMAPS NIL) (RPAQ? MAXWALK NIL) (RPAQ? MINWALK NIL) (RPAQ? RANDCOLORPROB NIL) (RPAQ? WALKRANDOMCOLORMAP) (RPAQ? 8BITBMEXP (LIST (HARRAY 60))) (RPAQ? 4BITBMEXP (LIST (HARRAY 60))) (FILESLOAD COLOR) (PUTPROPS COLORDEMO COPYRIGHT ("Xerox Corporation" 1982 1983 1985)) NIL