mirror of
https://github.com/bradgrantham/apple2e.git
synced 2024-11-18 20:06:10 +00:00
22 lines
437 B
Plaintext
22 lines
437 B
Plaintext
10 HGR : POKE - 16302,0
|
|
11 MX = 280
|
|
12 MY = 192
|
|
20 FOR X = 0 TO MX - 1
|
|
30 CX = X / MX * 3 - 2
|
|
40 FOR Y = 0 TO MY / 2 - 1
|
|
50 CY = Y / MY * 3 - 1.5
|
|
60 C = 0
|
|
70 XX = 0:YY = 0
|
|
80 IF XX * XX + YY * YY > 4 OR C > 15 THEN 200
|
|
90 OX = XX
|
|
100 XX = XX * XX - YY * YY + CX
|
|
110 YY = 2 * OX * YY + CY
|
|
120 C = C + 1
|
|
130 GOTO 80
|
|
200 IF C > 7 THEN C = C - 8: GOTO 200
|
|
205 HCOLOR= C
|
|
210 HPLOT X,Y
|
|
215 HPLOT X,MY - 1 - Y
|
|
220 NEXT Y
|
|
230 NEXT X
|