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

reechard

Wed May 04, 2011 1:13 pm


trippy stuff

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

import GUI
setscreen ("graphics:500;500")


loop
    % first part
    for i : 1 .. 500
        drawline (0, maxy, i, maxy - round (sqrt (500 ** 2 - i ** 2)), Rand.Int (32, 103))
        delay (2)
        cls
    end for

    % second part
    for j : 1 .. 500
        drawline (maxx, maxy, maxy - round (sqrt (500 ** 2 - j ** 2)), maxx - j, Rand.Int (32, 103))
        delay (2)
        cls
    end for

    % third part
    for decreasing l : 500 .. 1
        drawline (maxx, 0, maxx - round (sqrt (500 ** 2 - l ** 2)), l, Rand.Int (32, 103))
        delay (2)
        cls
    end for

    % fourth part
    for decreasing l : 500 .. 1
        drawline (0, 0, l, round (sqrt (500 ** 2 - l ** 2)), Rand.Int (32, 103))
        delay (2)
        cls
    end for
end loop


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

Zren

Wed May 04, 2011 2:50 pm


RE:trippy stuff

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

*cough*

http://compsci.ca/v3/viewtopic.php?t=7734

That said, invest into looking into [tdoc]View.Set[/tdoc]("offscreenonly") and [tdoc]View.Update[/tdoc] to lessen the jitterness. Perhaps using Draw.FillBox(0,0,maxx,maxy,black) instead of clearing the screen to white to allow the eyes to focus on the line.


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

Raknarg

Wed May 04, 2011 4:00 pm


RE:trippy stuff

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

Also, for future reference, you don't need to call a new for loop name every time you use it as long as they're not nested in eachother. For instance:

for i : 1 .. 5
end for
for i : 1 .. 5
end for

That is completely allowed.