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

Artimes

Sat Sep 11, 2004 9:36 pm


Funcy Flashy Thingy

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

Funcy flashy thingy I made. Simple, but effective! :P


var x1, x2, y1, y2, button, col : int
setscreen ("graphics:600;500,nobuttonbar")

col := 56
colour (0)
colourback (1)

loop

    Mouse.Where (x1, y1, button)
    x2 := x1 - 10
    y2 := y1 + 10

    put " "

    drawbox (x2 - 10, y2, x2 + 10, y2 + 40, col)

    col := col + 1

    if col = 103 then

        col := 56

    end if

end loop



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

Dan

Sat Sep 11, 2004 9:38 pm



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

This gives credit to the line "It's not a bug it's a featuer".

Good to see some one is geting good use out of the graficks and text together problems in truing :p

Athougth it is probly not good progaming have some bits for a ceartive use of turings messed up text system ;)

+bits


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

Genesis

Sat Sep 11, 2004 11:07 pm



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

Cool!

It reminds me of this program:


View.Set ("graphics: 600;600, nobuttonbar")

var x, y, z : int

colourback (black)
cls

loop
    Mouse.Where (x, y, z)
    put ""
    drawline (300, 10, x, y, white)
end loop


That I accidently wrote last year...I can't remember what I was actually trying to do. But it reminds me of this thing we used in physics, that had a bunch of black rods on it, to demonstrate waves.


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

Artimes

Sun Sep 12, 2004 11:46 am



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

That's sweet!  :D