Setactivepage - глюк, :( Опции

[Palux]

Пишу на Паскале лабу с использованием Graph.
Суть задачи:
Рисуется рандомная картинка (линиями и кружочками) потом она
проподает и появляется луч фанарика, который двигается и ее
освещает.

Для это я использау 2 страници. Проблема в том, что они накладываются одна на другую (где то пополам) при смене страниц.

Подскажите под. че делать ....
Лабу надо быстро сдавать

[volvo]

Palux, держи исходник для начала... Учти, при больших значениях радиуса будет притормаживать. И попробуй (если это не устроит) переделать, как тебе нужно... ;)

Код

uses crt, graph;

var
 buffer: array[1 .. 10000] of byte;
 curr: integer;

procedure get_square(x, y, r: integer);
var ix, iy: integer;
begin
 setactivepage(0);
 curr := 0;
 for iy := y - r to y + r do
   for ix := x - r to x + r do begin
     inc(curr);
     buffer[curr] := getpixel(ix, iy);
   end;
 setactivepage(1);
end;

procedure put_circle(x, y, r: longint);
var ix, iy: integer;
begin
 curr := 0;
 for iy := y - r to y + r do
   for ix := x - r to x + r do begin
     inc(curr);
     if (sqr(x - ix) + sqr(y - iy) <= sqr(r) then
       putpixel(ix, iy, buffer[curr]);
   end;
end;

procedure darkcircle(x, y, r: integer);
begin
 setfillstyle(solidfill, black);
 bar(x - r, y - r, x + r, y + r);
end;

var
 gd, gm: integer;
 x, y, i: integer;
const r = 20;

begin
 Gd := ega;
 Gm := egahi;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);

 SetActivePage(0);
 SetVisualPage(0);

 Repeat
   SetColor (Random(15));
   Line (Random(GetMaxX-2)+1,Random(GetMaxY-2)+1,
         Random(GetMaxX-2)+1,Random(GetMaxY-2)+1);
 Until KeyPressed;
 while keypressed do readkey;

 SetActivePage(1);
 SetVisualPage(1);

 x := getmaxx div 2; y := getmaxy div 2;

 repeat
   get_square(x, y, r);
   put_circle(x, y, r);
   delay(22000);
   darkcircle(x, y, r);
   inc(x, 10);
 Until KeyPressed;
 while keypressed do readkey;

 closegraph;
end.