Sound Wave Bar.....

[xteraco]

well, while were breaking rules, i got another.. its soooo breaking the rules its not even funny!!!

Code:

declare function goright(amp,x,y)
declare function goleft(amp,x,y)
screen 19,32,2,1
amp = 5
y = 300
i = 10
do
   amp = amp + 5
do
line (0,300)-(800,300),rgb(y * amp,0,x)
   goright(amp,x,y)
loop until x = 800
do
line (0,300)-(800,300),rgb(y * amp,0,x)
   goleft(amp,x,y)
loop until x = 1
loop
function goright(amp,x,y)
do
pset (x, y - (amp * sin(angle * 3.14 / 180))), rgb (0,200,10)
angle = angle + 1
sleep .6
x = x + 1
loop until x = 800
end function
function goleft(amp,x,y)
do
pset (x, y - (amp * sin(angle * 3.14 / 180))), rgb (0,200,10)
angle = angle + 1
sleep .6
x = x - 1
loop until x = 1
end function

33 lines!! yaaaay! :bounce: