(FILECREATED " 9-Sep-94 13:55:38" ("compiled on " {DSK}lispusers>MANDELBROT.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "23-Feb-86 16:20:47" {ERIS}LISPCORE>MANDELBROT.;2 11810 changes to: (VARS MANDELBROTCOMS) (FNS MANDELBROT MANDELBROT.KOUNT MANDELBROT.DORADO.KOUNT) previous date: "21-Aug-85 13:21:38" {ERIS}LISPCORE>MANDELBROT.;1) MANDELBROT D8 (P 13 X P 11 Y P 9 COLOR P 8 KOUNT P 7 IC P 6 RC P 5 GAP P 4 ICORNER P 3 RCORNER P 2 MAXCOLOR P 1 MAXY P 0 MAXX I 1 WINDOW I 0 REGION F 14 MANDELBROT.WINDOW) !  @³oooohb¿AµWd«o cb kÙXA kÙYA Z@[@\@Hë@Ië ]A ²SAgK ¿AgL ¿AgM ¿AgKLHMêIMêh ¿Agg ¿jI OOó³MLOMêè_¿Hj OOó³-KOMêè^O _J _¿AOOOû¿OkÔ_°ÒOmÿÔ_¿°°h(253 MANDELBROT.COLOR 245 MANDELBROT.KOUNT 197 PUTWINDOWPROP 180 PUTWINDOWPROP 155 PUTWINDOWPROP 142 PUTWINDOWPROP 129 PUTWINDOWPROP 115 WINDOWP 108 FMAX 82 MAXIMUMCOLOR 77 BITSPERPIXEL 68 BITMAPHEIGHT 59 BITMAPWIDTH 50 CREATEW) (192 MANDELBROT.BUTTONEVENTFN 187 BUTTONEVENTFN 162 TITLE 149 GAP 136 ICORNER 123 RCORNER) ( 45 "MANDELBROT" 25 2.0 20 3.0 15 -1.0 10 -1.5) MANDELBROT.BUTTONEVENTFN D8 (P 6 NEWREGION P 5 NEWICORNER P 4 NEWRCORNER P 3 GAP P 2 ICORNER P 1 RCORNER P 0 REGION I 0 WINDOW) kpX@g Y@g Z@g [IHh@ ÙKêè\JHh@ ÙKêè]LMHKêHKêh^d@ h(103 MANDELBROT 70 DSPYOFFSET 54 DSPXOFFSET 43 GETWINDOWUSERPROP 31 GETWINDOWUSERPROP 19 GETWINDOWUSERPROP 7 GETREGION) (38 GAP 26 ICORNER 14 RCORNER) () MANDELBROT.KOUNT D8 (P 9 KOUNT P 7 KOUNT I 1 IC I 0 RC F 10 MANDELBROT.LIMIT) € hdddddd@íXAíYhZd[d\d]WkÙk OOó’WLíMíéHíèí¾oKíêJíêIíèí»NZíJíêí¼KíKíêí½LíMíèo ’OOkÔ_°§(114 UFGREATERP2) NIL ( 109 4.0 61 2.0) MANDELBROT.DORADO.KOUNT D8 (P 9 KOUNT P 7 KOUNT P 6 NEWRZ P 5 IZ2 P 4 RZ2 P 3 IZ P 2 RZ P 1 LOCALIC P 0 LOCALRC I 1 IC I 0 RC F 10 MANDELBROT.LIMIT) a €@XAYoZo[o\o]WkÙk OOó’WLMéHè¾oKêJêIè»NZdê¼Kdê½LMèoò’OOkÔ_°ËNIL NIL ( 82 4.0 58 2.0 29 0.0 23 0.0 17 0.0 11 0.0) MANDELBROT.COLOR D8 (I 1 MAXCOLOR I 0 KOUNT F 0 MANDELBROT.LIMIT) @dPð‘AA (12 IMOD) NIL () GRADCOLORMAP D8 (P 5 I P 3 V P 2 M P 1 COLORMAP P 0 MAXCOLOR I 0 BITSPERPIXEL) Ò@@ Xh@ YHlÛZdjMLó²HlJÚkØML󢱈IlÿMÚJkÙÛ»IMjdKh ¿IlJÚMÙjdKh ¿IlJÚMØjKjh ¿IlJÚMÙjKjh ¿IlJÚMØKjdh ¿IlJÚMÙKjdh ¿MkÔ]±ÿhIMIlJÚ ¿MkÔ]±ÿ_(200 SETA 195 ELT 175 SETA 155 SETA 135 SETA 115 SETA 95 SETA 75 SETA 16 COLORMAPCREATE 8 MAXIMUMCOLOR) NIL () (PRETTYCOMPRINT MANDELBROTCOMS) (RPAQQ MANDELBROTCOMS ((INITVARS (MANDELBROT.WINDOW NIL) (MANDELBROT.LIMIT 32)) (FNS MANDELBROT MANDELBROT.BUTTONEVENTFN MANDELBROT.KOUNT MANDELBROT.DORADO.KOUNT MANDELBROT.COLOR GRADCOLORMAP) (P ( COND ((NOT (EQ (MACHINETYPE) (QUOTE DANDELION))) (MOVD (QUOTE MANDELBROT.DORADO.KOUNT) (QUOTE MANDELBROT.KOUNT))))))) (RPAQ? MANDELBROT.WINDOW NIL) (RPAQ? MANDELBROT.LIMIT 32) (COND ((NOT (EQ (MACHINETYPE) (QUOTE DANDELION))) (MOVD (QUOTE MANDELBROT.DORADO.KOUNT) (QUOTE MANDELBROT.KOUNT)))) (PUTPROPS MANDELBROT COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL