Помогите с анимацией Опции

[Player]

Всем желаю здравствовать!!! Помогите, пожалуйста "привязать" карандаш к рисованию квадрата.

Код

Program Animation;
Uses Crt,Graph;
Var I,Gd,Gm:Integer;
Begin
Clrscr;
Gd:=Detect;
Gm:=2;
InitGraph (Gd,Gm,'C:\BP\BGI');
Repeat
SetBKColor (7);
ClearDevice;
SetColor (9);

For I:=200 To 300 Do Begin
PutPixel (250,I,9);
Delay (2500);

SetColor (6);
Line (250,200,290,110);
Line (290,110,305,110);
Line (305,110,250,200);
End;

For I:=250 To 350 Do Begin
PutPixel (I,300,9);
Delay(2500);
End;

For I:=200 To 300 Do Begin
PutPixel (350,I,9);
Delay(2500);
End;

For I:=250 To 350 Do Begin
PutPixel (I,200,9);
Delay(2500);
End;

Until Keypressed;
CloseGraph;
End.

[GoodWind]

создай процедуру рисования карандаша по xor (например DrawPencil(x,y:integer)).
потом создай процедуры рисования вертикальной и горизонтальной линии:

procedure hLine(x1,x2,y:integer);
var i:integer;
begin
for i:=x1 to x2 do
 begin 
   putpixel(i,y);
   drawpencil(x+1,y);
   delay(сколько-нибудь); {подбери опытным путем}
 end;
end;

думаю сообразишь как написать vLine...
а потом с помощью этих процедур рисуй квадрат.

[Guest]

Спасибо, GoodWind!
Завтра попробую.

[Player]

А как использовать xor?