mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-10 01:55:13 +00:00
9ee89d6ff4
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
29 lines
988 B
QBasic
29 lines
988 B
QBasic
'This is my starfield entry hacked down to 25 lines
|
|
'It needs a pretty fast computer...looks OK on my 1.5 GHz
|
|
'JKC 2003
|
|
|
|
1 TYPE star
|
|
x AS INTEGER
|
|
y AS INTEGER
|
|
z AS INTEGER
|
|
END TYPE
|
|
6 DIM astar(0 TO 300) AS star
|
|
7 DIM oldstar(0 TO 300) AS star
|
|
8 FOR i = 0 TO 300
|
|
9 astar(i).x = RND * 640
|
|
10 astar(i).y = RND * 480
|
|
11 astar(i).z = RND * 300
|
|
12 NEXT i
|
|
13 SCREEN 11
|
|
14 DO
|
|
15 FOR i = 0 TO 300
|
|
16 IF astar(i).z < 1 THEN astar(i).z = 300 ELSE astar(i).z = astar(i).z - 1
|
|
17 FOR p% = 0 TO oldstar(i).z
|
|
18 CIRCLE (oldstar(i).x, oldstar(i).y), p%, 0
|
|
19 IF astar(i).z <> 300 THEN CIRCLE (INT(2 * astar(i).z + astar(i).x / (1 + astar(i).z / 30)), INT(astar(i).z + astar(i).y / (1 + astar(i).z / 30))), p%
|
|
20 NEXT p%
|
|
21 oldstar(i).x = INT(2 * astar(i).z + astar(i).x / (1 + astar(i).z / 30))
|
|
22 oldstar(i).y = INT(astar(i).z + astar(i).y / (1 + astar(i).z / 30))
|
|
23 oldstar(i).z = 5 / (1 + astar(i).z / 20)
|
|
24 NEXT i
|
|
25 LOOP UNTIL INKEY$ <> "" |