02-01-2003, 05:41 AM
Hey, nice posts! Cool little screen savers.
Here's a mystify-type saver in only 5 lines. (6 if you add the delay)
It's looks like a rainbow wave...
- Dav
Here's a mystify-type saver in only 5 lines. (6 if you add the delay)
It's looks like a rainbow wave...
Code:
1 IF r = 0 THEN SCREEN 12 ELSE PRINT
2 a$ = MKI$((160 * COS(r)) + 320) + MKI$((100 * SIN(r)) + 300)
3 IF r > 7.2 THEN r = 1 ELSE r = r + .05
4 LINE (CVI(MID$(a$, 1, 2)), CVI(MID$(a$, 3, 2)))-(CVI(MID$(a$, 1, 2)) + 160 * COS(r), CVI(MID$(a$, 3, 2)) + 45 + r * SIN(r)), r
'=============
WAIT &H3DA, 8 'add this if not smooth enough for you
'=============
5 IF INKEY$ = "" GOTO 1 ELSE END
- Dav
Visit Dav's Qbasic Site