Changeset 173 for trunk/Packages/Common
- Timestamp:
- Nov 24, 2017, 8:35:08 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/UGeometryClasses.pas
r171 r173 94 94 D: TPoint; 95 95 begin 96 D := TPoint.Create(P.X - Center.X, P.Y - Center.Y);97 Result := TPoint.Create(Center.X + Round(D.X * Cos(Angle) - D.Y * Sin(Angle)),96 D := Point(P.X - Center.X, P.Y - Center.Y); 97 Result := Point(Center.X + Round(D.X * Cos(Angle) - D.Y * Sin(Angle)), 98 98 Center.Y + Round(D.X * Sin(Angle) + D.Y * Cos(Angle))); 99 99 end;
Note:
See TracChangeset
for help on using the changeset viewer.