Wave Effect Program
Author |
Message |
flamemaster89
|
Posted: Fri Nov 11, 2005 9:21 pm Post subject: Wave Effect Program |
|
|
%well heres the code
setscreen ("graphics:max;max,nobuttonbar")
const pi := 1
var temp,w,z,c,cc:int:=0
loop
randint(c,0,103)
randint(cc,103,255)
for x : 1 .. maxx
for y : 1 .. maxy
const angle := y * pi / 6
if sin (angle)-cos (angle)>x/maxy
then
drawdot (x, y, c)
else
drawdot (x, y, cc)
end if
end for
end for
for decreasing x : maxx ..1
for decreasing y : maxy ..1
const angle := y * pi / 6
if sin (angle)-cos (angle)>x/maxy
then
drawdot (x, y, cc)
else
drawdot (x, y, c)
end if
end for
end for
end loop |
|
|
|
|
|
Sponsor Sponsor
|
|
|
iker
|
Posted: Sun Nov 13, 2005 2:21 pm Post subject: (No subject) |
|
|
i don't understand, what is it supposed to do. btw, pretty good looking |
|
|
|
|
|
Flikerator
|
Posted: Sun Nov 13, 2005 7:43 pm Post subject: (No subject) |
|
|
Pretty neat I guess...What is the point of this program though? |
|
|
|
|
|
Cervantes
|
|
|
|
|
|
|