Computer Science Canada Moving a circle a little from left to right |
| Author: | Kobe24 [ Sat May 17, 2014 1:02 pm ] |
| Post subject: | Moving a circle a little from left to right |
Hi, So I want to move Kirby's eyes a little from left to right. I have no idea how to do it. So can someone please give me an example on how to do it. Here is my code: THANKS! for i : 1 .. 150 Draw.FillBox (1, 10000, 10000, 1, i) var intfont : int intfont := Font.New ("Arial Black:20") Font.Draw ("KIRBY-Saving the Universe", 125, 350, intfont, blue) %Font %Kirby Draw.FillOval (280, 120, 40, 40, red) %Legs Draw.FillOval (370, 120, 40, 40, red) Draw.FillOval (320, 200, 100, 100, 36) %Body Draw.FillOval (240, 260, 30, 37, 36) Draw.FillOval (420, 180, 30, 37, 36) %hand Draw.FillOval (300, 230, 10, 25, black) %Eyes Draw.FillOval (340, 230, 10, 25, black) Draw.FillOval (300, 238, 5, 10, white) %Glow in eyes Draw.FillOval (340, 238, 5, 10, white) Draw.FillOval (320, 180, 12, 12, red) %Mouth Draw.FillOval (320, 175, 6, 6, 85) Draw.FillOval (270, 200, 13, 8, 85) Draw.FillOval (370, 200, 13, 8, 85) %Kirby 2 Draw.FillOval (65, 136, 30, 30, blue) %Legs Draw.FillOval (140, 136, 30, 30, blue) Draw.FillOval (100, 200, 75, 75, yellow) %Body Draw.FillOval (240, 260, 30, 37, 36) Draw.FillOval (175, 180, 20, 27, yellow) %hand Draw.FillOval (80, 220, 10, 15, black) %Eyes Draw.FillOval (120, 220, 10, 15, black) Draw.FillOval (120, 225, 4, 7, white) %Glow in eyes Draw.FillOval (80, 225, 4, 7, white) Draw.FillOval (100, 185, 7, 7, red) %Mouth Draw.FillOval (100, 182, 3, 3, 85) Draw.FillOval (140, 195, 8, 6, 85) Draw.FillOval (55, 195, 8, 6, 85) Draw.FillOval (35, 240, 20, 27, yellow) %Kirby 3 Draw.FillOval (510, 136, 30, 30, blue) %Legs Draw.FillOval (590, 136, 30, 30, blue) Draw.FillOval (550, 200, 75, 75, yellow) %Body Draw.FillOval (625, 180, 20, 27, yellow) %hand Draw.FillOval (530, 220, 10, 15, black) %Eyes Draw.FillOval (570, 220, 10, 15, black) Draw.FillOval (530, 225, 4, 7, white) %Glow in eyes Draw.FillOval (570, 225, 4, 7, white) Draw.FillOval (550, 185, 7, 7, red) %Mouth Draw.FillOval (550, 182, 3, 3, 85) Draw.FillOval (510, 195, 8, 6, 85) Draw.FillOval (590, 195, 8, 6, 85) Draw.FillOval (485, 240, 20, 27, yellow) delay (400) end for |
|