(FILECREATED " 2-Aug-84 11:06:05" ("compiled on " {ERIS}LIBRARY>COLORDEMO.;2) " 1-Aug-84 17:04:49" recompiled changes: SENDCOLORREGION COLORDEMO MODARTDEMO TUNNELDEMO LOGODEMO in "INTERLISP-D 2-Aug-84 ..." dated " 2-Aug-84 09:16:16") (FILECREATED " 2-Aug-84 11:05:20" {ERIS}LIBRARY>COLORDEMO.;2 42540 changes to: (FNS LOGODEMO SENDCOLORREGION TUNNELDEMO MODARTDEMO COLORDEMO) (VARS COLORDEMOCOMS DANDELIONCOLORDEMOS) previous date: "12-OCT-83 14:12:44" {ERIS}LIBRARY>COLORDEMO.;1) SENDCOLORREGION D1 (I 1 REGION I 0 COLORBITMAP) g@A (15Q PCWRITEREGION 2 MACHINETYPE) (5 DANDELION) () COLORDEMOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 \NEXTCOLORDEMO P 2 COLORMENU F 4 RESETVARSLST F 5 DEMODEFAULTCOLORMAP F 6 DEMORAININGCOLORMAP F 7 FASTFLG F 10Q RESETY F 11Q DANDELIONCOLORDEMOS F 12Q COLORMENT) gigll  U c  `  V c gU hhTc`dogW`o HdIdgdg dgjdndhHdI gJhWn`W J J  hhhTcWgJ  hhTch`Kg5gl(l<hK `K``[hci(507Q APPLY 471Q IDATE 454Q MACHINETYPE 414Q SETDISPLAYHEIGHT 404Q CHECK/MENU/IMAGE 355Q ADDMENU 352Q GETBOXPOSITION 342Q CHECK/MENU/IMAGE 331Q CHECK/MENU/IMAGE 314Q CHECK/MENU/IMAGE 201Q \APPEND2 157Q MACHINETYPE 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) (540Q \NEWCOLORDEMO 531Q \FIRSTAUTODEMO 521Q COLORDEMOS 513Q \NEWCOLORDEMO 502Q \NEWCOLORDEMO 475Q STOPDATE 457Q DORADO 446Q STOP 437Q \FIRSTAUTODEMO 433Q \NEWCOLORDEMO 407Q BITMAP 400Q SETDISPLAYHEIGHT 345Q BITMAP 334Q BITMAP 317Q BITMAP 307Q SCREENHEIGHT 273Q CLOSEW 235Q DEFAULTMENUHELDFN 226Q CLRPROMPT 217Q CHOOSEDEMO 172Q COLORDEMOS 162Q DANDELION 143Q MENUTYPE# 122Q SCREENCOLORMAP 74Q DEMORAINBOWMAP 61Q DEMORAINBOWMAP 13Q DORADO) ( 176Q (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 (DUMMY.FOR.ERRORSET)) 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 11Q J P 7 I P 5 Y P 4 X P 3 MAXCOLOR P 2 CBM P 1 HT P 0 WD I 0 WAIT) 7 igll nn$@l( h lkON'JjdJjIM nnggjK jH jI JjdJjHL jIM LMggjK lk OO{jH jI JjHL jIM JjHL jIM LMgjl djgkgg g n, `ljOk_ Ok_ h(451Q ROTATECOLORMAP 446Q SCREENCOLORMAP 417Q GETMOUSESTATE 413Q DISMISS 404Q SENDCOLORREGION 401Q COLORSCREENBITMAP 371Q MACHINETYPE 365Q BITBLT 336Q RAND 323Q RAND 314Q RAND 304Q RAND 275Q RAND 264Q RAND 256Q RAND 233Q BITBLT 227Q RAND 211Q RAND 202Q RAND 166Q RAND 160Q RAND 151Q QUITP 143Q BITBLT 137Q RAND 115Q RAND 61Q QUITP 55Q QUITP 42Q MAXIMUMCOLOR 37Q COLORSCREENBITMAP 25Q COLORDISPLAY 10Q MACHINETYPE 2 COLORDISPLAYP) (423Q LASTMOUSEBUTTONS 374Q DANDELION 361Q PAINT 355Q REPLACE 346Q INVERT 330Q INPUT 221Q REPLACE 216Q TEXTURE 131Q REPLACE 126Q 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) NIL 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(204Q ROTATECOLORMAP 175Q QUITP 171Q QUITP 161Q SENDCOLORREGION 156Q COLORSCREENBITMAP 153Q EXMINESHAFT 140Q QUITP 134Q QUITP 121Q ROTATECOLORMAP 112Q QUITP 106Q QUITP 76Q SCREENCOLORMAP 65Q ROTATECOLORMAP 56Q QUITP 52Q QUITP 42Q SENDCOLORREGION 37Q COLORSCREENBITMAP 34Q EXMINESHAFT 16Q EXPT 13Q COLORMAPBITS 10Q SCREENCOLORMAP 3 SCREENCOLORMAP) (73Q DEMORAINBOWMAP) () 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 LOGODEMOA0001A0002 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)) LOGODEMOA0001 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(204Q ERROR! 174Q NLEFT 165Q TAILP 137Q LOGODEMOA0001A0002 106Q QUITP 73Q DISMISS 65Q ROTATECOLORMAP 60Q SCREENCOLORMAP 53Q QUITP 46Q QUITP 40Q SENDCOLORREGION 35Q COLORSCREENBITMAP 31Q COLORLOGO 17Q COLORBACKGROUND 5 COLORMAPBITS 2 SCREENCOLORMAP) (145Q INTERLISP-D/COLORBITMAP 134Q INTERNAL 116Q INTERLISP-D/COLORBITMAP 113Q INTERLISP-D/COLORBITMAP) ( 131Q (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 LOGODEMOA0001 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))) (PRETTYCOMPRINT COLORDEMOCOMS) (RPAQQ COLORDEMOCOMS ((FNS SENDCOLORREGION) (FNS COLORDEMO CHOOSEDEMO DOCOLORDROP EXMINESHAFT MINESHAFT MODART MODARTDEMO POINTTEST PUTDROPS QUITP RAINING RAININGCOLORMAP ROTATEIT SHOWCOLORW TUNNEL TUNNELDEMO CIRCLEDEMO WELL) (VARS COLORDEMOS DANDELIONCOLORDEMOS \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 (FNS OVERPAINTDEMO OVERPAINTBM OVERPAINTSELFN CACHEBITMAP NEWX NEWY) (VARS (OVERPAINTBITMAPS))) (COMS (FNS WALKDEMO WALKBM RANDCOLORMAP) (INITVARS MAXWALK MINWALK RANDCOLORPROB (WALKRANDOMCOLORMAP) (8BITBMEXP (LIST (HARRAY 60 ))) (4BITBMEXP (LIST (HARRAY 60)))) (GLOBALVARS 8BITBMEXP 4BITBMEXP WALKRANDOMCOLORMAP)) (FILES COLOR) )) (RPAQQ COLORDEMOS (LOGODEMO MODARTDEMO TUNNELDEMO)) (RPAQQ DANDELIONCOLORDEMOS (LOGODEMO MODARTDEMO TUNNELDEMO)) (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 1984)) NIL