20 lines
390 B
Text
20 lines
390 B
Text
1 REM MANDELBROT SET - TANDY COCO 3
|
|
2 POKE 65497,1
|
|
10 HSCREEN 2
|
|
20 HCLS
|
|
30 X1=319:Y1=191
|
|
40 I1=-1.0:I2=1.0:R1=-2:R2=1.0
|
|
50 S1=(R2-R1)/X1:S2=(I2-I1)/Y1
|
|
60 FOR Y=0 TO Y1
|
|
70 I3=I1+S2*Y
|
|
80 FOR X=0 TO X1
|
|
90 R3=R1+S1*X:Z1=R3:Z2=I3
|
|
100 FOR N=0 TO 30
|
|
110 A=Z1*Z1:B=Z2*Z2
|
|
120 IF A+B>4.0 GOTO 150
|
|
130 Z2=2*Z1*Z2+I3:Z1=A-B+R3
|
|
140 NEXT N
|
|
150 HSET(X,Y,N-16*INT(N/16))
|
|
160 NEXT X
|
|
170 NEXT Y
|
|
180 GOTO 180
|