(FILECREATED "29-Nov-86 17:25:35" ("compiled on " {ERIS}LIBRARY>COLORDEMO.;17) "25-Nov-86 00:46:57" bcompl'd in "Xerox Lisp 25-Nov-86 ..." dated "25-Nov-86 01:18:01") (FILECREATED " 3-Sep-86 21:36:32" {ERIS}LIBRARY>COLORDEMO.;17 59524 changes to: (FNS COLORDEMO CD.RANDCOLORMAP TILEDEMO CD.INIT.COLORMAPS KINETICDEMO CD.QUITP WELLDEMO TUNNELDEMO CD.KINETIC VINEDEMO RAINING MODARTDEMO STARBURSTDEMO COLORPEANODEMO BUBBLEDEMO OVERPAINTDEMO CD.INIT CD.INIT.WINDOWS WALKDEMO CD.WALKBM CD.DEMOKINETIC COLORBACKGROUND COLORMAPOF CD.CIRKIN CD.INRANGE CD.PUTDROPS CD.DOCOLORDROP CD.RAININGCOLORMAP CD.STARBURST CD.STARSHINE CD.BUBBLE CD.INIT.MENU CD.NEXTELEMENT CD.RANDELEMENT CD.CHOOSEDEMO CD.MINESHAFT CD.POINTTEST CD.SQUARETUNNEL CD.CIRCULARTUNNEL CD.ROTATEIT) (VARS COLORDEMOCOMS) previous date: " 3-Sep-86 16:25:44" {ERIS}CML>COLORDEMO.;3) COLORDEMO D4 (P 4 BITMAP P 3 BITSPERPIXEL P 2 DEMO P 1 WINDOW P 0 WINDOWS F 5 CD.MENU F 6 CD.TILEBITMAPS F 7 CD.WINDOW1 F 8 CD.WINDOW2 F 9 CD.WINDOW3 F 10 CD.WINDOW4) PUU UhU U  U U WWWWhXIH ` J` hJgFl<` hIlJl V  lddK IhdL LVc U h(178 CLOSEW 175 WFROMMENU 162 BKBITBLT 154 BITMAPCREATE 146 BITSPERPIXEL 143 COLORSCREENBITMAP 137 LENGTH 122 SCREENCOLORMAP 119 CD.RANDELEMENT 106 IDATE 90 CD.NEXTELEMENT 77 CD.NEXTELEMENT 57 OPENW 54 WFROMMENU 49 OPENWP 46 WFROMMENU 41 ADDMENU 38 GETBOXPOSITION 30 CHECK/MENU/IMAGE 21 CHECK/MENU/IMAGE 13 WFROMMENU 8 CD.INIT) (116 CD.COLORMAPS 112 CD.STOPDATE 100 STOP 95 CD.NEWDEMO 87 CD.DEMOS 81 CD.NEWDEMO 33 BITMAP 24 BITMAP) () CD.INIT D4 NIL h(8 CD.INIT.MENU 5 CD.INIT.WINDOWS 2 CD.INIT.COLORMAPS) NIL () CD.INIT.COLORMAPS D4 (P 3 COLOR P 1 MAXCOLOR P 0 BITSPERPIXEL F 7 CD.CMYCOLORMAP F 8 CD.RGBCOLORMAP)   Xd YHdllkdll lldl cHdllkdl l lldl cIj2KJ,jl jl jl hM Nh]Kk[N&LH H Ijl KJ'`Kjl jl jl h Kl[WW``h(192 SETA 185 RAND 179 RAND 173 RAND 155 RAND 144 RAINBOWMAP 137 COLORMAPCREATE 107 RAND 101 RAND 95 RAND 77 RGBCOLORMAP 61 CMYCOLORMAP 43 CMYCOLORMAP 13 MAXIMUMCOLOR 8 BITSPERPIXEL 5 COLORSCREENBITMAP) (219 CD.COLORMAPS 211 CD.RAINBOW.COLORMAP 208 CD.RANDOM.COLORMAP 166 CD.RAINBOW.COLORMAP 147 CD.RAINBOW.COLORMAP 140 CD.RANDOM.COLORMAP) () CD.INIT.WINDOWS D4 (P 12 HEIGHT P 11 WIDTH P 10 WEST P 9 SOUTH P 8 EAST P 7 NORTH P 6 SOUTHEAST P 5 SOUTHWEST P 4 NORTHEAST P 3 NORTHWEST P 2 TAB P 1 CSHEIGHT P 0 CSWIDTH F 13 CD.WINDOW1 F 14 CD.WINDOW2 F 15 CD.WINDOW3 F 16 CD.WINDOW4)   X YlZHJll_IJll_JdOJ[JOJJOJ\Jd]JOJJ^HOlIJO_HOJIOl_HOlJ_JIOl_KKOOhg cLLOOhg cMMOOhg cNNOOhg c h(229 CREATEW 209 COLORSCREEN 204 CREATEW 184 COLORSCREEN 179 CREATEW 159 COLORSCREEN 154 CREATEW 134 COLORSCREEN 15 BITMAPHEIGHT 12 COLORSCREENBITMAP 8 BITMAPWIDTH 5 COLORSCREENBITMAP) (226 WINDOW4 201 WINDOW3 176 WINDOW2 151 WINDOW1) () CD.INIT.MENU D4 (F 2 CD.MENU) N`do`o HdIdgdg dgjdndhHdI c(21 \APPEND2) (49 DEFAULTMENUHELDFN 42 CLRPROMPT 35 CD.CHOOSEDEMO 14 CD.DEMOS 2 MENUTYPE#) ( 18 (STOP) 8 "Color Demos") CD.NEXTELEMENT D4 (L (1 LIST 0 ELEMENT)) @AddANIL NIL () CD.RANDELEMENT D4 (I 0 LIST) @k@ (11 NTH 8 RAND 5 LENGTH) NIL () CD.CHOOSEDEMO D4 (L (0 NEW)) @NIL (3 CD.NEWDEMO) () CD.QUITP D4 (I 0 N F 0 CD.TIMECELL) 3Plc`#@3 `djP njP h(43 CLOCK 31 CLOCK 2 BLOCK) (47 CD.STOPDATE 23 CD.STOPDATE 13 CD.NEWDEMO) () CD.MINESHAFT D4 (P 6 BOTTOM P 5 LEFT P 3 MAXCOLOR P 2 HEIGHT P 1 WIDTH P 0 COLOR I 2 OUTFLG I 1 N I 0 WINDOW) @@gg AkbjX@g Y@g Z@ [JljdO)Oj_OO SjONJlNJl>H@MNIMlJNl BHkٸjHKHkXKjMAlԽNAl_Ծh(116 BLTSHADE 73 \FZEROP 43 MAXIMUMCOLOR 40 BITSPERPIXEL 35 GETWINDOWPROP 27 GETWINDOWPROP 12 PUTWINDOWPROP) (32 HEIGHT 24 WIDTH 9 CD.MINESHAFT 6 TITLE) () CD.POINTTEST D4 (P 4 I P 2 MAXCOLOR P 1 MAXY P 0 MAXX I 0 WINDOW) F0@g kX@g kY@ ZldkLK@jH jI jJ Lk\h(57 RAND 52 RAND 47 RAND 29 MAXIMUMCOLOR 26 BITSPERPIXEL 19 GETWINDOWPROP 9 GETWINDOWPROP) (16 HEIGHT 6 WIDTH) () WELLDEMO D4 (P 1 THRUCOLOR P 0 STARTCOLOR I 0 WAIT F 2 CD.WINDOW1 F 3 CD.WINDOW2 F 4 CD.WINDOW3 F 5 CD.WINDOW4) ? kXlYRlHI SlIH TlIH UlHI @lx HI h(56 ROTATECOLORMAP 50 CD.QUITP 47 CD.QUITP 39 CD.CIRCULARTUNNEL 31 CD.CIRCULARTUNNEL 23 CD.SQUARETUNNEL 15 CD.SQUARETUNNEL) NIL () TUNNELDEMO D4 (P 1 THRUCOLOR P 0 STARTCOLOR I 0 WAIT F 2 CD.WINDOW1 F 3 CD.WINDOW2 F 4 CD.WINDOW3 F 5 CD.WINDOW4) 7 kXlYRHI SIH TIH UHI @lx HI h(48 ROTATECOLORMAP 42 CD.QUITP 39 CD.QUITP 31 CD.CIRCULARTUNNEL 25 CD.CIRCULARTUNNEL 19 CD.SQUARETUNNEL 13 CD.SQUARETUNNEL) NIL () CD.SQUARETUNNEL D4 (P 8 COLOR P 7 DELTA P 6 INCR P 5 BOTTOMFACTOR P 4 LEFTFACTOR P 3 FACTOR P 2 MAXBOTTOM P 1 BOTTOM P 0 LEFT I 2 THRUCOLOR I 1 STARTCOLOR I 0 WINDOW) oXoY@ oZo[do\Ko]ABkm_A_d@HjIj@ Ho@ Io JIooHNLINMYJOdBA_O_h(89 BLTSHADE 78 BITMAPHEIGHT 67 BITMAPWIDTH 16 BITMAPHEIGHT) NIL ( 102 1.0 97 0.1 83 2.0 72 2.0 39 3.0 32 4.0 26 0.2 20 2.0 11 0.0 6 0.0) CD.CIRCULARTUNNEL D4 (P 7 I P 5 COLOR P 4 DELTA P 3 SIZE P 2 HEIGHT P 1 WIDTH P 0 N I 2 THRUCOLOR I 1 STARTCOLOR I 0 WINDOW) `lX@ Y@ ZIdJd l[ABkmA]KkO#OjPOO DjOKOOK5IlJlOgHlMhh@ MdBALؽOH__h(110 DRAWCIRCLE 65 \FZEROP 25 SQRT 14 BITMAPHEIGHT 9 BITMAPWIDTH) (95 ROUND) () CD.ROTATEIT D4 (I 2 WAIT I 1 ENDCOLOR I 0 BEGINCOLOR) %@A BB` (32 DISMISS 26 DISMISS 16 GETMOUSESTATE 4 ROTATECOLORMAP) (20 LASTMOUSEX) () COLORMAPOF D4 (I 1 BITSPERPIXEL I 0 NEWCM) !@ A@ @@A @dihA (30 COLORMAPCREATE 18 COLORMAPCOPY 9 COLORMAPBITS 3 COLORMAPP) NIL () COLORMAPCOPY D4 (I 1 BITSPERPIXEL I 0 COLORMAP) @A @ A (14 COLORMAPCREATE 10 INTENSITIESFROMCOLORMAP 4 COLORMAPP) NIL () COLORFILL D4 (P 0 COLORBM I 3 OPERATION I 2 COLORBM I 1 COLOR# I 0 REGION) 4HHH X@jdhd@@@AHC h(48 COLORFILLAREA 19 \ILLEGAL.ARG 15 COLORSCREENBITMAP) (6 BITMAP) () COLORBACKGROUND D4 (I 0 TEXTURE) @ (6 CHANGEBACKGROUND 3 COLORSCREEN) NIL () COLORFILLAREA D4 (I 6 OPERATION I 5 COLORBM I 4 COLOR# I 3 HEIGHT I 2 WIDTH I 1 BOTTOM I 0 LEFT) Eb hddE@ABCgFD (24 BKBITBLT 4 COLORSCREENBITMAP) (18 TEXTURE) () WALKDEMO D4 (P 1 I I 4 WORDS I 3 WORD1 I 2 SPEED I 1 WAIT I 0 WINDOW F 2 CD.OVERPAINTBITMAPS) C@ R o hcHhAl @IhB l @hdB HX(59 CD.WALKBM 51 CD.QUITP 45 CD.WALKBM 36 CD.QUITP 13 BITMAPFROMSTRING 3 CLEARW) NIL ( 10 "Interlisp-D") CD.WALKBM D4 (P 12 COLORCOUNTER P 11 J P 10 I P 9 DY P 8 DX P 7 Y P 6 X P 5 MAXCOLOR P 4 MAXY P 3 MAXX P 2 SCR P 1 EBM P 0 BITSPERPIXEL I 3 SPEED I 2 FONT I 1 BM I 0 WINDOW F 13 CD.MINWALK F 14 CD.MAXWALK) `@ XClbH ]ABH Yd Z@g I [@g I \ mdjdkjd OdMkk_NOԾOO_OjjNKNjOLO,jK jL _jCC _jCC _WW Ok_INOO J Ok_n,j_ kM l `h(233 DISMISS 227 ROTATECOLORMAP 221 SCREENCOLORMAP 218 CD.RANDCOLORMAP 199 OVERPAINT 194 COLORTEXTUREFROMCOLOR# 186 COLORSCREENBITMAP 174 RAND 164 RAND 154 RAND 144 RAND 138 RAND 77 CD.QUITP 63 SCREENCOLORMAP 60 CD.RANDCOLORMAP 55 BITMAPHEIGHT 51 GETWINDOWPROP 42 BITMAPWIDTH 38 GETWINDOWPROP 30 BITMAPCOPY 25 CACHEBITMAP 18 MAXIMUMCOLOR 6 BITSPERPIXEL) (48 HEIGHT 35 WIDTH) () CD.RANDCOLORMAP D4 (P 2 COLOR P 0 MAXCOLOR)  Xkl dkD`=HjJI)`J jl jl jl h JkZ`lP`J Hjl JI*`J jl jl jl h JlZ`h(156 SETA 149 RAND 143 RAND 137 RAND 131 ELT 116 RAND 105 RAINBOWMAP 102 COLORMAPBITS 99 SCREENCOLORMAP 75 SETA 68 RAND 62 RAND 56 RAND 50 ELT 29 COLORMAPCREATE 15 RAND 8 BITSPERPIXEL 5 SCREENCOLORMAP) (167 CD.RAINBOW.COLORMAP 127 CD.RAINBOW.COLORMAP 108 CD.RAINBOW.COLORMAP 94 CD.RAINBOW.COLORMAP 85 CD.RANDOM.COLORMAP 46 CD.RANDOM.COLORMAP 32 CD.RANDOM.COLORMAP 24 CD.RANDOM.COLORMAP) () KINETICDEMO D4 (P 4 Y P 3 X P 2 MAXY P 1 MAXX P 0 MAXCOLOR I 1 WINDOW I 0 WAIT) PAgo A A XA kYA kZ@lx QjI jJ jH AKLlIK lJL jl djgdkglgg h(128 BLTSHADE 94 RAND 88 RAND 80 RAND 69 RAND 63 RAND 57 RAND 50 CD.QUITP 47 CD.QUITP 36 BITMAPHEIGHT 29 BITMAPWIDTH 24 MAXIMUMCOLOR 21 BITSPERPIXEL 17 CLEARW 13 PUTWINDOWPROP) (124 REPLACE 120 INVERT 112 ERASE 102 PAINT 6 TITLE) ( 10 "KINETIC") CD.DEMOKINETICA0003 D4 (P 3 SI*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 4 CD.KINETICMENU F 5 PROCEED-CASE0571 F 6 *PROCEED-CASES*) Ki@ggggUgjgg gg VTT h (70 \MVLIST 64 MENU 59 INIT/COLORDEMO/MENUS 43 MAKE-PROCEED-CASE 39 CLSYMBOL-FUNCTION 30 CLSYMBOL-FUNCTION) (55 MENU 36 SIERRORSET-PRINT-FUNCTION 33 REPORT 27 TRUE 24 TEST 20 SELECTOR 16 TAG 13 ABORT 10 NAME 7 NORMAL) () CD.DEMOKINETIC D4 (P 16 PROCEED-CASE0569 P 15 A0573 P 14 PROCEED-CASE0570 P 13 A0572 P 12 PROCEED-CASE0571 P 11 HALFHEIGHT P 10 HALFWIDTH P 9 KINROTATETIME P 8 ROTATETIME P 7 COLOR# P 6 Y P 5 X P 4 TOP P 3 BOTTOM P 2 RIGHT P 1 LEFT P 0 BITSPERPIXEL I 2 LASTCOLOR I 1 FIRSTCOLOR I 0 WINDOW F 17 CD.LOGOWAITTIME F 18 CD.KINWAITTIME)  @ A jbB H bABBAbbj@g j@g A_j _j _Jl_Ll_A@ O W"kH O _O W$AB O _IJ KL OdBAk_@MNlJMdOO lLNdOO g `kjhh O 1O_ O__O dgO j:hdg=dgW"ojc"(dgW"ojc"dgW$ojc$dgW$ojc$gh`ljAB O W"kH O _O W$AB O _`dW"W" (475 DISMISS 458 CLOCK0 452 ROTATECOLORMAP 443 CLOCKDIFFERENCE 435 CLOCK0 429 ROTATECOLORMAP 426 MAXIMUMCOLOR 416 CLOCKDIFFERENCE 410 ROTATECOLORMAP 392 GETMOUSESTATE 292 EDITCOLORMAP 274 CLVALUES-LIST 242 CD.DEMOKINETICA0003 219 GETMOUSESTATE 215 BLTSHADE 208 RAND 192 RAND 159 RAND 153 RAND 145 CLOCK0 139 ROTATECOLORMAP 130 CLOCKDIFFERENCE 122 CLOCK0 116 ROTATECOLORMAP 113 MAXIMUMCOLOR 103 CLOCKDIFFERENCE 97 BLTSHADE 75 CLOCK 68 CLOCK 59 GETWINDOWPROP 49 GETWINDOWPROP 25 MAXIMUMCOLOR 20 COLORNUMBERP 11 COLORNUMBERP 6 BITSPERPIXEL) (464 CD.KINETICWAITTIME 396 LASTMOUSEBUTTONS 382 STOP 362 DecreaseColorFlip 341 IncreaseColorFlip 320 DecreaseLogoSpeed 299 IncreaseLogoSpeed 286 EditColorMap 266 NORMAL 223 LASTMOUSEBUTTONS 211 REPLACE 56 HEIGHT 46 WIDTH) ( 371 1.3 350 0.8 329 1.3 308 0.8) CD.CIRKIN D4 (P 5 I P 3 MAXCOLOR P 2 MAXRAD P 1 MAXY P 0 MAXX I 0 WINDOW) @@gg @ @g kٸ@g kٹHdIIlZlkML"jH jI jJ jK @ Mk]jl djgdkglgg@ (137 DSPOPERATION 103 RAND 89 FILLCIRCLE 84 RAND 79 RAND 74 RAND 69 RAND 38 GETWINDOWPROP 28 GETWINDOWPROP 20 MAXIMUMCOLOR 17 BITSPERPIXEL 12 PUTWINDOWPROP) (133 ERASE 129 INVERT 121 PAINT 111 REPLACE 35 HEIGHT 25 WIDTH 9 CD.CIRKIN 6 TITLE) () VINEDEMO D4 (P 11 MAXWIDTH P 10 WIDTH P 9 MAXCOLOR P 8 COLOR P 7 Y2 P 6 X2 P 5 DY P 4 DX P 3 Y1 P 2 X1 P 1 MAXY P 0 MAXX I 1 WINDOW I 0 WAIT) !  Ago A A kXA kYHlZIl[A _dl_HdIIl_l _j\d]@lx h jJlHJlLjJlHJl jKlIKlMjKlIKl jHJL ^jNHjLټjIKM _jOIjMٽkOOokl Olk _Ookl O _JKNOOgAO NO:h(276 DRAWLINE 256 IMOD 249 NTH 246 RAND 231 CD.INRANGE 218 NTH 215 RAND 186 CD.INRANGE 166 CD.INRANGE 157 CD.INRANGE 153 RAND 124 CD.INRANGE 120 RAND 88 CD.QUITP 84 CD.QUITP 48 MAXIMUMCOLOR 45 BITSPERPIXEL 28 BITMAPHEIGHT 21 BITMAPWIDTH 17 CLEARW 13 PUTWINDOWPROP) (269 REPLACE 6 TITLE) ( 240 (-1 0 0 0 0 0 0 1) 209 (-1 0 0 0 0 0 0 1) 10 "VINE") CD.INRANGE D4 (L (2 VALUE 1 MAX 0 MIN)) @AdBBHdIINIL NIL () RAINING D4 (P 4 COLOR# P 3 HEIGHT P 2 WIDTH P 1 MAXCOLOR P 0 N I 1 WINDOW I 0 WAIT) aPAgo A lXA YA ZA [jI \@lx h %l Jl l Kl HdllLIA h(90 CD.DOCOLORDROP 76 RAND 67 RAND 56 CD.QUITP 52 CD.QUITP 43 RAND 37 BITMAPHEIGHT 32 BITMAPWIDTH 27 MAXIMUMCOLOR 24 BITSPERPIXEL 17 CLEARW 13 PUTWINDOWPROP) (6 TITLE) ( 10 "RAINING") CD.PUTDROPS D4 (P 1 MAXCOLOR P 0 POS I 1 N I 0 WINDOW) F @ Y@ `ljhHHAl`ljlll l ljI@ (66 CD.DOCOLORDROP 57 RAND 15 GETPOSITION 9 MAXIMUMCOLOR 6 BITSPERPIXEL) (39 LASTMOUSEBUTTONS 19 LASTMOUSEBUTTONS) () CD.DOCOLORDROP D4 (P 1 I I 7 WINDOW I 6 MAXCOLOR I 5 COLOR# I 4 NCIRCLES I 3 RADIUSINCR I 2 WIDTH I 1 Y I 0 X) 6DkIH+@AICgBEkb FEjb hhG IkYE(43 DRAWCIRCLE) (17 ROUND) () CD.RAININGCOLORMAP D4 (I 0 BITSPERPIXEL) @dl`ohlld2IHjdIhKLh[Il2YL&Jl j2IHoK Lh[IkYL&J gl^ohlld2IHjdIhKLh[Il2YL&Jl j2IHoK Lh[IkYL&J @ @ (205 COLORMAPCREATE 201 \ILLEGAL.ARG 196 \NCONC2 193 \NCONC2 98 \NCONC2 95 \NCONC2) NIL ( 168 (0 0 0) 109 (0 0 0) 70 (0 0 0) 11 (0 0 0)) MODARTDEMO D4 (P 6 B P 5 L P 4 H P 3 W P 2 MAXCOLOR P 1 HEIGHT P 0 WIDTH I 1 WINDOW I 0 WAIT) pAgo A A XA YA Z@lx ojH jI jHK jIL AjdAMNKLjl djgkggjl djgdkglggjJ h(154 BKBITBLT 150 RAND 115 RAND 90 RAND 75 RAND 67 RAND 59 RAND 53 RAND 46 CD.QUITP 43 CD.QUITP 34 MAXIMUMCOLOR 31 BITSPERPIXEL 26 BITMAPHEIGHT 21 BITMAPWIDTH 17 CLEARW 13 PUTWINDOWPROP) (145 ERASE 141 INVERT 133 PAINT 123 REPLACE 109 TEXTURE 105 INVERT 98 INPUT 6 TITLE) ( 10 "MODART") STARBURSTDEMO D4 (P 4 MINWIDTH P 3 MAXWIDTH P 2 MAXCOLOR P 1 MAXY P 0 MAXX I 1 WINDOW I 0 WAIT) SPAgo A A kXA kYA ZHdIIl[dl\@lx HILKA h(76 CD.STARBURST 66 CD.QUITP 63 CD.QUITP 38 MAXIMUMCOLOR 35 BITSPERPIXEL 28 BITMAPHEIGHT 21 BITMAPWIDTH 17 CLEARW 13 PUTWINDOWPROP) (6 TITLE) ( 10 "STARBURST") CD.STARBURST D4 (P 18 THETA P 16 DELTA3 P 15 COLOR3 P 14 CY3 P 13 CX3 P 12 DELTA2 P 11 COLOR2 P 10 CY2 P 9 CX2 P 8 DELTA1 P 7 COLOR1 P 6 CY1 P 5 CX1 P 4 S P 3 C P 2 RADIUS P 1 NCOLORS P 0 BITSPERPIXEL I 4 WINDOW I 3 MAXWIDTH I 2 MINWIDTH I 1 MAXY I 0 MAXX)  D Xd kYBC Zj@ jA jIk _ljHk _j@ _jA _jIk _ljHk _j@ _jA _jIk _ljHk _ l,jO$O"gJO$ JO$ MNKLDO OOI _OOKLDO OOI _OOKLDO OO I _O$l_$h(241 IMOD 231 CD.STARSHINE 215 IMOD 205 CD.STARSHINE 189 IMOD 179 CD.STARSHINE 166 SIN 158 COS 137 EXPT 134 RAND 122 RAND 112 RAND 104 RAND 97 EXPT 94 RAND 82 RAND 72 RAND 64 RAND 57 EXPT 54 RAND 42 RAND 34 RAND 28 RAND 22 RAND 14 MAXIMUMCOLOR 9 BITSPERPIXEL) NIL () CD.STARSHINE D4 (I 5 COLOR I 4 WINDOW I 3 S I 2 C I 1 CY1 I 0 CX1) [@BAC@BACkgDE @BAC@BACkgDE @CAB@CABkgDE @CAB@CABkgDE h(87 DRAWLINE 65 DRAWLINE 43 DRAWLINE 21 DRAWLINE) (81 REPLACE 59 REPLACE 37 REPLACE 15 REPLACE) () COLORPEANODEMO D4 (P 4 SCALE P 3 LEVEL P 2 MAXSHADE P 1 MAXCOLOR P 0 BITSPERPIXEL I 1 WINDOW I 0 WAIT F 6 PEANOWINDOW) v`Ago A Xd YH Z@lx KjI A jJ A jI A ll A A dMMlK ۼAc KL h(111 PEANODEMO 100 EXPT 87 BITMAPHEIGHT 83 BITMAPWIDTH 78 RAND 70 DSPBACKCOLOR 66 RAND 60 DSPTEXTURE 56 RAND 50 DSPCOLOR 46 RAND 39 CD.QUITP 36 CD.QUITP 27 MAXIMUMSHADE 22 MAXIMUMCOLOR 17 BITSPERPIXEL 13 PUTWINDOWPROP) (6 TITLE) ( 10 "PEANO") BUBBLEDEMO D4 (P 5 HOLLOW P 4 MINWIDTH P 3 MAXWIDTH P 2 MAXCOLOR P 1 MAXY P 0 MAXX I 1 WINDOW I 0 WAIT) k`Ago A A kXA kYA ZHdIIl[dl\jk ki@lx h jH jI LK MA h(100 CD.BUBBLE 94 RAND 89 RAND 84 RAND 77 CD.QUITP 73 CD.QUITP 60 RAND 38 MAXIMUMCOLOR 35 BITSPERPIXEL 28 BITMAPHEIGHT 21 BITMAPWIDTH 17 CLEARW 13 PUTWINDOWPROP) (6 TITLE) ( 10 "BUBBLE") CD.BUBBLE D4 (P 0 MAXCOLOR I 4 WINDOW I 3 HOLLOW I 2 RADIUS I 1 CENTERY I 0 CENTERX) )D X@ABjH D C@ABkjD h(37 FILLCIRCLE 23 FILLCIRCLE 18 RAND 9 MAXIMUMCOLOR 6 BITSPERPIXEL) NIL () OVERPAINTDEMO D4 (P 12 I P 10 STRING P 6 Y P 5 X P 4 HEIGHT P 3 WIDTH P 2 MAXCOLOR P 1 BITSPERPIXEL P 0 BITMAP I 0 WAIT F 13 CD.WINDOW1 F 14 CD.WINDOW3 F 15 CD.WINDOW4 F 16 CD.OVERPAINTBITMAPS F 17 CD.WINDOW2) ; pWgo W"go Wgo Wgo W Yd ZW [W \W 9@ o'd_gl$ I _O Oh_O&_Oc @lx W"hdW ll k OOHW jKH jLH W HhdWMN jJ W WhdWhdddgg WhdWhdddgg WhdWhdddgg Ok_zXh(297 BKBITBLT 276 BKBITBLT 255 BKBITBLT 234 BLTSHADE 229 RAND 223 BKBITBLT 211 CLEARW 205 RAND 201 BITMAPHEIGHT 194 RAND 190 BITMAPWIDTH 183 CD.NEXTELEMENT 164 RAND 156 BKBITBLT 143 CD.QUITP 140 CD.QUITP 102 BITMAPFROMSTRING 98 FONTCREATE 72 BITMAPHEIGHT 66 BITMAPWIDTH 60 MAXIMUMCOLOR 55 BITSPERPIXEL 50 PUTWINDOWPROP 38 PUTWINDOWPROP 26 PUTWINDOWPROP 14 PUTWINDOWPROP) (293 PAINT 290 INPUT 272 ERASE 269 INPUT 251 ERASE 248 INVERT 93 TIMESROMAND 43 TITLE 31 TITLE 19 TITLE 7 TITLE) ( 84 ("Interlisp-D" "Xerox" "Color") 47 "OUTPUT" 35 "INPUT" 23 "BACKGROUND" 11 "MASK") TILEDEMO D4 (P 4 WINDOW P 3 BITMAP P 2 BITSPERPIXEL P 1 WINDOW P 0 WINDOWS I 0 WAIT F 5 CD.TILEBITMAPS F 6 CD.WINDOW1 F 7 CD.WINDOW2 F 8 CD.WINDOW3 F 9 CD.WINDOW4) @VWWWhXlU + HdlddJ LhdK KUc U  Vgo Wgo Wgo Wgo @lx IH U [I h(150 TILE 145 CD.RANDELEMENT 140 CD.NEXTELEMENT 133 CD.QUITP 130 CD.QUITP 122 PUTWINDOWPROP 110 PUTWINDOWPROP 98 PUTWINDOWPROP 86 PUTWINDOWPROP 75 CHANGEBACKGROUND 72 COLORSCREEN 69 CD.RANDELEMENT 54 BKBITBLT 46 BITMAPCREATE 30 BITSPERPIXEL 27 COLORSCREENBITMAP 21 LENGTH) (115 TITLE 103 TITLE 91 TITLE 79 TITLE) ( 119 "WINDOW4" 107 "WINDOW3" 95 "WINDOW2" 83 "WINDOW1") POLYGONSDEMO D4 (I 0 WAIT F 0 CD.WINDOW1 F 1 CD.WINDOW2 F 2 CD.WINDOW3 F 3 CD.WINDOW4) +@lx h P Q R S h(36 COLORPOLYGONS.ROTATECOLORMAP 32 COLORPOLYGON 27 COLORPOLYGON 22 COLORPOLYGON 17 COLORPOLYGON 11 CD.QUITP 7 CD.QUITP) NIL () (PRETTYCOMPRINT COLORDEMOCOMS) (RPAQQ COLORDEMOCOMS ((* * COLORDEMO -- Color demonstration programs. By Richard Burton and Kelly Roach. *) (COMS (* Color Demo. Stuff needed to run through different demos, but not the individual demos themselves. *) (VARS (CD.DEMOS (QUOTE (KINETICDEMO VINEDEMO RAINING MODARTDEMO STARBURSTDEMO COLORPEANODEMO BUBBLEDEMO OVERPAINTDEMO TILEDEMO TUNNELDEMO POLYGONSDEMO)))) (INITVARS (CD.NEWDEMO NIL ) (CD.STOPDATE 0) (CD.TIMECELL NIL) (CD.WINDOW1 NIL) (CD.WINDOW2 NIL) (CD.WINDOW3 NIL) (CD.WINDOW4 NIL ) (CD.MENU NIL) (CD.COLORMAPS NIL)) (GLOBALVARS CD.DEMOS CD.NEWDEMO CD.STOPDATE) (FNS COLORDEMO CD.INIT CD.INIT.COLORMAPS CD.INIT.WINDOWS CD.INIT.MENU CD.NEXTELEMENT CD.RANDELEMENT CD.CHOOSEDEMO CD.QUITP)) (COMS (* Tunnel demo. *) (FNS CD.MINESHAFT CD.POINTTEST) (FNS WELLDEMO TUNNELDEMO CD.SQUARETUNNEL CD.CIRCULARTUNNEL)) (COMS (* Junk fns. *) (FNS CD.ROTATEIT) (FNS COLORMAPOF COLORMAPCOPY COLORFILL COLORBACKGROUND COLORFILLAREA)) (COMS (* Walk demos) (FNS WALKDEMO CD.WALKBM CD.RANDCOLORMAP) (INITVARS CD.MAXWALK CD.MINWALK CD.RANDCOLORPROB (CD.RANDOM.COLORMAP NIL) ( CD.RAINBOW.COLORMAP NIL) (CD.8BITBMEXP (LIST (HARRAY 60))) (CD.4BITBMEXP (LIST (HARRAY 60)))) ( GLOBALVARS CD.8BITBMEXP CD.4BITBMEXP CD.RANDOM.COLORMAP CD.RAINBOW.COLORMAP)) (COMS (* Kinetic demos * ) (FNS KINETICDEMO CD.DEMOKINETIC CD.CIRKIN) (VARS (CD.KINETICWAITTIME 150)) (GLOBALVARS CD.KINETICWAITTIME)) (COMS (* Vine demo *) (FNS VINEDEMO CD.INRANGE)) (COMS (* Raining demo *) (FNS RAINING CD.PUTDROPS CD.DOCOLORDROP CD.RAININGCOLORMAP)) (COMS (* Modart demo *) (FNS MODARTDEMO)) ( COMS (* Starburst demo *) (FNS STARBURSTDEMO CD.STARBURST CD.STARSHINE)) (COMS (* Peano demo *) (FILES (FROM LISPUSERS) PEANO) (FNS COLORPEANODEMO)) (COMS (* Bubble demo *) (FNS BUBBLEDEMO CD.BUBBLE)) ( COMS (* Overpaint demo *) (FNS OVERPAINTDEMO) (VARS (CD.OVERPAINTBITMAPS))) (COMS (* Tile demo *) ( INITVARS (CD.TILEBITMAPS NIL)) (FNS TILEDEMO)) (COMS (* Polygons demo *) (FILES (FROM LISPUSERS) COLORPOLYGONS) (FNS POLYGONSDEMO)) (FILES COLOR) (COMS (* Color font profile *) (VARS COLORFONTPROFILE ) (P (FONTPROFILE COLORFONTPROFILE) (* Create color fonts now instead of later. COLOR should already be LOADed. *) (for FONTCLASS in (LIST DEFAULTFONT BOLDFONT LITTLEFONT BIGFONT) do (FONTCREATE FONTCLASS NIL NIL NIL (QUOTE 8DISPLAY))) (FONTCREATE (QUOTE TIMESROMAND) 36 NIL NIL NIL (QUOTE 8DISPLAY)))))) (RPAQQ CD.DEMOS (KINETICDEMO VINEDEMO RAINING MODARTDEMO STARBURSTDEMO COLORPEANODEMO BUBBLEDEMO OVERPAINTDEMO TILEDEMO TUNNELDEMO POLYGONSDEMO)) (RPAQ? CD.NEWDEMO NIL) (RPAQ? CD.STOPDATE 0) (RPAQ? CD.TIMECELL NIL) (RPAQ? CD.WINDOW1 NIL) (RPAQ? CD.WINDOW2 NIL) (RPAQ? CD.WINDOW3 NIL) (RPAQ? CD.WINDOW4 NIL) (RPAQ? CD.MENU NIL) (RPAQ? CD.COLORMAPS NIL) (RPAQ? CD.MAXWALK NIL) (RPAQ? CD.MINWALK NIL) (RPAQ? CD.RANDCOLORPROB NIL) (RPAQ? CD.RANDOM.COLORMAP NIL) (RPAQ? CD.RAINBOW.COLORMAP NIL) (RPAQ? CD.8BITBMEXP (LIST (HARRAY 60))) (RPAQ? CD.4BITBMEXP (LIST (HARRAY 60))) (RPAQQ CD.KINETICWAITTIME 150) (FILESLOAD (FROM LISPUSERS) PEANO) (RPAQQ CD.OVERPAINTBITMAPS NIL) (RPAQ? CD.TILEBITMAPS NIL) (FILESLOAD (FROM LISPUSERS) COLORPOLYGONS) (FILESLOAD COLOR) (RPAQQ COLORFONTPROFILE ((DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8) (4DISPLAY (GACHA 10 MRR-WHITE-RED)) (8DISPLAY (GACHA 10 MRR-WHITE-RED)) (24DISPLAY (GACHA 10 MRR-WHITE-RED))) (BOLDFONT 2 (HELVETICA 10 BRR) (HELVETICA 8 BRR) (MODERN 8 BRR) (4DISPLAY (HELVETICA 10 BRR-WHITE-MAGENTA)) ( 8DISPLAY (HELVETICA 10 BRR-WHITE-MAGENTA)) (24DISPLAY (HELVETICA 10 BRR-WHITE-MAGENTA))) (LITTLEFONT 3 (HELVETICA 8) (HELVETICA 6 MIR) (MODERN 8 MIR) (4DISPLAY (HELVETICA 8 MRR-WHITE-GREEN)) (8DISPLAY ( HELVETICA 8 MRR-WHITE-GREEN)) (24DISPLAY (HELVETICA 8 MRR-WHITE-GREEN))) (BIGFONT 4 (HELVETICA 12 BRR) (HELVETICA 10 BRR) (MODERN 10 BRR) (4DISPLAY (HELVETICA 12 BRR-WHITE-BLUE)) (8DISPLAY (HELVETICA 12 BRR-WHITE-BLUE)) (24DISPLAY (HELVETICA 12 BRR-WHITE-BLUE))) (USERFONT BOLDFONT) (COMMENTFONT LITTLEFONT) (LAMBDAFONT BIGFONT) (SYSTEMFONT) (CLISPFONT BOLDFONT) (CHANGEFONT) (PRETTYCOMFONT BOLDFONT) (FONT1 DEFAULTFONT) (FONT2 BOLDFONT) (FONT3 LITTLEFONT) (FONT4 BIGFONT) (FONT5 5 (HELVETICA 10 BIR) (HELVETICA 8 BIR) (MODERN 8 BIR)) (FONT6 6 (HELVETICA 10 BRR) (HELVETICA 8 BRR) (MODERN 8 BRR) ) (FONT7 7 (GACHA 12) (GACHA 12) (TERMINAL 12)))) (FONTPROFILE COLORFONTPROFILE) (for FONTCLASS in (LIST DEFAULTFONT BOLDFONT LITTLEFONT BIGFONT) do (FONTCREATE FONTCLASS NIL NIL NIL (QUOTE 8DISPLAY))) (FONTCREATE (QUOTE TIMESROMAND) 36 NIL NIL NIL (QUOTE 8DISPLAY)) (PUTPROPS COLORDEMO COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL