Заливка лопастей вентилятора

uses graphabc,events;
var
x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x0,y0,d,m:integer;
a: real;
procedure vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
procedure MouseDown(t,i,mb:integer);
begin
if mb=1 then if t>50 then if t<150 then if i>50 then if i<100 then
 begin
if m=m then m:=m+1;
end;
begin
if mb=1 then if t>50 then if t<150 then if i>150 then if i<200 then
 begin
if m=m then m:=m-1;
end;
end;
end;
begin
setwindowpos(50,50);
setwindowsize(800,600);
x0:=400;y0:=300;d:=100;m:=1;
while true do begin
lockdrawing;
clearwindow;
vrash(a,x,y,x0,y0,d);
vrash(a+60,x1,y1,x0,y0,d);
vrash(a+120,x2,y2,x0,y0,d);
vrash(a+180,x3,y3,x0,y0,d);
vrash(a+240,x4,y4,x0,y0,d);
vrash(a+300,x5,y5,x0,y0,d);
line(x,y,x0,y0);
line(x1,y1,x0,y0);
line(x2,y2,x0,y0);
line(x3,y3,x0,y0);
line(x4,y4,x0,y0);
line(x5,y5,x0,y0);
line(x1,y1,x2,y2);
line(x3,y3,x4,y4);
line(x5,y5,x,y);
 setpencolor(clred);
setpenwidth(10);
 setpencolor(clblack);
line(400,300,400,500);
  OnMouseDown:=MouseDown;
  setpenwidth(4);
rectangle(50,50,150,100);
textout(60,68,'скорость +1');
rectangle(50,150,150,200);
textout(60,168,'скорость -1');
redraw;
a:=a+m;
 end;
end.

uses
  graphabc, events;
 
var
  x0, y0, d, m: integer;
  a: real;
 
procedure Vrash(a: real; var pt: Point; x0, y0, d: integer);
begin
  a := a * pi / 180;
  pt.x := x0 + round(d * cos(a));
  pt.y := y0 - round(d * sin(a));
end;
 
procedure MouseDown(t, i, mb: integer);
begin
  if mb = 1 then if t > 50 then if t < 150 then if i > 50 then if i < 100 then
          begin
            if m = m then m := m + 1;
          end;
  begin
    if mb = 1 then if t > 50 then if t < 150 then if i > 150 then if i < 200 then
            begin
              if m = m then m := m - 1;
            end;
  end;
end;
 
var
  p: array of point;
 
begin
  setwindowpos(50, 50);
  setwindowsize(800, 600);
  x0 := 400;y0 := 300;d := 100;m := 1;
  
  setlength(p, 4);
  p[0].x := x0; p[0].y := y0;
  p[3] := p[0];
  
  SetBrushColor(clBrown);
  
  lockdrawing;
  while true do 
  begin
    
    clearwindow;
    
    vrash(a, p[1], x0, y0, d);
    vrash(a + 60, p[2], x0, y0, d);
    
    FillPolygon(p);
    DrawPolygon(p);
    
    vrash(a + 120, p[1], x0, y0, d);
    vrash(a + 180, p[2], x0, y0, d);
    FillPolygon(p);
    DrawPolygon(p);
    
    vrash(a + 240, p[1], x0, y0, d);
    vrash(a + 300, p[2], x0, y0, d);
    FillPolygon(p);
    DrawPolygon(p);
    
    setpencolor(clred);
    setpenwidth(10);
    setpencolor(clblack);
    line(400, 300, 400, 500);
    OnMouseDown := MouseDown;
    setpenwidth(4);
    rectangle(50, 50, 150, 100);
    textout(60, 68, 'скорость +1');
    rectangle(50, 150, 150, 200);
    textout(60, 168, 'скорость -1');
    redraw;
    a := a + m;
  end;
end.