oval animation

[xgoldbergx]

I'm trying to make a program that moves the circle to the other side of the screen, but my program makes it smear.
Can someone help me get rid of the smear? thanks.



setscreen ("graphics")

var x, y, xradius, yradius : int


x := 15
y := 200
xradius := 15
yradius := 15

loop
delay (10)
x := x + 1
drawoval (x, y, xradius, yradius, red)
end loop

[Cervantes]

Please use

code:

[code][/code]

tags when posting code.

Here are three things for you to consider.

1. Draw a white oval where the oval was last, update its position, then draw it in red.

2. Draw a big white box across the whole screen with Draw.FillBox (0, 0, maxx, maxy, white)

3. Use cls to clear the entire screen to the background colour (default is white).

[HellblazerX]

try this

code:

setscreen ("graphics") var x, y, xradius, yradius : int x := 15 y := 200 xradius := 15 yradius := 15 View.Set ("offscreenonly") loop     View.Update     delay (10)     cls     x := x + 1     drawoval (x, y, xradius, yradius, red) end loop

the reason it smears is because you're not clearing the screen after every loop. Thats what the cls command does. Also, View.Set ("offscreenonly") and View.Update remove any animation flickers.

[xgoldbergx]

thanks alot

[Clayton]

note:

setscreen = View.Set

[do_pete]

note:

1. That post was completely useless
2. We've already solved this problem
3. Stop your spamming