reeder@reed.UUCP (Doug Reeder) (09/11/89)
-------------Cut off everything above this line & exec------------
NEW
40FORY=0TO191:FORX=0TO279
50P=PN+X*DP:Q=QN+Y*DQ:K=N0:X0=N0:Y0=N0
60XK=X0*X0-Y0*Y0+P:YK=N2*X0*Y0+Q
70K=K+N1:X0=XK:Y0=YK:R=X0*X0+Y0*Y0
80IFR>MTHENCL=K-INT(K/N7)*N7+N1:GOTO110
90IFK=MCTHENCL=0:GOTO110
100GOTO60
110HCOLOR=CL:HPLOTX,Y:NEXTX,Y
190?CHR$(4);"BSAVE MANDELBROT.SET,A$4000,L$2000"
200END
1000X0=0:Y0=0:XK=0:YK=0:P=0:Q=0:K=0:R=0:REM mention these to get them at the beginning of the variable table
1008PN=-2.25:PX=.75:QN=-1.5:QX=1.5
1010M=100:MC=100
1020HGR2
1030N0=0:N1=1:N2=2:N7=7
1040DP=(PX-PN)/280:DQ=(QX-QN)/192
1100GOTO40
2000REM____________________________
2010REM Mandelbrot Set Generator
2020REM to use:
2030REM edit line 1008 to the desired boundaries
2040REM run 1000
SAVE MAKE.MANDELBROT
--------------------cut off everything below this line-------------
--
Doug Reeder USENET: ...!tektronix!reed!reeder
Institute of Knowledge, Jinx BITNET: reeder@reed.BITNET
"A blaster can point two ways." from ARPA: tektronix!reed!reeder@berkeley.EDU
-Salvor Hardin Box 1439 Reed College,Portland,OR 97202