18 lines
316 B
Text
18 lines
316 B
Text
10 GRAPHICS 7+16
|
|
20 FOR Y=0 TO 95
|
|
30 FOR X=0 TO 159
|
|
40 GOSUB 100
|
|
50 NEXT X
|
|
60 NEXT Y
|
|
70 GOTO 70
|
|
100 XP=X/159*2.7-2
|
|
110 YP=Y/95*2-1
|
|
120 IT=0:XX=0:YY=0
|
|
130 XTEMP=XX*XX-YY*YY+XP
|
|
140 YY=2*XX*YY+YP
|
|
150 XX=XTEMP
|
|
160 IT=IT+1
|
|
170 IF XX*XX+YY*YY<4 AND IT<20 THEN 130
|
|
180 COLOR 1:IF IT=20 THEN COLOR 3
|
|
190 PLOT X,Y
|
|
200 RETURN
|