02-04-2003, 03:49 AM
Probably my last one for a while...
I was messing with the blue ball saver, resulting in these weird, warped green space gems...
- Dav
I was messing with the blue ball saver, resulting in these weird, warped green space gems...
Code:
1 FOR a = -1 TO 63
2 IF a = -1 THEN SCREEN 13 ELSE PALETTE a, a * 256
3 NEXT
4 x% = INT(RND * 320)
5 y% = INT(RND * 200)
6 FOR z% = RND * 63 + 1 TO 1 STEP -1
7 IF INKEY$ = "" THEN CIRCLE (x%, y%), z%, -z% + 64, , , INT(RND * 320) * RND * .1 ELSE END
8 IF z% > 1 THEN PAINT (x%, y%), -z% + 64 ELSE GOTO 4
9 NEXT
- Dav
Visit Dav's Qbasic Site