АСОИ, Delphi, много вариантов 2 сем / 1классы / гусеница / Unit3

unit Unit3;

interface

uses Graphics,Unit2;

type TKola=class(TKrug)
ugol,a:extended;
constructor Create(X0,Y0:integer;Canvas0:TCanvas);
procedure Show;
procedure Povorot(ug:extended);
procedure Ugol0;
procedure Move(DeltaX,DeltaY:integer);
end;

implementation

constructor TKola.Create;
begin
inherited Create(X0,Y0,25, clCream, Canvas0);
Ugol0;
end;

procedure TKola.Ugol0;
begin
ugol:=0;
a:=0;
show;
end;

procedure TKola.Show;
var x0,y0:extended;
x1,y1,i:integer;
begin
inherited Show;
Canvas.Pen.Width:=2;
Canvas.Pen.Color:=clMaroon;
a:=a+ugol;
for i:=1 to 8 do
begin
x0:=R*cos(a);
y0:=R*sin(a);
x1:=x+round(x0);
y1:=y+round(y0);
Canvas.MoveTo(X,Y);
Canvas.LineTo(x1,y1);
a:=a+pi/4;
end;
end;

procedure TKola.Povorot;
begin
Canvas.Brush.Color:=clGray;
Canvas.Pen.Color:=clGray;
Canvas.Ellipse(X-R, Y-R, X+R, Y+R);
Ugol:=ug;
Show;
end;

procedure Tkola.Move;
begin
Canvas.Brush.Color:=clMaroon;
Canvas.Pen.Color:=clMaroon;
Canvas.Ellipse(X-R, Y-R, X+R, Y+R);
x:=x+5;
y:=y+5;
show;
end;

end.