(FILECREATED " 8-Dec-85 15:11:39" ("compiled on " {ERIS}LIBRARY>COLORDEMO.;3) "26-Nov-85 14:28:40" recompiled changes: COLORDEMO MODART MODARTDEMO VINEDEMO in "INTERLISP-D 26-Nov-85 ..." dated "26-Nov-85 14:41:27") (FILECREATED " 8-Dec-85 15:10:43" {ERIS}LIBRARY>COLORDEMO.;3 44967 changes to: (FNS COLORDEMO MODART MODARTDEMO VINEDEMO) (VARS COLORDEMOCOMS) previous date: "20-Jun-85 18:11:13" {ERIS}LIBRARY>COLORDEMO.;2) COLORDEMOA0001 D1 (NAME ERRORSET L (0 NIL) P 3 \NEXTCOLORDEMO P 2 COLORMENU F 4 RESETVARSLST F 5 DEMORAININGCOLORMAP F 6 FASTFLG F 7 RESETY F 10Q COLORMENT) Qi  `  `  U c g` hhTc`do`o HdIdgdg dgjdndhHdI gJhVn`W J J  hhhTcVgJ  hhTch`Kg5gl(l<hK `K``[hci(461Q APPLY 443Q IDATE 426Q MACHINETYPE 366Q SETDISPLAYHEIGHT 356Q CHECK/MENU/IMAGE 330Q ADDMENU 325Q GETBOXPOSITION 315Q CHECK/MENU/IMAGE 304Q CHECK/MENU/IMAGE 267Q CHECK/MENU/IMAGE 155Q \APPEND2 115Q SCREENCOLORMAP 101Q RAININGCOLORMAP 74Q TYPENAME 70Q TYPENAME 65Q SCREENCOLORMAP 56Q RAINBOWMAP 51Q TYPENAME 43Q TYPENAME 40Q SCREENCOLORMAP 31Q COLORMAPCREATE 24Q TYPENAME 16Q TYPENAME 13Q SCREENCOLORMAP 7 COLORDISPLAY 2 COLORDISPLAYP) (512Q \NEWCOLORDEMO 503Q \FIRSTAUTODEMO 473Q COLORDEMOS 465Q \NEWCOLORDEMO 454Q \NEWCOLORDEMO 447Q STOPDATE 431Q DORADO 420Q STOP 411Q \FIRSTAUTODEMO 405Q \NEWCOLORDEMO 361Q BITMAP 352Q SETDISPLAYHEIGHT 320Q BITMAP 307Q BITMAP 272Q BITMAP 262Q SCREENHEIGHT 247Q CLOSEW 211Q DEFAULTMENUHELDFN 202Q CLRPROMPT 173Q CHOOSEDEMO 146Q COLORDEMOS 132Q MENUTYPE# 112Q DEMODEFAULTCOLORMAP 107Q SCREENCOLORMAP 61Q DEMORAINBOWMAP 46Q DEMORAINBOWMAP 34Q DEMODEFAULTCOLORMAP 21Q DEMODEFAULTCOLORMAP) ( 152Q (STOP) 140Q "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) i nnDl2k_ON jH jI JjdJjHL jIM LMjk jggjl jggjK l Ok_(175Q DISMISS 167Q \NUBITBLT 163Q COLORTEXTUREFROMCOLOR# 160Q RAND 141Q RAND 121Q RAND 112Q RAND 103Q RAND 67Q RAND 61Q RAND 51Q ROTATECOLORMAP 46Q SCREENCOLORMAP 24Q MAXIMUMCOLOR 21Q COLORSCREENBITMAP 7 COLORDISPLAY 2 COLORDISPLAYP) (153Q PAINT 147Q INVERT 133Q INPUT 127Q TEXTURE) () 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) & i 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(430Q ROTATECOLORMAP 425Q SCREENCOLORMAP 407Q \FZEROP 363Q GETMOUSESTATE 357Q DISMISS 350Q BITBLT 321Q RAND 306Q RAND 277Q RAND 267Q RAND 260Q RAND 247Q RAND 241Q RAND 216Q BITBLT 212Q RAND 174Q RAND 165Q RAND 151Q RAND 143Q RAND 134Q QUITP 126Q BITBLT 122Q RAND 100Q RAND 43Q QUITP 37Q QUITP 24Q MAXIMUMCOLOR 21Q COLORSCREENBITMAP 7 COLORDISPLAY 2 COLORDISPLAYP) (367Q LASTMOUSEBUTTONS 344Q PAINT 340Q REPLACE 331Q INVERT 313Q INPUT 204Q REPLACE 201Q TEXTURE 114Q REPLACE 111Q TEXTURE) () 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) J  ` 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(502Q SETCOLORINTENSITY 473Q RAND 465Q RAND 457Q RAND 451Q RAND 441Q SCREENCOLORMAP 431Q DRAWLINE 410Q IMOD 377Q NTH 374Q RAND 356Q INRANGE 341Q NTH 336Q RAND 301Q INRANGE 251Q INRANGE 236Q INRANGE 232Q RAND 215Q INRANGE 211Q RAND 171Q QUITP 165Q QUITP 153Q DSPCREATE 150Q COLORSCREENBITMAP 145Q BITBLT 125Q COLORSCREENBITMAP 117Q SETCOLORINTENSITY 110Q RAND 102Q RAND 74Q RAND 64Q SCREENCOLORMAP 60Q RAND 50Q RAND 22Q MAXIMUMCOLOR 10Q SCREENCOLORMAP) (422Q REPLACE 137Q REPLACE 134Q TEXTURE 5 DEMORAINBOWMAP) ( 366Q (-1 0 0 0 0 0 0 1) 330Q (-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) (DEMORAININGCOLORMAP)) (GLOBALVARS COLORDEMOS \FIRSTAUTODEMO \NEWCOLORDEMO STOPDATE DEMORAINBOWMAP DEMODEFAULTCOLORMAP) (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 DEMORAININGCOLORMAP 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