Changeset 186 for trunk/Packages/Common/UGeometry.pas

Timestamp:

Feb 17, 2018, 9:37:11 AM (6 years ago)

Author:

chronos

Message:

• Modified: Try to avoid fpc internal error.

File:

• trunk/Packages/Common/UGeometry.pas (modified) (1 diff)

trunk/Packages/Common/UGeometry.pas

@@ -453 +453 @@
   D: TGPoint<T>;
 begin
-  D := TGPoint<T>.Create(X - Base.X, Y - Base.Y);
+  D := Self - Base;
   X := Base.X + TypedRound(D.X * Cos(Angle) - D.Y * Sin(Angle));
   Y := Base.Y + TypedRound(D.X * Sin(Angle) + D.Y * Cos(Angle));