Рисование двумя видеостраницами., В чем ошибка? Опции

[Олег]

Вот такой простенький пример. По экрану должeн двигатсься квадрат.

Uses Graph;
var x,y: Integer;
	a, v: Byte;
procedure Flip;
begin
a:= a xor 1;
v:= v xor 1;
SetVisualPage(v);
SetActivePage(a);
end;
BEGIN
x:= 9; y:= 2;
a:= 0; v:= 1;
InitGraph(x, y, 'C:\BP\BGI');
SetActivePage(a);
SetVisualPage(v);
for x:=0 to 600 do
begin
ClearDevice;
Bar(x, 30,x+30,60);
Flip;
end;
ReadLn;
END.

Вместо этого квадрат рисуется в двух местах (сверху и снизу). В чем дело?
Может проблема связана с вертикальной разверткой? Если так, то как синхронизировать (используя только Graph)?

М

ТЕГИ! Altair

Сообщение отредактировано: volvo - 8.11.2006 0:54