Changeset 6

Timestamp:

Mar 26, 2015, 2:40:40 PM (9 years ago)

Author:

chronos

Message:

• Added: Show line end stations.

File:

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

trunk/UEngine.pas

@@ -664 +664 @@
       SelectedStation := Station;
       for I := 0 to Lines.Count - 1 do
-      if TMetroLine(Lines[I]).Stations.Count = 0 then
+      if TMetroLine(Lines[I]).Stations.Count = 0 then begin
         SelectedLine := TMetroLine(Lines[I]);
+        Break;
+      end;
     end;
 
@@ -751 +753 @@
   Pos: TPoint;
   Text: string;
+  Angle: Double;
+  EndPoint: TPoint;
 const
   GameOverText = 'Game Over';
   GameOverReason = 'Overcrowding at this station has forced you to resign as metro manager.';
   GameOverStatistic = '%d passengers travelled on your metro over %d days.';
+  EndStationLength = 50;
 begin
   Canvas.Brush.Color := $eff0e0;
@@ -769 +774 @@
     for S := 1 to High(TrackPoints) do begin
       Canvas.LineTo(TrackPoints[S]);
-    end;
+      if (S = High(TrackPoints)) then begin
+        Angle := arctan2((TrackPoints[S].Y - TrackPoints[S - 1].Y), (TrackPoints[S].X - TrackPoints[S - 1].X));
+        EndPoint := Point(Round(TrackPoints[S].X + EndStationLength * Cos(Angle)),
+          Round(TrackPoints[S].Y + EndStationLength * Sin(Angle)));
+        Canvas.LineTo(EndPoint);
+        Canvas.MoveTo(Point(Round(EndPoint.X + Cos(Angle + Pi / 2) * EndStationLength / 3),
+          Round(EndPoint.Y + Sin(Angle + Pi / 2) * EndStationLength / 3)));
+        Canvas.LineTo(Point(Round(EndPoint.X + Cos(Angle - Pi / 2) * EndStationLength / 3),
+          Round(EndPoint.Y + Sin(Angle - Pi / 2) * EndStationLength / 3)));
+      end;
+    end;
+    if (Length(TrackPoints) > 1) then begin
+      Angle := arctan2((TrackPoints[1].Y - TrackPoints[0].Y), (TrackPoints[1].X - TrackPoints[0].X));
+      Canvas.MoveTo(TrackPoints[0]);
+      EndPoint := Point(Round(TrackPoints[0].X - EndStationLength * Cos(Angle)),
+        Round(TrackPoints[0].Y - EndStationLength * Sin(Angle)));
+      Canvas.LineTo(EndPoint);
+      Canvas.MoveTo(Point(Round(EndPoint.X - Cos(Angle + Pi / 2) * EndStationLength / 3),
+        Round(EndPoint.Y - Sin(Angle + Pi / 2) * EndStationLength / 3)));
+      Canvas.LineTo(Point(Round(EndPoint.X - Cos(Angle - Pi / 2) * EndStationLength / 3),
+        Round(EndPoint.Y - Sin(Angle - Pi / 2) * EndStationLength / 3)));
+    end;
+
+    // Draw design line
     if (SelectedLine = TMetroLine(Lines[I])) and Assigned(SelectedStation) then begin
       Canvas.MoveTo(SelectedStation.Position);
@@ -847 +875 @@
 
   Text := IntToStr(Trains.GetUnusedCount);
-  Canvas.Draw(Canvas.Width - 160, 20, ImageLocomotive.Picture.Bitmap);
+  Canvas.Draw(Canvas.Width - 180, 20, ImageLocomotive.Picture.Bitmap);
   Canvas.Brush.Style := bsClear;
-  Canvas.TextOut(Canvas.Width - 166 - Canvas.TextWidth(Text), 25, Text);
+  Canvas.TextOut(Canvas.Width - 186 - Canvas.TextWidth(Text), 25, Text);
 
   // Game over