Changeset 107 for trunk/UTrack.pas

Timestamp:

Oct 4, 2022, 3:53:47 PM (19 months ago)

Author:

chronos

Message:

• Fixed: Initial view resize on new game.
• Fixed: Wrong train drawing position if track points distance close to zero.

File:

• trunk/UTrack.pas (modified) (1 diff)

trunk/UTrack.pas

@@ -130 +130 @@
     UpPoint := BaseTrackPoint.GetNeighUp;
     if Assigned(UpPoint) then begin
+      Result.Direction := SubPoint(UpPoint.Position, Position);
       D := Distance(UpPoint.Position, Position);
       if D > 0 then begin
-        Result.Direction := SubPoint(UpPoint.Position, Position);
         Result.Position := Point(Trunc(Position.X + Result.Direction.X * RelPos / D),
           Trunc(Position.Y + Result.Direction.Y * RelPos / D));
+      end else begin
+        Result.Position := Position;
       end;
     end;