Changeset 30 for trunk/UEngine.pas

Timestamp:

Apr 18, 2015, 6:17:34 PM (9 years ago)

Author:

chronos

Message:

• Added: Automatic zooming to all existed map stations. This solve problem if too many stations were existed and some of them appeared behind window border.
• Added: Much of used TCanvas functions are now available through TMetaCanvas.

File:

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

trunk/UEngine.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs, Graphics, Controls, ExtCtrls, Math, DateUtils;
+  Classes, SysUtils, Contnrs, Graphics, Controls, ExtCtrls, Math, DateUtils,
+  UMetaCanvas;
 
 type
@@ -209 +210 @@
   private
     FDestRect: TRect;
+    FSourceRect: TRect;
     FZoom: Double;
     procedure SetDestRect(AValue: TRect);
+    procedure SetSourceRect(AValue: TRect);
     procedure SetZoom(AValue: Double);
   public
-    SourceRect: TRect;
+    function PointDestToSrc(Pos: TPoint): TPoint;
+    function PointSrcToDest(Pos: TPoint): TPoint;
     constructor Create;
+    property SourceRect: TRect read FSourceRect write SetSourceRect;
     property DestRect: TRect read FDestRect write SetDestRect;
     property Zoom: Double read FZoom write SetZoom;
@@ -237 +242 @@
     FTime: TDateTime;
     FLastTime: TDateTime;
+    MetaCanvas: TMetaCanvas;
+    procedure ResizeView;
     function GetExistStationShapes: TStationShapeSet;
     function GetStationOnPos(Pos: TPoint): TMapStation;
@@ -273 +280 @@
     constructor Create;
     destructor Destroy; override;
-    procedure Paint(Canvas: TCanvas);
+    procedure Paint(TargetCanvas: TCanvas);
     property Time: TDateTime read FTime;
   end;
@@ -307 +314 @@
   NewTrainPeriod = 7; // Each week
   NewPassengerPeriod = 0.3 * OneSecond;
-  NewPassengerProbability = 0.002;
+  NewPassengerProbability = 0.003;
   VisiblePassengersPerLine = 6;
 
@@ -350 +357 @@
     Trunc((DestRect.Bottom - DestRect.Top) / Zoom - (AValue.Bottom - AValue.Top) / Zoom) div 2);
   FDestRect := AValue;
