Changeset 174 for trunk/Packages/Common/UGeometry.pas

Timestamp:

Nov 26, 2017, 11:35:25 AM (7 years ago)

Author:

chronos

Message:

• Modified: Improved generation of random mesh map to avoid overlapping cells polygons and removed links from non-neighboring cells.

File:

• trunk/Packages/Common/UGeometry.pas (modified) (3 diffs)

trunk/Packages/Common/UGeometry.pas

@@ -95 +95 @@
     constructor Create(const Rect: TGRect<T>); overload;
     function GetRect: TGRect<T>;
+    function EdgeDistance(Polygon: TGPolygon<T>): Double;
     procedure AddPoint(const P: T);
     procedure Clear;
@@ -157 +158 @@
 end;
 
-{ TPolygon }
+{ TGPolygon }
 
 function TGPolygon<T>.GetPoint(const Index: Integer): T;
@@ -282 +283 @@
 end;
 
-{ TLine }
+function TGPolygon<T>.EdgeDistance(Polygon: TGPolygon<T>): Double;
+var
+  I, J: Integer;
+  Dist: Double;
+begin
+  Result := Infinity;
+  for I := 0 to Length(Points) - 1 do
+  for J := 0 to Length(Polygon.Points) - 1 do begin
+    Dist := TGLine<T>.Create(Points[I], Polygon.Points[J]).Distance;
+    if Dist < Result then Result := Dist;
+  end;
+end;
+
+{ TGLine }
 
 function TGLine<T>.GetDistance: Double;