Changeset 186
- Timestamp:
- Feb 17, 2018, 9:37:11 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/UGeometry.pas
r174 r186 453 453 D: TGPoint<T>; 454 454 begin 455 D := TGPoint<T>.Create(X - Base.X, Y - Base.Y);455 D := Self - Base; 456 456 X := Base.X + TypedRound(D.X * Cos(Angle) - D.Y * Sin(Angle)); 457 457 Y := Base.Y + TypedRound(D.X * Sin(Angle) + D.Y * Cos(Angle));
Note:
See TracChangeset
for help on using the changeset viewer.