animation part 2
Author |
Message |
uknowhoiam
|
Posted: Fri Feb 27, 2009 7:38 pm Post subject: animation part 2 |
|
|
Now we are making objects (i.e. clouds etc) and moving them
i dont know what the problem with my program is... i m trying to move my clouds but i cant even see them....heres my code
Turing: | var x1, y1: int := 0
View.Set ("graphics;offscreenonly")
drawfillbox (0, 150, maxx, maxy, 100)
drawfillarc (330, 100, 350, 150, 0, 180, green)
drawfillbox (0, 40, 12, 50, white)
drawfillbox (0, 0, maxx, 100, grey)
drawfillbox (74, 40, 170, 50, white)
drawfillbox (250, 40, 346, 50, white)
drawfillbox (430, 40, 526, 50, white)
drawfillbox (610, 40, 706, 50, white)
var background : int := Pic.New (0, 0, maxx, maxy)
drawfilloval (100, 300, 200, 5, white)
drawfilloval (110, 306, 100, 2, white)
drawfilloval (120, 290, 100, 3, white)
drawfilloval (200, 350, 100, 5, white)
var clouds : int := Pic.New (0, 280, 306, 363)
var xpos1 : int := 1
for count : 1 .. maxx
cls
if xpos1 > maxx then
xpos1 := 1
end if
Pic.Draw (background, 0, 0, picCopy)
Pic.Draw (clouds, xpos1, 306, picMerge)
delay (200)
drawbox (xpos1, 280, 306, 363, 100)
xpos1 := xpos1 + 2
View.Update
end for
Pic.Free (clouds ) |
Can someone plz help me
Mod Edit: Remember to use syntax tags! Thanks code: | [syntax="turing"]Code Here[/syntax] |
|
|
|
|
|
|
Sponsor Sponsor
|
|
|
saltpro15
|
Posted: Fri Feb 27, 2009 8:19 pm Post subject: RE:animation part 2 |
|
|
you aren't loading your pictures correctly, check the Turing documentation for Pic.FileNew, hopefully it will help |
|
|
|
|
|
|
|