Computer Science Canada Wave Effect Program |
| Author: | flamemaster89 [ 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 |
|
| Author: | iker [ Sun Nov 13, 2005 2:21 pm ] |
| Post subject: | |
i don't understand, what is it supposed to do. btw, pretty good looking |
|
| Author: | Flikerator [ Sun Nov 13, 2005 7:43 pm ] |
| Post subject: | |
Pretty neat I guess...What is the point of this program though? |
|
| Author: | Cervantes [ Sun Nov 13, 2005 9:53 pm ] |
| Post subject: | |
No point. Random trigonometric functions. |
|