Posted: Thu Nov 04, 2004 10:14 pm Post subject: Some Trippy Stuff :D
code:
var x := 4
var i := 0
var numlines := 150
drawfillbox (0, 0, maxx, maxy, black)
loop
if i < numlines then
i += 1
elsif i >= numlines then
exit
end if
drawline (maxx, maxy - (i * x), maxx - (i * x * x), 0, green)
drawline (0, (i * x), i * x * x, maxy, green)
drawline (0, maxy - (i * x), i * x * x, 0, brightgreen)
drawline (maxx, (i * x), maxx - (i * x * x), maxy, brightgreen)
delay (50)
end loop
Sponsor Sponsor
Delos
Posted: Fri Nov 05, 2004 1:01 pm Post subject: (No subject)
Very nice.
I wonder what inspired you to use those colours that you did...hmmm... .
Also, change this line:
code:
var numlines := 150
to this line:
code:
var numlines := maxy div x
That way you can change x, and it won't stop prematurely or too late.
+ bits.
Neo
Posted: Fri Nov 05, 2004 4:46 pm Post subject: (No subject)
I had it blue and red but it kinda looks like some matrix thing with green so i kept it like that.
Delos
Posted: Fri Nov 05, 2004 6:30 pm Post subject: (No subject)
My knowledge of that was implicit in my post.
Nonetheless, it looks rather interesting with an x value of 1.