19 lines
425 B
Plaintext
19 lines
425 B
Plaintext
10 SCALE# = 1/81 : ZEROX = 160
|
|
20 ZEROY = 100 : MAXIT = 32
|
|
30 CR# = -.798 : CI# = .1618
|
|
40 SCREEN 1
|
|
50 FOR X = 0 TO 2*ZEROX - 1
|
|
60 FOR Y = 0 TO 2*ZEROY - 1
|
|
70 ZR# = (X-ZEROX)*SCALE#
|
|
80 ZI# = (ZEROY-Y)*SCALE#
|
|
90 FOR I = 1 TO MAXIT
|
|
100 BR# = CR# + ZR#*ZR# - ZI#*ZI#
|
|
110 ZI# = CI# + 2*ZR#*ZI#
|
|
120 ZR# = BR#
|
|
130 IF ZR#*ZR# + ZI#*ZI# > 4! THEN GOTO 160
|
|
140 NEXT I
|
|
150 GOTO 170
|
|
160 PSET (X, Y), 1 + (I MOD 3)
|
|
170 NEXT Y
|
|
180 NEXT X
|