Computer Science Canada

Animation Help
Author:  andxdreamxixdo [ Sat Jan 08, 2005 5:17 pm ]
Post subject:  Animation Help
I am working on a project for my computer class, and after hours of staring blankly at the screen and asking for help from many people I have come here. I keep getting an error and I'm not too sure what it's about, so if anyone can help me, that would be great.

code:
Draw.Line (10, 1, 25, 50, 25) 
Draw.Line (100, 100, 25, 50, 25) 
Draw.Line (25, 50, 25, 100, 25)
Draw.Line (10, 75, 40, 100, 25)
Draw.FillOval (25, 125, 25, 25, 25)


fr1 := Pic.New (0, 0, 600, 600) 
Draw.Cls

Draw.Line (25, 1, 25, 50, 155) 
Draw.Line (25, 100, 25, 50, 155) 
Draw.Line (25, 50, 25, 100, 155) 
Draw.Line (10, 100, 40, 75, 155) 
Draw.FillOval (25, 125, 25, 25, 155) 

fr2 := Pic.New (0, 0, 600, 600) 
Draw.Cls 

 

% Frame 3
Draw.Line (45, 1, 45, 50, 155)
Draw.Line  (45, 50, 10, 95, 155)
Draw.Line (45, 50, 45, 100, 155) 
Draw.Line (30, 100, 65, 75, 155) 
Draw.FillOval (45, 125, 25, 25, 155)

fr3 := Pic.New (0, 0, 600, 600)
Draw.Cls

%Frame 4
Draw.Line (45, 1, 45, 50, 7)
Draw.Line (45, 1, 45, 50, 7)
Draw.Line (45, 50, 45, 100, 7)
Draw.Line (30, 100, 65, 50, 7)
Draw.FillOval (45, 125, 25, 25, 7)

fr4 := Pic.New (0, 0, 600, 600)
Draw.Cls




loop
    for i : 0 .. 600 by 25
        Pic.Draw (fr1, i, 0, picCopy)
        Time.Delay (100)
        Pic.Draw (fr2, i, 0, picCopy)
        Time.Delay (100)
        Draw.Cls
    end for
   
% Animate the frames to make the stick man move back to where he started

    for decreasing i : 600 .. 0 by 25
        Pic.Draw (fr1, i, 0, picCopy)
        Time.Delay (100)
        Pic.Draw (fr2, i, 0, picCopy)
        Time.Delay (100)
        Draw.Cls
    end for

end loop



Based on a program from the turring submissions forum of this site.
Author:  Cervantes [ Sat Jan 08, 2005 6:11 pm ]
Post subject: 
(I'm assuming that's the entire code, and that there is not View.Set or setsceen anywhere before the code you posted.)
You're getting the error because the picture (taken by Pic.New) was not successfully created, as Turing kindly tells you. Now, the reason it was not successfully created is because you are trying to take nothing and put it into a picture. Apparently, Turing doesn't like having nothing in a picture. The "nothing" I am talking about is not white background, but actually nothing. See, you are taking a picture of (0,0,600, 600). But, the screen only goes from (0,0) to (639, 339) (at least on my computer). So, you are trying to take a picture of stuff (nothing) that is off the screen.
In short, to solve the problem, change:
code:

fr1 := Pic.New (0, 0, 600, 600)

to
code:

fr1 := Pic.New (0, 0, maxx, maxy)
Author:  andxdreamxixdo [ Sat Jan 08, 2005 6:46 pm ]
Post subject: 
hey thanx alot your a life saver.

:


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

Terms of Use | Privacy Policy