Changeset 248 for trunk/UGeometry.pas
- Timestamp:
- Sep 22, 2018, 2:35:46 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UGeometry.pas
r236 r248 98 98 constructor Create(const Points: TPointArray); overload; 99 99 constructor Create(const Rect: TGRect<T>); overload; 100 procedure Move(P: T); 100 101 function GetRect: TGRect<T>; 101 102 function EdgeDistance(Polygon: TGPolygon<T>): Double; … … 331 332 end; 332 333 334 procedure TGPolygon<T>.Move(P: T); 335 var 336 I: Integer; 337 begin 338 for I := 0 to Length(Points) - 1 do 339 Points[I] := Points[I] + P; 340 end; 341 333 342 { TGLine } 334 343
Note:
See TracChangeset
for help on using the changeset viewer.