Computer Science Canada :: View topic - Need help with Movement

import GUI in "%oot/lib/GUI"
var x : array 1 .. 4 of int := init (155, 165, 160, 160)
var y : array 1 .. 4 of int := init (0, 0, 0, 5)
var chars : array char of boolean
var line :int
setscreen ("graphics:320;320")
loop
Input.KeyDown (chars)
line := GUI.CreateLine (x(1), y(1), x(2), y(2), 0)
line := GUI.CreateLine (x(3), y(3), x(4), y(4), 0)
if chars (KEY_RIGHT_ARROW) then
for i : 1..4
x(i) := x(i) + 1
delay(3)
cls
drawline (x(1), y(1), x(2), y(2), 1)
drawline (x(3), y(3), x(4), y(4), 1)
end for
end if
if chars (KEY_LEFT_ARROW) then
for i : 1..4
x(i) := x(i) - 1
delay(3)
cls
drawline (x(1), y(1), x(2), y(2), 1)
drawline (x(3), y(3), x(4), y(4), 1)
end for
end if
end loop

Author:	Blade [ Sat Nov 22, 2003 10:16 pm ]
Post subject:
well, it seems like you're trying to get rid of flicker... and you obviously are using turing 4.x so you can use setscreen("offscreenonly") and View.Update this will get rid of your flicker. the offscreenonly sets the the program so that you update the screen with the command View.Update. so whenever you call View.Update the screen will refreash all at once, instead of refreashing every time you put something out.

Author:	santabruzer [ Sat Nov 22, 2003 11:08 pm ]
Post subject:
Thanx.. that explanation clears it all...