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

dann_west

Wed Apr 27, 2005 12:25 pm


graphic show

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

This is just a quick graphic show. I was just bored and made it.


%Dann Westman
%April 20/05
%This program performs many operations that will be explained below


%Screen Options
setscreen ("graphics:500,500")
colour (white)
colourback (black)
cls

var font1, font2, font : int
var x : int := 0
var z : string

font := Font.New ("Arial:40:Bold")
font1 := Font.New ("Arial:40:Bold")
font2 := Font.New ("Kaufman Bd BT:30:Bold")




%Title Code
for a : 1 .. 101
    Font.Draw ("Graphic Art", 90, 250, font1, a)
    Font.Draw ("April 20 2005", 60, 100, font2, green)
    Draw.FillBox (0, 0, 10, 500, yellow)
    Draw.FillBox (0, 0, 500, 10, yellow)
    Draw.FillBox (500, 0, 490, 500, yellow)
    Draw.FillBox (0, 500, 500, 490, yellow)
    Draw.FillBox (0, 0, 10, 10, red)
    Draw.FillBox (0, 500, 10, 490, red)
    Draw.FillBox (500, 0, 490, 10, red)
    Draw.FillBox (500, 500, 490, 490, red)
    delay (20)
end for
delay (3000)
cls
delay (1000)
%Border 2
for b : 0 .. 500
    Draw.FillBox (b, 0, b, 50, white)
    Draw.FillBox (b, 500, b, 450, white)
    Draw.FillBox (0, b, 50, b, white)
    Draw.FillBox (500, b, 450, b, white)
    delay (5)
end for

%Border Colours
delay (500)
for c : 0 .. 101
    Draw.FillBox (0, 0, 50, 50, c)
    Draw.FillBox (100, 0, 150, 50, c)
    Draw.FillBox (200, 0, 250, 50, c)
    Draw.FillBox (300, 0, 350, 50, c)
    Draw.FillBox (400, 0, 450, 50, c)
    Draw.FillBox (0, 100, 50, 150, c)
    Font.Draw ("By Dann Westman", 70, 250, font2, yellow)
    Draw.FillBox (0, 200, 50, 250, c)
    Draw.FillBox (0, 300, 50, 350, c)
    Draw.FillBox (0, 400, 50, 450, c)
    Draw.FillBox (0, 500, 50, 550, c)
    Draw.FillBox (50, 450, 100, 500, c)
    Draw.FillBox (150, 450, 200, 500, c)
    Draw.FillBox (250, 450, 300, 500, c)
    Draw.FillBox (350, 450, 400, 500, c)
    Draw.FillBox (450, 50, 500, 100, c)
    Draw.FillBox (450, 150, 500, 200, c)
    Draw.FillBox (450, 250, 500, 300, c)
    Draw.FillBox (450, 350, 500, 400, c)
    Draw.FillBox (450, 450, 500, 500, c)
    delay (15)
end for
delay (500)
cls

%Bouncing Balls
loop
    for c : 1 .. 500
        Draw.FillOval (250, c, 20, 20, white)
        Draw.FillOval (c, 250, 20, 20, yellow)
        x := x + 1
        cls

    end for
    if x = 500 then
        Font.Draw ("Ouch!", 300, 300, font, yellow)
        delay (1000)
        cls
    end if
    for decreasing d : 500 .. 1
        Draw.FillOval (250, d, 20, 20, white)
        Draw.FillOval (d, 250, 20, 20, yellow)
        x := x - 1
        cls
    end for
    if x = 0 then
        Font.Draw ("Dang!", 300, 300, font, yellow)
        delay (1000)
        cls
    end if
put"Will you exit(y)yes or (n)no?"
get z
exit when(z="y") 
end loop
cls
put"Program Finished.."


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

jamonathin

Wed Apr 27, 2005 1:33 pm



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

Not bad, look up offscreenonly and View.Update for the ball movements.