Computer Science Canada graphic show |
| Author: | dann_west [ Wed Apr 27, 2005 12:25 pm ] |
| Post subject: | 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.." |
|
| Author: | jamonathin [ Wed Apr 27, 2005 1:33 pm ] |
| Post subject: | |
Not bad, look up offscreenonly and View.Update for the ball movements. |
|