Computer Science Canada

Turing Picuture animation help!!
Author:  capella [ Fri May 22, 2009 9:58 am ]
Post subject:  Turing Picuture animation help!!
What is it you are trying to achieve?
<Allow the picture to move diagonally without leaving image marks on the background.>


What is the problem you are having?
<The picture leaves layers of images when it's moving>


Describe what you have tried to solve this problem
<I have tried using View.SetTransparentColor (1)>


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
<Answer Here>

Turing:


< setscreen ("graphics:vga")

var mypic2 : int := Pic.FileNew ("h:/computers/Sbob.jpg")
Pic.Draw (mypic2, 5, 5, picMerge)





var mypic3 : int := Pic.FileNew ("h:/computers/Sbob1.jpg")
setscreen ("offscreenonly")

View.SetTransparentColor (1)
for decreasing y: 130..90
Pic.Draw (mypic3, 380, y, picMerge)
            View.Update

    delay (10)
    View.Update

end for


>


Please specify what version of Turing you are using
<Turing 4.0.5.>
Author:  DemonWasp [ Fri May 22, 2009 10:55 am ]
Post subject:  RE:Turing Picuture animation help!!
You need to use Draw.Cls or cls to clear the screen in between. You also only need one View.Update in your loop. It should look more like this:

code:
for decreasing y : 130..90
    Draw.Cls()
    Pic.Draw ( mypic3, 380, y, picMerge )
    View.Update()
    delay (10)
end for


You clear the screen (blank slate), draw the picture at its current location, push that to the screen, then wait a little before continuing.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy