What is it you are trying to achieve?
An animation without wiping previously printed images.
What is the problem you are having?
In my animation procedure, I use cls to clear the screen inbetween frames, but that wipes all my other images that I've printed.
Describe what you have tried to solve this problem
I have tried looking for an alternative for cls that only clears a certain image (The image we are animating) but I haven't found one. I also have a very messy solution, explained below.
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
The code for the program is below. Note that the code is very messy, I'll clean it up later. The program does animations in proc ImageInAndOut, but it uses cls to clear the screen in between frames, which wipes other images. This occurs in proc NextSlide, when the animated point is coming across the screen, it wipes the title, WhatIsCPUImage. A messy solution would be to use an array of booleans and a large amount of if statements in my animation procedure, which would check where we are in the program, and display the appropriate images while animating, like I have it doing with the background image at the moment, but thats very messy, and there must be a better way. Thanks so much for whoever helps me!
| Turing: |
import GUI var imageX : int := -700 var counter : int := 1 var Background1 : int := Pic.FileNew ("Background1.jpg") var TitleImage : int := Pic.FileNew ("TitleImage.bmp") var NameImage : int := Pic.FileNew ("NameImage.bmp") var WhatIsCPUImage : int := Pic.FileNew ("WhatIsCPUImage.bmp") var Slide1Point1 : int := Pic.FileNew ("Slide1Point1.bmp") var half, done : boolean := false var slideNumber, pointNumber : int := 0 var button1 : int var button2 : int procedure MoveTitleIn (image, imageY, waitTime, halfX, stopnum : int) if counter = 0 or (imageX > stopnum - 5 and imageX < stopnum + 5) then half := true delay (waitTime) elsif imageX < halfX then counter := counter + 1 else counter := counter - 1 end if imageX := imageX + counter cls Pic.Draw (Background1, 0, 0, picCopy) Pic.Draw (image, imageX, imageY, picMerge) View.Update end MoveTitleIn procedure MoveTitleOut (image, imageY : int) if imageX < 1265 then counter := counter + 1 else done := true end if imageX := imageX + counter cls Pic.Draw (Background1, 0, 0, picCopy) Pic.Draw (image, imageX, imageY, picMerge) View.Update end MoveTitleOut procedure ImageInAndOut (image, imageY, waitTime, halfX, stopat : int, exitathalf : boolean) loop if half = false then MoveTitleIn (image, imageY, waitTime, halfX, stopat) else if exitathalf = true then done := true exit else MoveTitleOut (image, imageY) end if end if if done = true then exit end if delay (4) end loop imageX := -900 counter := 1 half := false done := false end ImageInAndOut procedure NextPoint pointNumber := pointNumber + 1 case pointNumber of label 1 : cls Pic.Draw (Background1, 0, 0, picCopy) Pic.Draw ( WhatIsCPUImage, 216, 550, picMerge) ImageInAndOut(Slide1Point1, 480, 0, -400, 20, true) button2 := GUI.CreateButton (880, 600, 0, "Next Point", NextPoint) View.Update end case end NextPoint procedure NextSlide slideNumber := slideNumber + 1 case slideNumber of label 1 : cls Pic.Draw (Background1, 0, 0, picCopy) View.Update ImageInAndOut (WhatIsCPUImage, 550, 0, -330, 212, true) imageX := -900 counter := 1 half := false done := false GUI.Disable (button1) button2 := GUI.CreateButton (880, 600, 0, "Next Point", NextPoint) View.Update end case end NextSlide View.Set ("Graphics:1000;645, offscreenonly") Pic.Draw (Background1, 0, 0, picCopy) Pic.Draw (TitleImage, imageX, 600, picMerge) delay (2000) ImageInAndOut (TitleImage, 300, 2500, -290, 999, false) ImageInAndOut (NameImage, 300, 2500, -380, 999, false) button1 := GUI.CreateButton (880, 600, 0, "Next Slide", NextSlide) View.Update loop exit when GUI.ProcessEvent end loop |
Please specify what version of Turing you are using
4.1