Changeset 85 for trunk/Packages/Common/Geometric.pas

Timestamp:

Jun 7, 2024, 11:59:43 AM (5 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Packages/Common/Geometric.pas (moved) (moved from trunk/Packages/Common/UGeometric.pas ) (9 diffs)

trunk/Packages/Common/Geometric.pas

@@ -1 @@
-unit UGeometric;
-
-{$mode delphi}
+unit Geometric;
 
 interface
@@ -10 +8 @@
 type
   TPointArray = array of TPoint;
+
+  { TVector }
+
+  TVector = record
+    Position: TPoint;
+    Direction: TPoint;
+    function GetLength: Double;
+    function GetAngle: Double;
+    procedure SetLength(Value: Double);
+    class function Create(P1, P2: TPoint): TVector; static;
+  end;
 
 function Distance(P1, P2: TPoint): Integer;
@@ -15 +24 @@
 function AddPoint(const P1, P2: TPoint): TPoint;
 function SubPoint(const P1, P2: TPoint): TPoint;
-function PointToLineDistance(const P, V, W: TPoint): Integer;
+function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer;
 function ComparePoint(P1, P2: TPoint): Boolean;
 function RotatePoint(Center, P: TPoint; Angle: Double): TPoint;
@@ -27 +36 @@
 function ShiftRect(ARect: TRect; Delta: TPoint): TRect;
 
+
 implementation
 
@@ -51 +61 @@
 end;
 
-function PointToLineDistance(const P, V, W: TPoint): Integer;
+function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer;
 var
   l2, t: Double;
@@ -69 +79 @@
   if T < 0 then begin
     Result := Distance(P, V);       // Beyond the 'v' end of the segment
-    exit;
+    Intersect := V;
+    Exit;
   end
   else if T > 1 then begin
     Result := Distance(P, W);  // Beyond the 'w' end of the segment
+    Intersect := W;
     Exit;
   end;
@@ -78 +90 @@
   TT.Y := Trunc(V.Y + T * (W.Y - V.Y));
   Result := Distance(P, TT);
+  Intersect := TT;
 end;
 
@@ -96 +109 @@
   I: Integer;
 begin
+  Result := Default(TPointArray);
   SetLength(Result, Length(P));
   for I := 0 to High(P) do
@@ -162 +176 @@
 end;
 
+{ TVector }
+
+function TVector.GetLength: Double;
+begin
+  Result := Sqrt(Sqr(Direction.X) + Sqr(Direction.Y));
+end;
+
+function TVector.GetAngle: Double;
+begin
+  Result := ArcTan2(Direction.Y, Direction.X);
+end;
+
+procedure TVector.SetLength(Value: Double);
+var
+  Angle: Double;
+begin
+  Angle := GetAngle;
+  Direction := Point(Round(Cos(Angle) * Value),
+    Round(Sin(Angle) * Value));
+end;
+
+class function TVector.Create(P1, P2: TPoint): TVector;
+begin
+  Result.Position := P1;
+  Result.Direction := Point(P2.X - P1.X, P2.Y - P1.Y);
+end;
 
 end.
-