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

Timestamp:

May 17, 2023, 12:18:41 AM (12 months ago)

Author:

chronos

Message:

• Modified: Draw curved metro lines.

File:

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

trunk/Packages/Common/UGeometric.pas

@@ -14 +14 @@
     Position: TPoint;
     Direction: TPoint;
-    function GetLength: Integer;
+    function GetLength: Double;
     function GetAngle: Double;
+    procedure SetLength(Value: Double);
+    class function Create(P1, P2: TPoint): TVector; static;
   end;
 
@@ -176 +178 @@
 { TVector }
 
-function TVector.GetLength: Integer;
-begin
-  Result := Trunc(Sqrt(Sqr(Direction.X) + Sqr(Direction.Y)));
+function TVector.GetLength: Double;
+begin
+  Result := Sqrt(Sqr(Direction.X) + Sqr(Direction.Y));
 end;
 
@@ -186 +188 @@
 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.