Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SCREEN 13
- TYPE point3d
- x AS INTEGER
- y AS INTEGER
- z AS INTEGER
- c AS INTEGER
- v AS SINGLE
- END TYPE
- DIM star(0 TO 255) AS point3d
- FOR i = 0 TO 255
- star(i).x = RND * 256 - 128
- star(i).y = RND * 256 - 128
- star(i).z = RND * 128 + 16
- star(i).c = RND * 15 + 16
- star(i).v = INT(RND * 2) + 1
- NEXT
- ppd = 100
- DO
- FOR i = 0 TO 255
- z = star(i).z
- x = INT(160 + ppd * star(i).x / z)
- y = INT(100 - ppd * star(i).y / z)
- PSET (x, y), 0
- z = z - star(i).v
- IF z < 16 THEN z = z + 128
- star(i).z = z
- x = INT(160 + ppd * star(i).x / z)
- y = INT(100 - ppd * star(i).y / z)
- PSET (x, y), star(i).c
- NEXT
- LOOP WHILE INKEY$ = ""
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement