Changeset 93 for trunk/Packages/Common/UGeometric.pas

Timestamp:

Sep 26, 2022, 10:39:03 PM (20 months ago)

Author:

chronos

Message:

• Added: Support for train carriages.
• Added: City support implementation preparation.

File:

• trunk/Packages/Common/UGeometric.pas (modified) (2 diffs)

trunk/Packages/Common/UGeometric.pas

@@ -8 +8 @@
 type
   TPointArray = array of TPoint;
+
+  { TVector }
+
+  TVector = record
+    Position: TPoint;
+    Direction: TPoint;
+    function GetLength: Integer;
+    function GetAngle: Double;
+  end;
 
 function Distance(P1, P2: TPoint): Integer;
@@ -162 +171 @@
 end;
 
+{ TVector }
+
+function TVector.GetLength: Integer;
+begin
+  Result := Trunc(Sqrt(Sqr(Direction.X) + Sqr(Direction.Y)));
+end;
+
+function TVector.GetAngle: Double;
+begin
+  Result := ArcTan2(Direction.Y, Direction.X);
+end;
 
 end.