Changeset 106 for trunk/UTrack.pas

Timestamp:

Oct 4, 2022, 3:40:36 PM (20 months ago)

Author:

chronos

Message:

• Added: Show train direction before placement on track.

File:

• trunk/UTrack.pas (modified) (4 diffs)

trunk/UTrack.pas

@@ -18 +18 @@
     BaseTrackPoint: TTrackPoint;
     RelPos: Double;
+    function GetTrackPosition: Integer;
     function GetVector: TVector;
     procedure Move(Distance: Double);
@@ -43 +44 @@
     function GetLinkDown: TTrackLink;
     function GetLinkUp: TTrackLink;
+    function GetTrackPosition: Integer;
+
     // Move to TTrackLink later
     function GetDistance: Integer;
@@ -109 +112 @@
 
 { TTrackPosition }
+
+function TTrackPosition.GetTrackPosition: Integer;
+begin
+  Result := Round(RelPos);
+  if Assigned(BaseTrackPoint) then
+    Result := Result + BaseTrackPoint.GetTrackPosition;
+end;
 
 function TTrackPosition.GetVector: TVector;
@@ -411 +421 @@
 end;
 
+function TTrackPoint.GetTrackPosition: Integer;
+var
+  Index: Integer;
+  I: Integer;
+begin
+  Result := 0;
+  Index := Track.Points.IndexOf(Self);
+  for I := 0 to Index - 1 do
+    Result := Result + Track.Points[I].GetDistance;
+end;
+
 function TTrackPoint.GetDistance: Integer;
 var