Паскаль. Графика

[uropb992]

изображение кота двигающего усами, глазами и хвостом.
написать программу

[ROMA2PVT]

Выкладывайте ваши наработки и тогда ва кто нить и поможет.

[uropb992]

program LR3;
uses GraphABC;
var i,x: integer;
begin
LockDrawing;

for i:=100 downto -250 do
begin


begin

Arc(i+350,250,70,360,180);
line (i+420,250,i+550+x*20,250);
line (i+550,250,i+580+x*20,210) ;
line (i+580,210,i+570+x*20,260) ;
line (i+570,260,i+600+x*20,280) ;
line (i+600,280,i+550+x*20,270) ;
line (i+550,270,i+350+x*20,270) ;
Arc (i+341,261,13,-45,30) ;
line (i+353,255,i+340+x*20,270) ;
line (i+340,270,i+350+x*20,270) ;
line (i+350,270,i+280+x*20,270) ;
line (i+280,270,i+280+x*20,248) ;
Circle (i+320,220,9) ;
SetBrushColor(clBlack);
Circle(i+323,223,6) ;
line (i+350,180,i+350+x*20,138) ;

Arc(i+344,141,7,360, 180) ;
Arc(i+358, 141, 7, 0, -180);
Arc(i+360, 155, 9, 0, -180);
Arc(i+342, 155, 9, 0, -180);
Arc(i+340, 170, 11, 0, -180);
Arc(i+362, 170, 11, 0, -180);
FloodFill(i+350,250,clBlue) ;
FloodFill(i+350,180,clBlue);
FloodFill(i+350,180,clBlue);
Redraw;
Sleep(1);
SetBrushColor(clWhite);
FillRect(i-0,382-i,i+601,i+0)
end;
end;
end.

Про кита есть