-  SourceRect := Bounds(SourceRect.Left + Diff.X, SourceRect.Top + Diff.Y,
+  FSourceRect := Bounds(FSourceRect.Left + Diff.X, FSourceRect.Top + Diff.Y,
     Trunc((DestRect.Right - DestRect.Left) / Zoom),
     Trunc((DestRect.Bottom - DestRect.Top) / Zoom));
+end;
+
+procedure TView.SetSourceRect(AValue: TRect);
+var
+  ZX: Double;
+  ZY: Double;
+begin
+  if RectEquals(FSourceRect, AValue) then Exit;
+  FSourceRect := AValue;
+  ZX := (FDestRect.Right - FDestRect.Left) / (FSourceRect.Right - FSourceRect.Left);
+  ZY := (FDestRect.Bottom - FDestRect.Top) / (FSourceRect.Bottom - FSourceRect.Top);
+  if  ZX > ZY then
+    Zoom := ZY
+    else Zoom := ZX;
 end;
 
@@ -361 +382 @@
     raise Exception.Create(SZeroZoomNotAlowed);
   FZoom := AValue;
-  SourceRect := Bounds(Trunc(SourceRect.Left + (SourceRect.Right - SourceRect.Left) div 2 - (DestRect.Right - DestRect.Left) / Zoom / 2),
-    Trunc(SourceRect.Top +  (SourceRect.Bottom - SourceRect.Top) div 2 - (DestRect.Bottom - DestRect.Top) / Zoom / 2),
+  FSourceRect := Bounds(Trunc(FSourceRect.Left + (FSourceRect.Right - FSourceRect.Left) div 2 - (DestRect.Right - DestRect.Left) / Zoom / 2),
+    Trunc(FSourceRect.Top +  (FSourceRect.Bottom - FSourceRect.Top) div 2 - (FDestRect.Bottom - DestRect.Top) / Zoom / 2),
     Trunc((DestRect.Right - DestRect.Left) / Zoom),
     Trunc((DestRect.Bottom - DestRect.Top) / Zoom));
 end;
 
+function TView.PointDestToSrc(Pos: TPoint): TPoint;
+begin
+  Result := Point(Trunc(Pos.X / FZoom + FSourceRect.Left),
+    Trunc(Pos.Y / FZoom + FSourceRect.Top));
+end;
+
+function TView.PointSrcToDest(Pos: TPoint): TPoint;
+begin
+  Result := Point(Trunc((Pos.X - FSourceRect.Left) * FZoom),
+    Trunc((Pos.Y - FSourceRect.Top) * FZoom));
+end;
+
 constructor TView.Create;
 begin
-  Zoom := 1.5;
+  Zoom := 1;
 end;
 
@@ -1083 +1116 @@
 
 { TEngine }
+
+procedure TEngine.ResizeView;
+var
+  StationRect: TRect;
+  NewPoint: TPoint;
+begin
+  // Need to see all stations on screen
+  View.SourceRect := RectEnlarge(Stations.GetRect, 100);
+
+  NewPoint := Point(
+    Trunc((View.SourceRect.Left + (View.SourceRect.Right - View.SourceRect.Left) / 2) -
+    (View.DestRect.Left + (View.DestRect.Right - View.DestRect.Left) / 2 / View.Zoom)),
+    Trunc((View.SourceRect.Top + (View.SourceRect.Bottom - View.SourceRect.Top) / 2) -
+    (View.DestRect.Top + (View.DestRect.Bottom - View.DestRect.Top) / 2 / View.Zoom)));
+  View.SourceRect := Bounds(NewPoint.X, NewPoint.Y, Trunc((View.DestRect.Right - View.DestRect.Left) / View.Zoom),
+    Trunc((View.DestRect.Bottom - View.DestRect.Top) / View.Zoom));
+end;
 
 function TEngine.GetExistStationShapes: TStationShapeSet;
@@ -1618 +1668 @@
     LastNewStationTime := Time;
     Stations.AddNew;
-    // Need to see all stations on screen
-    View.SourceRect := RectEnlarge(Stations.GetRect, 70);
+    ResizeView;
   end;
 
@@ -1676 +1725 @@
   LastMousePos := Position;
   if MouseHold then begin
-      FocusedStation := GetStationOnPos(Position);
+      FocusedStation := GetStationOnPos(View.PointDestToSrc(Position));
       Line := nil;
       if Assigned(TrackStationDown) then Line := TrackStationDown.Line;
@@ -1728 +1777 @@
         SelectedTrain.Line := nil;
       end;
-      FocusedTrack := GetTrackOnPos(Position);
+      FocusedTrack := GetTrackOnPos(View.PointDestToSrc(Position));
       if Assigned(FocusedTrack.PointDown) then begin
         SelectedTrain.Line := FocusedTrack.PointDown.Line;
@@ -1781 +1830 @@
 
     // Train selection
-    SelectedTrain := GetTrainOnPos(Position);
+    SelectedTrain := GetTrainOnPos(View.PointDestToSrc(Position));
     if Assigned(SelectedTrain) then begin
       Exit;
@@ -1795 +1844 @@
 
     // Line selection
-    Track := GetTrackOnPos(Position);
+    Track := GetTrackOnPos(View.PointDestToSrc(Position));
     if Assigned(Track) and Assigned(Track.PointDown) and Assigned(Track.PointUp) then begin
       SelectedLine := Track.PointDown.Line;
@@ -1820 +1869 @@
 
     // New track creation from selected station as start
-    Station := GetStationOnPos(Position);
+    Station := GetStationOnPos(View.PointDestToSrc(Position));
     if Assigned(Station) then begin
       if Assigned(SelectedLine) and (SelectedLine.LineStations.Count = 0) then NewLine := SelectedLine
@@ -1862 +1911 @@
     Trains.Add(NewTrain);
   end;
+
+  ResizeView;
 
   SelectedLine := nil;
@@ -1891 +1942 @@
   if FileExists(ImageLocomotiveName) then
     ImageLocomotive.Picture.LoadFromFile(ImageLocomotiveName);
+  MetaCanvas := TMetaCanvas.Create;
 end;
 
 destructor TEngine.Destroy;
 begin
+  MetaCanvas.Free;
   Trains.Free;
   ImageLocomotive.Free;
@@ -1906 +1959 @@
 end;
 
-procedure TEngine.Paint(Canvas: TCanvas);
+procedure TEngine.Paint(TargetCanvas: TCanvas);
 var
   I: Integer;
@@ -1915 +1968 @@
   Text: string;
   Angle: Double;
-  EndPoint: TPoint;
   PassengerPos: TPoint;
   Direction: Integer;
   Points: array of TPoint;
+  Canvas: TMetaCanvas;
 const
   GameOverText = 'Game Over';
@@ -1924 +1977 @@
   GameOverStatistic = '%d passengers travelled on your metro over %d days.';
 begin
-  Canvas.Brush.Color := $eff0e0;
-  Canvas.Brush.Style := bsSolid;
-  Canvas.Clear;
+  Canvas := MetaCanvas;
+  Canvas.SetSize(Point(TargetCanvas.Width, TargetCanvas.Height));
+  Canvas.Reset;
 
   // Draw station passenger overload
@@ -1988 +2041 @@
     Canvas.Pen.Color := TrackStationDown.Line.Color;
     Canvas.MoveTo(TrackStationDown.LineStation.TrackPoint.Position);
-    DrawLine(Canvas, LastMousePos);
+    DrawLine(Canvas, View.PointDestToSrc(LastMousePos));
   end;
   if Assigned(TrackStationUp) and Assigned(TrackStationUp.LineStation) then begin
     Canvas.Pen.Color := TrackStationUp.Line.Color;
     Canvas.MoveTo(TrackStationUp.LineStation.TrackPoint.Position);
-    DrawLine(Canvas, LastMousePos);
+    DrawLine(Canvas, View.PointDestToSrc(LastMousePos));
   end;
 
@@ -2006 +2059 @@
       Canvas.Brush.Style := bsClear;
       Canvas.Pen.Color := SelectedLine.Color;
-      DrawShape(Canvas, Position, Shape, StationSize + Canvas.Pen.Width + 6, 0);
+      DrawShape(Canvas, Position, Shape, StationSize + Canvas.Pen.Width + 4, 0);
     end;
 
@@ -2046 +2099 @@
   end;
 
+  // Clear background
+  TargetCanvas.Brush.Color := $eff0e0;
+  TargetCanvas.Brush.Style := bsSolid;
+  TargetCanvas.Clear;
+
+  MetaCanvas.Move(Point(-View.SourceRect.Left, -View.SourceRect.Top));
+  MetaCanvas.Zoom(View.Zoom);
+
+  // Draw meta canvas to real target canvas
+  MetaCanvas.DrawTo(TargetCanvas);
+
   // Line selection
   for I := 0 to High(LineColors) do begin
     if Assigned(Lines.SearchByColor(LineColors[I])) then begin
-      Canvas.Brush.Color := LineColors[I];
+      TargetCanvas.Brush.Color := LineColors[I];
       Size := 15;
     end else begin
-      Canvas.Brush.Color := clSilver;
+      TargetCanvas.Brush.Color := clSilver;
       Size := 5;
     end;
-    Canvas.Pen.Color := clBlack;
+    TargetCanvas.Pen.Color := clBlack;
     if Assigned(SelectedLine) and (SelectedLine.Color = LineColors[I]) then begin
-      Canvas.Pen.Style := psSolid;
+      TargetCanvas.Pen.Style := psSolid;
     end else begin
-      Canvas.Pen.Style := psClear;
-    end;
-
-    Canvas.EllipseC(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
-      Canvas.Height - LineColorsDist, Size, Size);
+      TargetCanvas.Pen.Style := psClear;
+    end;
+
+    TargetCanvas.EllipseC(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
+      TargetCanvas.Height - LineColorsDist, Size, Size);
   end;
 
   // Draw unused trains
   Text := IntToStr(Trains.GetUnusedCount);
-  Canvas.Draw(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 100,
-    Canvas.Height - LineColorsDist - ImageLocomotive.Picture.Bitmap.Height div 2, ImageLocomotive.Picture.Bitmap);
-  Canvas.Brush.Style := bsClear;
-  Canvas.TextOut(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 50 - Canvas.TextWidth(Text),
-    Canvas.Height - LineColorsDist - Canvas.TextHeight(Text) div 2, Text);
-
+  TargetCanvas.Draw(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 100,
+    TargetCanvas.Height - LineColorsDist - ImageLocomotive.Picture.Bitmap.Height div 2, ImageLocomotive.Picture.Bitmap);
+  TargetCanvas.Brush.Style := bsClear;
+  TargetCanvas.TextOut(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 50 - TargetCanvas.TextWidth(Text),
+    TargetCanvas.Height - LineColorsDist - TargetCanvas.TextHeight(Text) div 2, Text);
 
   // Status interface
   Text := IntToStr(ServedPassengerCount);
-  Canvas.Draw(Canvas.Width - 140, 20, ImagePassenger.Picture.Bitmap);
-  Canvas.Brush.Style := bsClear;
-  Canvas.TextOut(Canvas.Width - 146 - Canvas.TextWidth(Text), 25, Text);
-
-  DrawClock(Canvas);
-
+  TargetCanvas.Draw(TargetCanvas.Width - 140, 20, ImagePassenger.Picture.Bitmap);
+  TargetCanvas.Brush.Style := bsClear;
+  TargetCanvas.TextOut(TargetCanvas.Width - 146 - TargetCanvas.TextWidth(Text), 25, Text);
+
+  DrawClock(TargetCanvas);
+
+  // Show grabbed train by mouse
   if Assigned(SelectedTrain) then begin
-    Canvas.Brush.Color := clBlack; //SelectedTrain.Line.Color;
-    Canvas.Brush.Style := bsSolid;
-    Canvas.Pen.Style := psClear;
+    TargetCanvas.Brush.Color := clBlack; //SelectedTrain.Line.Color;
+    TargetCanvas.Brush.Style := bsSolid;
+    TargetCanvas.Pen.Style := psClear;
     Pos := LastMousePos;
     Angle := 0;
@@ -2095 +2159 @@
     Points[2] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
     Points[3] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
-    Canvas.Polygon(Points);
+    TargetCanvas.Polygon(Points);
   end;
 
@@ -2101 +2165 @@
   if State = gsGameOver then
   begin
-    Canvas.Font.Size := 40;
-    Canvas.Font.Color := clBlack;
-    Canvas.TextOut((Canvas.Width - Canvas.TextWidth(GameOverText)) div 2, 100, GameOverText);
-    Canvas.Font.Size := 14;
-    Canvas.TextOut((Canvas.Width - Canvas.TextWidth(GameOverReason)) div 2, 160, GameOverReason);
+    TargetCanvas.Font.Size := 40;
+    TargetCanvas.Font.Color := clBlack;
+    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(GameOverText)) div 2, 100, GameOverText);
+    TargetCanvas.Font.Size := 14;
+    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(GameOverReason)) div 2, 160, GameOverReason);
     Text := Format(GameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
-    Canvas.TextOut((Canvas.Width - Canvas.TextWidth(Text)) div 2, 180, Text);
+    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(Text)) div 2, 180, Text);
   end;
 end;