04-05-2005, 03:11 AM
ok, here goes
i know, i cheated... its supposed to look like a reflection :wink:
Code:
SCREEN 19, 32, 2, 1
amp = 100
FOR x = 1 TO 800
PSET (x, 300 - (amp * SIN(ang * 3.24/180))), RGB(0,255,0)
ang = ang + 1
PSET (x ,300 - (amp / SIN(ang * 3.24/180)) ),rgb(0,x,0)
LINE (0,300)-(800, 300), RGB(ang,0,0)
line (0,450)-(800, 450), rgb(ang -1,10,0)
line (0,0)-(800,200),0,bf : sleep 5 : NEXT : sleep
i know, i cheated... its supposed to look like a reflection :wink:
url=http://www.random-seed.net][/url]