02-03-2003, 05:49 AM
Ack, guys, I just couldn't help myself...
6-line Rotozoomer:
Meh, could be a lot better. Maybe someone should do a text-mode version :)
6-line Rotozoomer:
Code:
SCREEN 13
1 ang = ang + .08725
scale = scale + (SGN(SIN(ang)) / 10)
2 p& = (p& + 1) AND 65535
PSET (p& MOD 320, (p& - (p& MOD 320)) \ 320), (((((p& MOD 320) - 160) * COS(ang) - (((p& - (p& MOD 320)) / 320) - 100) * SIN(ang)) * scale) AND 63) OR ((((((p& - (p& MOD 320)) / 320) - 100) * COS(ang) + ((p& MOD 320) - 160) * SIN(ang)) * scale) AND _
63)
IF p& = 65535 THEN GOTO 1 ELSE GOTO 2
Meh, could be a lot better. Maybe someone should do a text-mode version :)