Рисование двумя видеостраницами. - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы

Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

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

Опции

Олег

11.11.2005 21:35

Сообщение #1

Гость

Вот такой простенький пример. По экрану долж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 - 7.11.2006 20:54