Computer Science Canada

Funcy Flashy Thingy
Author:  Artimes [ Sat Sep 11, 2004 9:36 pm ]
Post subject:  Funcy Flashy Thingy
Funcy flashy thingy I made. Simple, but effective! Razz

code:

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
Author:  Dan [ Sat Sep 11, 2004 9:38 pm ]
Post subject: 
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 Wink

+bits
Author:  Genesis [ Sat Sep 11, 2004 11:07 pm ]
Post subject: 
Cool!

It reminds me of this program:

code:

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.
Author:  Artimes [ Sun Sep 12, 2004 11:46 am ]
Post subject: 
That's sweet! Very Happy

:


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

Terms of Use | Privacy Policy