Computer Science Canada

Some Trippy Stuff :D
Author:  Neo [ 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
Author:  Delos [ Fri Nov 05, 2004 1:01 pm ]
Post subject: 
Very nice.

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

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.
Author:  Neo [ Fri Nov 05, 2004 4:46 pm ]
Post subject: 
I had it blue and red but it kinda looks like some matrix thing with green so i kept it like that. Very Happy
Author:  Delos [ Fri Nov 05, 2004 6:30 pm ]
Post subject: 
My knowledge of that was implicit in my post.
Nonetheless, it looks rather interesting with an x value of 1.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy