17 lines
451 B
Text
17 lines
451 B
Text
1 MODE 3 ' Note the CPCBasic-only screen mode!
|
|
2 FOR xp = 0 TO 639
|
|
3 FOR yp = 0 TO 399
|
|
4 x = 0 : y = 0
|
|
5 x0 = xp / 213 - 2 : y0 = yp / 200 - 1
|
|
6 iteration = 0
|
|
7 maxIteration = 100
|
|
8 WHILE (x * x + y * y <= (2 * 2) AND iteration < maxIteration)
|
|
9 xtemp = x * x - y * y + x0
|
|
10 y = 2 * x * y + y0
|
|
11 x = xtemp
|
|
12 iteration = iteration + 1
|
|
13 WEND
|
|
14 IF iteration <> maxIteration THEN c = iteration ELSE c = 0
|
|
15 PLOT xp, yp, c MOD 16
|
|
16 NEXT
|
|
17 NEXT
|