Kobe24
|
Posted: 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 |
|
|