Changeset 232 for trunk/UGeometry.pas

Timestamp:

Sep 19, 2018, 2:34:06 PM (6 years ago)

Author:

chronos

Message:

• Modified: Adjusted center of Voronoi map to better place cells power text in center of polygons.

File:

• trunk/UGeometry.pas (modified) (2 diffs)

trunk/UGeometry.pas

@@ -97 +97 @@
     function GetRect: TGRect<T>;
     function EdgeDistance(Polygon: TGPolygon<T>): Double;
+    function GetCenter: T;
     procedure AddPoint(const P: T);
     procedure Clear;
@@ -164 +165 @@
 begin
   Result := Points[Index];
+end;
+
+function TGPolygon<T>.GetCenter: T;
+var
+  I: Integer;
+begin
+  Result := T.Create(0, 0);
+  for I := 0 to Length(Points) - 1 do
+    Result := Result + Points[I];
+  Result.X := TypedRound(Result.X / Length(Points));
+  Result.Y := TypedRound(Result.Y / Length(Points));
 end;