Changeset 187 for trunk/UMap.pas

Timestamp:

Feb 17, 2018, 11:39:36 PM (7 years ago)

Author:

chronos

Message:

• Added: TGPoint multiply operator to avoid FPC internal error.

File:

• trunk/UMap.pas (modified) (1 diff)

trunk/UMap.pas

@@ -64 +64 @@
 var
   Shift: TPointF;
-begin
-  Shift := TPointF.Create(0.5 * cos(30 / 180 * Pi), 0.5 * sin(30 / 180 * Pi));
+  Angle: Double;
+begin
+  Angle := 30 / 180 * Pi;
+  Shift := TPointF.Create(0.5, 0.5) * TPointF.Create(Cos(Angle), Sin(Angle));
   SetLength(Result.Points, 6);
   Result.Points[0] := TPoint.Create(Trunc(Pos.X + 0 * Size.X), Trunc(Pos.Y - 0.5 * Size.Y));