graphic show

[dann_west]

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]

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