Анимация вращения двух фигур

uses
  system, graphabc;
 
var
  stop: boolean := false;
 
procedure MyKeyPress(ch: char);
begin
  stop := true;
end;
 
type
  pointtype = record
    x, y: integer;
  end;
 
const
  r1: array[1..4] of pointtype =
  ((x: -50; y: 20), (x: 50; y: 20), (x: 50; y: -20), (x: -50; y: -20));
  r2: array[1..4] of pointtype =
  ((x: -40; y: 15), (x: 40; y: 15), (x: 40; y: -15), (x: -40; y: -15));
 
var
  i, x0, y0: integer;
  x1, y1, x2, y2: integer;
  l1, l2, a, da, b: real;
  rc1, rc2: array of Point;
 
begin
  x0 := WindowCenter.X;
  y0 := WindowCenter.Y;
  x1 := x0 - 30;
  x2 := x0 + 20;
  y1 := y0 - 15;
  y2 := y0 + 5;
  l1 := sqrt(sqr((r1[1].x - r1[2].x) / 2) + sqr((r1[1].y - r1[3].y) / 2));
  l2 := sqrt(sqr((r2[1].x - r2[2].x) / 2) + sqr((r2[1].y - r2[3].y) / 2));
  a := 0;
  da := pi / 18;
  
  setlength(rc1, 5);
  setlength(rc2, 5);
  OnKeyPress := myKeyPress;
  LockDrawing;
  repeat
    for i := 1 to 4 do
    begin
      b := math.atan2(r1[i].y, r1[i].x) - a;
      rc1[i - 1].x := x1 + round(l1 * cos(b));
      rc1[i - 1].y := y1 - round(l1 * sin(b));
      b := math.atan2(r2[i].y, r2[i].x) + a;
      rc2[i - 1].x := x2 + round(l2 * cos(b));
      rc2[i - 1].y := y2 - round(l2 * sin(b));
    end;
    rc1[4] := rc1[0];
    rc2[4] := rc2[0];
    SetBrushStyle(bsSolid);
    Window.Clear;
    SetPenColor(clLightSalmon);
    DrawPolygon(rc1);
    SetPenColor(clLightBlue);
    DrawPolygon(rc2);
    Sleep(10);
    Redraw;
    a := a + da;
  until stop;
end.

uses
  graphabc;
 
var
  stop: boolean := false;
 
procedure MyKeyPress(ch: char);
begin
  stop := true;
end;
var
  i, da: integer;
 
type
  polar_point = record
    r: integer;
    phi: integer;
  end;
  polar_arr = array of polar_point;
 
function Recalc(p: polar_point): Point;
begin
  result.X := WindowCenter.Y + Trunc(p.r * cos(DegToRad(p.phi)));
  result.Y := WindowCenter.Y + Trunc(p.r * sin(DegToRad(p.phi)));
end;
 
var
  first, second: polar_arr;
  pts: array of point;
 
begin
  OnKeyPress := myKeyPress;
  
  setlength(first, 12);
  for i := 0 to 11 do
  begin
    first[i].phi := 15 + i * 30;
    first[i].r := Trunc(50 / (1 + Ord(i mod 3 = 1) * (Sin(DegToRad(45)) / Sin(DegToRad(15)) - 1)));
  end;
  setlength(second, 12);
  for i := 0 to 11 do
  begin
    second[i].phi := i * 30;
    second[i].r := Trunc(40 / (1 + Ord(i mod 3 = 1) * (Sin(DegToRad(45)) / Sin(DegToRad(15)) - 1)));
  end;
  
  setlength(pts, 12);
  LockDrawing;
  repeat
    da := 4;
    
    Window.Clear;
    for i := 0 to 11 do pts[i] := Recalc(first[i]);
    SetPenColor(clRed);
    DrawPolygon(pts);
    for i := 0 to 11 do pts[i] := Recalc(second[i]);
    SetPenColor(clBlue);
    DrawPolygon(pts);
    
    for i := 0 to 11 do
    begin
      first[i].phi := first[i].phi + da;
      if first[i].phi > 360 then first[i].phi -= 360;
      
      second[i].phi := second[i].phi - da;
      if second[i].phi < 0 then second[i].phi += 360;
    end;
    sleep(10);
    Redraw;
  until stop;
end.