Changeset 186 for trunk/Packages


Ignore:
Timestamp:
Feb 17, 2018, 9:37:11 AM (7 years ago)
Author:
chronos
Message:
  • Modified: Try to avoid fpc internal error.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/UGeometry.pas

    r174 r186  
    453453  D: TGPoint<T>;
    454454begin
    455   D := TGPoint<T>.Create(X - Base.X, Y - Base.Y);
     455  D := Self - Base;
    456456  X := Base.X + TypedRound(D.X * Cos(Angle) - D.Y * Sin(Angle));
    457457  Y := Base.Y + TypedRound(D.X * Sin(Angle) + D.Y * Cos(Angle));
Note: See TracChangeset for help on using the changeset viewer.