Changeset 52 for trunk/UEngine.pas

Timestamp:

Feb 3, 2018, 8:51:28 PM (6 years ago)

Author:

chronos

Message:

• Modified: Use Build mode in lib subdirectory.
• Added: 1.0.1 Windows installer.

Location:

trunk

Files:

• . (modified) (1 prop)
• UEngine.pas (modified) (4 diffs)

trunk

@@ -4 +4 @@
 heaptrclog.trc
 BigMetro.exe
+*.dbg

@@ -4 +4 @@
 heaptrclog.trc
 BigMetro.exe
+*.dbg

trunk/UEngine.pas

@@ -1322 +1322 @@
 function TEngine.GetExistStationShapes: TStationShapeSet;
 var
-  I: Integer;
   Station: TMapStation;
 begin
@@ -1530 +1529 @@
 procedure TEngine.ComputeShapeDistance;
 var
-  I: Integer;
   S: TStationShape;
   Station: TMapStation;
@@ -1773 +1771 @@
   I: Integer;
   J: Integer;
-  Link1, Link2: TPoint;
+  //Link1, Link2: TPoint;
   NewPoint: TPoint;
   MetroLine: TMetroLine;
@@ -1798 +1796 @@
     with Track.Points[I] do
     if Assigned(Track.Points[I].LinkDown) and Assigned(Track.Points[I].LinkUp) then begin
+      {
       Link1 := (Track.Points[I].PositionDesigned + Track.Points[I].LinkDown.Shift) -
         (Track.Points[I - 1].PositionDesigned + Track.Points[I].LinkDown.Shift);
       if (I + 1) < Track.Points.Count then
-        Link2 := (Track.Points[I + 1].PositionDesigned + Track.Points[I].LinkUp.Shift) -
+      Link2 := (Track.Points[I + 1].PositionDesigned + Track.Points[I].LinkUp.Shift) -
           (Track.Points[I].PositionDesigned + Track.Points[I].LinkUp.Shift)
         else Link2 := Link1;
 
-{      if ArcTanPoint(Link1) = ArcTanPoint(Link2) then begin
+      if ArcTanPoint(Link1) = ArcTanPoint(Link2) then begin
         // Parallel lines
         NewPoint := Track.Points[I].PositionDesigned + Track.Points[I].LinkDown.Shift;

@@ -4 +4 @@
 heaptrclog.trc
 BigMetro.exe
+*.dbg