Changeset 232

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.

Location:

trunk

Files:

• UGeometry.pas (modified) (2 diffs)
• UMapType.pas (modified) (1 diff)

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;
 

trunk/UMapType.pas

@@ -405 +405 @@
   end;
 
+  // Adjust polygon centers
+  for I := 0 to Cells.Count - 1 do begin
+    Cells[I].PosPx := Cells[I].Polygon.GetCenter;
+  end;
+
   FPixelRect := CalculatePixelRect;
 end;