02-01-2003, 12:06 AM
The non-standard pinwheel:
edit: just moved it from being centred at 240 to 300 (feels more balanced that way)
Code:
1 SCREEN 12
2 FOR colour = 0 TO 15
3 PALETTE colour, colour * 4 * 65536 + (colour * 2)
4 NEXT
5 angle! = angle! + .1
6 colour = colour + 1
7 IF colour > 15 THEN colour = 0 ELSE IF angle! > 360 THEN angle! = angle! - 360
8 PSET (INT(SIN(angle!) * angle! + angle!), INT(COS(angle!) * angle!) + 300), colour
9 IF INKEY$ = "" THEN GOTO 5
edit: just moved it from being centred at 240 to 300 (feels more balanced that way)