Apple-2-SW/apple2a
1
0
Fork 0
mirror of https://github.com/bradgrantham/apple2a.git synced 2024-11-27 03:49:31 +00:00
Code Issues Projects Releases Wiki Activity

Speed up stars example.

Browse Source
This commit is contained in:
Lawrence Kesteloot 2018-08-06 00:38:42 -07:00
parent 184262ca3e
commit fa8439f2ec
2 changed files with 38 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
examples/stars.bas
View File

@ -1,43 +1,43 @@
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
1000 DX(0) = 19
1005 DY(0) = 0
1010 C(0) = 7
1100 DX(1) = -8
1105 DY(1) = -17
1110 C(1) = 9
1200 DX(2) = -14
1205 DY(2) = -13
1210 C(2) = 12
1300 DX(3) = 9
1305 DY(3) = 17
1310 C(3) = 3
1400 DX(4) = 19
1405 DY(4) = 2
1300 DX(3) = -12
1305 DY(3) = 15
1310 C(3) = 5
1400 DX(4) = -12
1405 DY(4) = 15
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
1500 DX(5) = 19
1505 DY(5) = 5
1510 C(5) = 13
1600 DX(6) = 19
1605 DY(6) = -1
1610 C(6) = 5
1700 DX(7) = 9
1705 DY(7) = 17
1710 C(7) = 14
1800 DX(8) = -12
1805 DY(8) = 15
1810 C(8) = 5
1900 DX(9) = 10
1905 DY(9) = 16
1910 C(9) = 13
2100 T = 0
2200 I = 0
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
2260 I = I + 1 : IF I < 10 GOTO 2210
2300 T = T + 1 : IF T = TS THEN T = 0
2310 GOTO 2200

12
examples/stars.py
View File

@ -16,15 +16,13 @@ for i in range(0,10) :
c = random.randrange(1,15)
print str % {'init' : 10 + i, 'x' : x, 'y' : y, 'c' : c, 'which' : i}
print "2100 FOR T = 0 TO TS"
print "2200 FOR I = 0 TO 9"
print "2100 T = 0"
print "2200 I = 0"
print "2210 OX = X(I) : OY = Y(I)"
print "2220 X(I) = 20 + DX(I) * T / TS"
print "2230 Y(I) = 20 + DY(I) * T / TS"
print "2240 COLOR=0 : PLOT OX, OY"
print "2250 COLOR=C(I) : PLOT X(I), Y(I)"
print "2260 NEXT"
print "2300 NEXT"
print "2310 GOTO 2100"
print "2260 I = I + 1 : IF I < 10 GOTO 2210"
print "2300 T = T + 1 : IF T = TS THEN T = 0"
print "2310 GOTO 2200"