mirror of
https://github.com/bradgrantham/apple2a.git
synced 2025-02-21 00:29:04 +00:00
37 lines
733 B
QBasic
37 lines
733 B
QBasic
5 GR
|
|
10 C1 = 64
|
|
11 CA = 8
|
|
12 CB = 8
|
|
20 C4 = 4*C1
|
|
30 XR = 40
|
|
40 YR = 40
|
|
50 MC = 15
|
|
60 RN = -2*C1
|
|
70 RX = 1*C1
|
|
80 IN = -5*C1/4
|
|
90 IX = 5*C1/4
|
|
100 RD = (RX - RN)/(XR - 1)
|
|
110 ID = (IX - IN)/(YR - 1)
|
|
120 I = IN
|
|
130 FOR Y = 0 TO YR - 1
|
|
140 R = RN
|
|
150 FOR X = 0 TO XR - 1
|
|
160 ZR = 0
|
|
170 ZI = 0
|
|
180 CT = 0
|
|
190 R2 = 0
|
|
200 I2 = 0
|
|
220 TR = R2 - I2 + R
|
|
230 TI = ZR*2/CA*ZI/CB + I
|
|
240 ZR = TR
|
|
250 ZI = TI
|
|
260 R2 = ZR/CA*ZR/CB
|
|
270 I2 = ZI/CA*ZI/CB
|
|
280 CT = CT + 1
|
|
290 IF CT < MC AND R2 + I2 < C4 GOTO 220
|
|
300 COLOR=15-CT:PLOT X,Y
|
|
310 R = R + RD
|
|
320 NEXT X
|
|
340 I = I + ID
|
|
350 NEXT Y
|