Changeset 38 for trunk


Ignore:
Timestamp:
Jun 14, 2016, 4:30:18 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Error in arctan calculation of moved lines between stations.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk

    • Property svn:ignore
      •  

        old new  
        33BigMetro.lps
        44heaptrclog.trc
         5BigMetro.exe
  • trunk/UGeometric.pas

    r30 r38  
    125125function ArcTanPoint(Point: TPoint): Float;
    126126begin
    127   Result := ArcTan(Point.X / Point.Y);
     127  if Point.Y = 0 then Result := Infinity
     128    else Result := ArcTan(Point.X / Point.Y);
    128129end;
    129130
Note: See TracChangeset for help on using the changeset viewer.