Графика в паскале

помогите плиз, что то не выходит, просто размазывает движение и все .....
Procedure chelovek;
begin
Setcolor(1);
Circle(275,300,8);
Line(275,308,275,340);
Line(275,340,270,365);{nogi}
Line(275,340,292,365);
Line(275,324,260,335); {ruki}
Line(275,324,290,335);
{dvigaem_cheloveka}
 chelovek;
 Size:=ImageSize(265,291,296,365);
 GetMem(P,size);
 GetImage(265,291,296,365,P^);
 For x:=229 to 300 do
 begin
 dec(y);
 PutImage(x,y,P^,CopyPut);
 delay(50);
 end;
что я тут не так сделал?(
2 ответа

Нарисуй этот самый кадр еще раз с цветом фона, перед прорисовкой нового.


psycho-coder CПАСиБо