-----------------------------------

uknowhoiam

Fri Feb 27, 2009 7:38 pm


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

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 :) [syntax="turing"]Code Here[/syntax]


-----------------------------------

saltpro15

Fri Feb 27, 2009 8:19 pm


RE:animation part 2

-----------------------------------

you aren't loading your pictures correctly, check the Turing documentation for Pic.FileNew, hopefully it will help