Движение окружности (Pascal ABC.NET)

[supervova]

Здравствуйте, пытаюсь заставить окружность двигаться по прямой
uses GraphABC;
var
x,y, i: INTEGER;
begin
x:= 50;
// y:= 200;
repeat
setPenColor(clBlack) ;
circle(x, 200, 30);
setPenColor(clwhite);
circle(x, 200, 30);

x:= x + 1;
until x > 600;

В результате получается полоска из окружностей, дело том, что белый цвет не полностью закрашивает черный и вместо движения ростёт труба. Начал извращаться т.е. прокрашивать белым цветом окружность по несколько раз ))
uses GraphABC;
var
x,y, i: INTEGER;
begin
x:= 50;
// y:= 200;
repeat
setPenColor(clBlack) ;
circle(x, 200, 30);
for i:= 1 to 10 do
begin
setPenColor(clwhite);
circle(x, 200, 30);
end;
x:= x + 1;
until x > 600;

end.

След трубы остаётся, но почти незаметный. Однако вместо движения, что и следовало ожидать - окружность мелькает. Подскажите как правильно кодить движение тел на pascal ABC.NET

[puporev]

uses GraphABC;
var
x,y, i: INTEGER;
begin
x:= 30;
y:= windowheight div 2;
lockdrawing;
repeat
clearwindow;
circle(x,y,30);
sleep(50);
x:=x+5;
redraw
until x > windowwidth-30;

end.

[supervova]

puporev
Спасибо, однако, если буду рисовать прямоугольник в окне и двигать несколько тел прямо в нём, получается придется всю картину в цикле рисовать по новой? Если так то это крайне не эффективно.

[puporev]

uses GraphABC;
var
x,y, i: INTEGER;
begin
x:= 30;
y:= windowheight div 2;
repeat
setpencolor(clBlack);
circle(x,y,30);
sleep(50);
setpencolor(clWhite);
circle(x,y,30);
x:=x+5;
until x > windowwidth-30;

end.

[supervova]

Именно в этом вся соль, пикселя от черного не закрашиваются белыми, остается след Только чистка экрана помогает

[puporev]

С какого это угару не закрашиваются?

[supervova]

Я не понимаю почему(
Шаг на 1 поменял для наглядности

[supervova]

кстать, на 2 компах проверил

[puporev]

Я в простом АВС запускал, все нормально, в .net ерунда.
Напиши так

uses GraphABC;
var
x,y: INTEGER;
begin
x:= 30;
y:= windowheight div 2;
repeat
setpenwidth(1);
setpencolor(clBlack);
circle(x,y,30);
sleep(50);
setpenwidth(3);
setpencolor(clWhite);
circle(x,y,30);
x:=x+5;
until x > windowwidth-30;

end.

[supervova]

Хех, оригинально, видно опыт) Я желторотик не догадался))) Спасибо. Дальше для обучения буду использовать чистый ABC.