-----------------------------------

Neo

Thu Nov 04, 2004 10:14 pm


Some Trippy Stuff :D

-----------------------------------

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


-----------------------------------

Delos

Fri Nov 05, 2004 1:01 pm



-----------------------------------

Very nice.

I wonder what inspired you to use those colours that you did...hmmm... :think: .

Also, change this line:

var numlines := 150


to this line:


var numlines := maxy div x 


That way you can change x, and it won't stop prematurely or too late.

+ bits.


-----------------------------------

Neo

Fri Nov 05, 2004 4:46 pm



-----------------------------------

I had it blue and red but it kinda looks like some matrix thing with green so i kept it like that. :D


-----------------------------------

Delos

Fri Nov 05, 2004 6:30 pm



-----------------------------------

My knowledge of that was implicit in my post.
Nonetheless, it looks rather interesting with an x value of 1.