Graph

[Katmai]

Подскажите как в модуле граф, можно реализовать - предыдущая картинка стиралась, а рисовалась такаяже только с новыми координатами ?!
И что бы можно было выполнять проверку на пересичение фигур

repeat
bar(x1,y1,x2,y2);
x1:=x1+5;
x2:=x2+5;
delay(5000);
cleandevice;
until x<>1000

Я делал так^
Но в програме у меня не одна задержка из-за этого програма тормозит с выводом и+еще ужасно мигает (

ПС для себя(интересно) делаю пинг-понг, и столкнулся с такой проблемой.

[ROMA2PVT]

эт как пример

 y:=530;
 r:=50;
 repeat
 setcolor(7);
 circle(340,y,r);
 delay(200);
 setcolor(0);
 circle(340,y,r);
 y:=y-10;
 r:=r+2;
 until keypressed;

алгоритм прост.Отрисовываете,задерживаете,ри суете цветом фона,ну или cleandevic'ом очищаете и уже отрисовываете со смещением

[Katmai]

Доскажите еще пожайлуста как выводить константы на экран в графе ?!

Как пример:

if x<0 then inc(k);

И вывести на екран.
ПРобывал:

outTextxy(x,y,'Koli4estvo=',k,');

Не работает =(
Как это сделать ?!

[ROMA2PVT]

в строку переводишь и выводишь функция

str