28 lines
645 B
Plaintext
28 lines
645 B
Plaintext
LIBRARY "GraphLib.tru"
|
|
|
|
LET escala = 1/81
|
|
LET zerox = 160
|
|
LET zeroy = 100
|
|
LET maxiter = 32
|
|
LET cr = -.798
|
|
LET ci = .1618
|
|
|
|
SET WINDOW -10, 640, -10, 320
|
|
FOR x = 0 TO 2*zerox-1
|
|
FOR y = 0 TO 2*zeroy-1
|
|
LET zreal = (x-zerox)*escala
|
|
LET zimag = (zeroy-y)*escala
|
|
FOR iter = 1 TO maxiter
|
|
LET br = cr+zreal*zreal-zimag*zimag
|
|
LET zimag = ci+2*zreal*zimag
|
|
LET zreal = br
|
|
IF zreal*zreal+zimag*zimag > 4 THEN
|
|
SET COLOR 4*t_palette+(REMAINDER(iter,16))
|
|
PLOT POINTS: x,y
|
|
EXIT FOR
|
|
END IF
|
|
NEXT iter
|
|
NEXT y
|
|
NEXT x
|
|
END
|