Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите с анимацией

Автор: Player 8.12.2005 1:10

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

Код

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 8.12.2005 1:27

создай процедуру рисования карандаша по 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 8.12.2005 3:11

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

Автор: Player 8.12.2005 23:18

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