Форум «Всё о Паскале» _ Задачи _ Помогите с анимацией
Автор: 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... а потом с помощью этих процедур рисуй квадрат.