Changeset 27 for trunk/UGeometric.pas

Timestamp:

Apr 12, 2015, 1:11:27 PM (9 years ago)

Author:

chronos

Message:

• Modified: Train position is now relative to nearest down point. Thanks to that trains is not repositioned if line is connected or disconnected to other stations.

File:

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

trunk/UGeometric.pas

@@ -27 +27 @@
 function Distance(P1, P2: TPoint): Integer;
 begin
-  Result := Trunc(Sqrt(Sqr(P2.x - P1.X) + Sqr(P2.Y - P1.Y)));
+  Result := Trunc(Sqrt(Sqr(P2.X - P1.X) + Sqr(P2.Y - P1.Y)));
 end;
 
@@ -122 +122 @@
 function ArcTanPoint(Point: TPoint): Float;
 begin
-  Result := ArcTan(Point.Y / Point.X);
+  Result := ArcTan(Point.X / Point.Y);
 end;