Игра Delphi c пушкой. Второй ствол не перемещается плавно - Delphi - Ответ 16847777

procedure RotateXY(X, Y: integer; aAngle: double; var X1, Y1: integer);
begin
  X1 := Round(X*Cos(aAngle) - Y*Sin(aAngle));
  Y1 := Round(X*Sin(aAngle) + Y*Cos(aAngle));
end;
 
procedure DrawGun;
var
  x1, y1: integer;
  a: double;
begin
  with Form1.Image1.Canvas do
  begin
    if (Vx = 0) and (Vy = 0) then Pen.Color := RGB(0, 70, 0) else Pen.Color := clBlack;
    Brush.Color := Pen.Color;
    Pen.Width := 5;
    a := Angle * pi / 180;
 
    // Левая пушка
    RotateXY(-6, 0, -a, X1, Y1);
    MoveTo(GunPosition + x1, 235 - y1);
 
    RotateXY(-6, 15, -a, X1, Y1);
    LineTo(GunPosition + x1, 235 - y1);
 
    // Правая пушка
    RotateXY(6, 0, -a, X1, Y1);
    MoveTo(GunPosition + x1, 235 - y1);
 
    RotateXY(6, 15, -a, X1, Y1);
    LineTo(GunPosition + x1, 235 - y1);
 
    // Башня
    Pen.Width := 1;
    Ellipse(GunPosition - 8, 235-8, GunPosition + 8, 235+8);
    Rectangle(GunPosition - 10, 240, GunPosition + 10, 260);
  end;
end;