mirror of
https://github.com/bradgrantham/apple2a.git
synced 2024-05-31 19:41:36 +00:00
44 lines
742 B
QBasic
44 lines
742 B
QBasic
10 GR
|
|
20 TS = 40
|
|
30 DIM DX(9),DY(9),C(9),X(9),Y(9)
|
|
1000 DX(0) = 14
|
|
1005 DY(0) = 13
|
|
1010 C(0) = 14
|
|
1100 DX(1) = 18
|
|
1105 DY(1) = 8
|
|
1110 C(1) = 5
|
|
1200 DX(2) = 7
|
|
1205 DY(2) = -18
|
|
1210 C(2) = 12
|
|
1300 DX(3) = 9
|
|
1305 DY(3) = 17
|
|
1310 C(3) = 3
|
|
1400 DX(4) = 19
|
|
1405 DY(4) = 2
|
|
1410 C(4) = 12
|
|
1500 DX(5) = -19
|
|
1505 DY(5) = 0
|
|
1510 C(5) = 4
|
|
1600 DX(6) = -2
|
|
1605 DY(6) = 19
|
|
1610 C(6) = 14
|
|
1700 DX(7) = 0
|
|
1705 DY(7) = -19
|
|
1710 C(7) = 4
|
|
1800 DX(8) = -18
|
|
1805 DY(8) = -7
|
|
1810 C(8) = 4
|
|
1900 DX(9) = 14
|
|
1905 DY(9) = 13
|
|
1910 C(9) = 11
|
|
2100 FOR T = 0 TO TS
|
|
2200 FOR I = 0 TO 9
|
|
2210 OX = X(I) : OY = Y(I)
|
|
2220 X(I) = 20 + DX(I) * T / TS
|
|
2230 Y(I) = 20 + DY(I) * T / TS
|
|
2240 COLOR=0 : PLOT OX, OY
|
|
2250 COLOR=C(I) : PLOT X(I), Y(I)
|
|
2260 NEXT
|
|
2300 NEXT
|
|
2310 GOTO 2100
|