Михаил Зайков
S:14:56:49 11.10
R:14:56:52 11.10
procedure chel(k:integer; a: TPaintBox);
var x_st_n1,x_st_n2: integer;
n1: real;
begin
n1:= (k div 5)*pi/12;
with a. canvas do begin
Pen. Width:= 3;
// Руки + тело
MoveTo(75 + k, 180 + trunc(10*sin(n1)));
LineTo(50 + k, 140 + trunc(10*sin(n1)));
MoveTo(25 + k, 180 + trunc(10*sin(n1)));
LineTo(50 + k, 140 + trunc(10*sin(n1)));
MoveTo(50 + k, 135 + trunc(10*sin(n1)));
LineTo(50 + k, 215 + trunc(10*sin(n1)));
// Голова
ellipse(28 + k,102 + trunc(10*sin(n1)),73 + k,147 + trunc(10*sin(n1)));
// Ноги
x_st_n1:= 40;
x_st_n2:= 60;
if (k div 20) mod 2 = 0 then begin
MoveTo(50 + k, 215 + trunc(10*sin(n1)));
LineTo(x_st_n1 + 2*k - (20 * (k div 20 )), 275 + trunc(10*sin(n1)));
MoveTo(50 + k, 215 + trunc(10*sin(n1)));
LineTo(x_st_n2 + (20 * (k div 20 )), 275 + trunc(10*sin(n1)));
end;
if (k div 20) mod 2 <> 0 then begin
MoveTo(50 + k, 215 + trunc(10*sin(n1)));
LineTo(x_st_n2 + 2*k - (20 * (k div 20+1)), 275 + trunc(10*sin(n1)));
MoveTo(50 + k, 215 + trunc(10*sin(n1)));
LineTo(x_st_n1 + (20 * (k div 20+1)), 275 + trunc(10*sin(n1)));
end;
Pen. Width:= 1;
end;
end;