animating

[viperfan7]

you might remember me from the huge line drawing program, I'm just wndering, how do I get a Draw.*** to move without leaving a trail and without clearing the screen, because what I want to move needs to be at the end of the program, heres the program and I'm trying to move the louds to the right all at the same speed and loop around

Quote:

View.Set ("graphics:639;479,nobuttonbar")
% NAME:viperfan7
% TITLE:NightSky
% DATE:10/5/06
% -----------------------------------------------------------------



% DESCRIPTION:
% -----------

/*
Night Sky, Ursa Major (Big Dipper) in the botom left corner
still not complete, later will add twinkaling stars effect and moving clouds
look under the right most cloud, its a shooting star
*/

% =========================
% VAR DECLARATIONS
% =========================

%Star vars
var x, y, c : int
%----------------

%star limit var
var stop : int
%-------------

%cloud vars(not in use yet, will be in use to move clouds)
var c1x,c2x,c3x : int
%----------



% ==========================
% MAIN PROGRAM
% ==========================
colourback (177)
cls



%Draws 1000 stars randomly, of random colour
stop := 0
loop
x := Rand.Int (1, maxx - 1) % Random x
y := Rand.Int (1, maxy - 1) % Random y
c := Rand.Int (1, maxcolor) % Random color
Draw.Dot (x, y, c)
stop += 1
exit when stop = 1000
end loop
%end of star draw

%draws shooting star
Draw.FillOval (500,200,2,2,111)
Draw.DashedLine (500,200,620,260,drawDashDot,111)
%end of draw shooting star

%draws Ursa Major
Draw.Line (170,150,220,120,25)
Draw.Line (220,120,300,100,25)
Draw.Line (220,120,200,80,25)
Draw.Line (200,80,250,70,25)
Draw.Line (250,70,300,100,25)
Draw.Line (140,200,170,150,25)
Draw.FillOval (140,200,5,5,0)
Draw.FillOval (170,150,5,5,0)
Draw.FillOval (220,120,5,5,0)
Draw.FillOval (200,80,5,5,0)
Draw.FillOval (250,70,5,5,0)
Draw.FillOval (300,100,5,5,0)
%end of Ursa Major draw


%draws moon
Draw.FillOval (maxx div 4,maxy div 4 * 3,60,60,23)
%draws craters on the moon
Draw.FillOval (maxx div 4,maxy div 4 * 3 - 30,5,5,22)
Draw.FillOval (maxx div 4 + 20,maxy div 4 * 3 - 30,6,6,22)
Draw.FillOval (maxx div 4 - 5,maxy div 4 * 3 - 39,3,3,22)
Draw.FillOval (maxx div 4,maxy div 4 * 3 + 39,5,5,22)
Draw.FillOval (maxx div 4 - 30,maxy div 4 * 3 - 30,5,5,22)
%end of crater draw
%makes it a quarter moon
Draw.FillOval (maxx div 4 + 30,maxy div 4 * 3,60,60,177)
%end of qurter moon draw
%end of moon draw
%draws clouds
Draw.FillOval (120,380,100,20,20)
Draw.Oval (120,380,100,20,22)
Draw.FillOval (180,350,100,20,20)
Draw.Oval (180,350,100,20,22)
Draw.FillOval (460,300,100,20,20)
Draw.Oval (460,300,100,20,22)
%end of draw clouds

[Clayton]

well... you cant move something and not leave a trail without clearing the screen... if you want your program to not flash then check out the View.Update and View.Set tutorial in the Turing Walkthrough

[NikG]

In your loop, just clear the screen and redraw everything, with the clouds at their new positions. Procedures are useful here.

[BenLi]

well the thing is to make all of your non-movable things in one procedure and your movable things in another procedure (with parameters of course) and draw them all in a loop. Now the problem with this is that your stars and sky are random so you need to take a screenshot of your program using Pic.New (consult turing documentation)

However, if the shooting star is the only movalbe things, you can just increment the shooting star, View.Update and just not followed by cls

[viperfan7]

kk thx for all the help, I really need to learn procedures