Changeset 13 for trunk

Timestamp:

Mar 27, 2015, 12:49:17 PM (10 years ago)

Author:

chronos

Message:

• Added: Rotate train and their passengers according track.

Location:

trunk

Files:

• UEngine.pas (modified) (15 diffs)
• UGeometric.pas (modified) (3 diffs)

trunk/UEngine.pas

@@ -82 +82 @@
     Line: TMetroLine;
     TrackPos: Integer;
+    //Angle: Double;
     Direction: Integer;
     InStation: Boolean;
@@ -87 +88 @@
     TargetStationIndex: Integer;
     function GetPosition: TPoint;
+    function GetAngle: Double;
     constructor Create;
     destructor Destroy; override;
@@ -142 +144 @@
     procedure DrawLine(Canvas: TCanvas; Pos: TPoint);
     procedure DrawShape(Canvas: TCanvas; Position: TPoint; Shape: TStationShape;
-      Size: Integer);
+      Size: Integer; Angle: Double);
     procedure DrawClock(Canvas: TCanvas);
+    procedure DrawTrains(Canvas: TCanvas);
     procedure ComputeShapeDistance;
     procedure ComputeShapeDistanceStation(Station: TMetroStation;
@@ -420 +423 @@
   Sum: Integer;
 begin
+  Result := Point(0, 0);
   if Assigned(Line) then
   with Line do begin
@@ -434 +438 @@
       end else Sum := Sum + D;
     end;
-    Result := TrackPoints[High(TrackPoints)].Point;
-  end else Result := Point(0, 0);
+    if Length(TrackPoints) > 0 then
+      Result := TrackPoints[High(TrackPoints)].Point;
+  end;
+end;
+
+function TMetroTrain.GetAngle: Double;
+var
+  I: Integer;
+  D: Integer;
+  Sum: Integer;
+begin
+  Result := 0;
+  if Assigned(Line) then
+  with Line do begin
+    Sum := 0;
+    if Length(TrackPoints) > 1 then
+    for I := 1 to High(TrackPoints) do begin
+      D := Distance(TrackPoints[I].Point, TrackPoints[I - 1].Point);
+      if (Sum + D) > Self.TrackPos then begin
+        Result := ArcTan2(TrackPoints[I].Point.Y - TrackPoints[I - 1].Point.Y,
+          TrackPoints[I].Point.X - TrackPoints[I - 1].Point.X);
+        Exit;
+      end else Sum := Sum + D;
+    end;
+  end;
 end;
 
@@ -588 +615 @@
 
 procedure TEngine.DrawShape(Canvas: TCanvas; Position: TPoint; Shape: TStationShape;
-  Size: Integer);
+  Size: Integer; Angle: Double);
 var
   Points: array of TPoint;
   I: Integer;
-  Angle: Double;
+  Angle2: Double;
 begin
   case Shape of
-    ssSquare: Canvas.Rectangle(
-      Position.X - Size div 2, Position.Y - Size div 2,
-      Position.X + Size div 2, Position.Y + Size div 2);
+    ssSquare: begin
+      SetLength(Points, 4);
+      Points[0] := Point(Position.X - Size div 2, Position.Y - Size div 2);
+      Points[1] := Point(Position.X + Size div 2, Position.Y - Size div 2);
+      Points[2] := Point(Position.X + Size div 2, Position.Y + Size div 2);
+      Points[3] := Point(Position.X - Size div 2, Position.Y + Size div 2);
+      Points := RotatePoints(Position, Points, Angle);
+      Canvas.Polygon(Points);
+    end;
     ssCircle: Canvas.Ellipse(
       Position.X - Size div 2, Position.Y - Size div 2,
@@ -606 +639 @@
       Points[1] := Point(Position.X + Size div 2, Position.Y + Size div 2);
       Points[2] := Point(Position.X - Size div 2, Position.Y + Size div 2);
+      Points := RotatePoints(Position, Points, Angle);
       Canvas.Polygon(Points);
     end;
@@ -611 +645 @@
       SetLength(Points, 10);
       for I := 0 to 9 do begin
-        Angle := I / 10 * 2 * Pi - Pi / 2;
+        Angle2 := I / 10 * 2 * Pi - Pi / 2;
         if (I mod 2) = 0 then
-        Points[I] := Point(Round(Position.X + Cos(Angle) * Size / 2),
-          Round(Position.Y + Sin(Angle) * Size / 2))
+        Points[I] := Point(Round(Position.X + Cos(Angle2) * Size / 2),
+          Round(Position.Y + Sin(Angle2) * Size / 2))
         else
-        Points[I] := Point(Round(Position.X + Cos(Angle) * Size / 5),
-          Round(Position.Y + Sin(Angle) * Size / 5));
+        Points[I] := Point(Round(Position.X + Cos(Angle2) * Size / 5),
+          Round(Position.Y + Sin(Angle2) * Size / 5));
       end;
+      Points := RotatePoints(Position, Points, Angle);
       Canvas.Polygon(Points);
     end;
@@ -635 +670 @@
       Points[10] := Point(Position.X - Size div 6, Position.Y - Size div 2);
       Points[11] := Point(Position.X + Size div 6, Position.Y - Size div 2);
+      Points := RotatePoints(Position, Points, Angle);
       Canvas.Polygon(Points);
     end;
@@ -640 +676 @@
       SetLength(Points, 5);
       for I := 0 to 4 do begin
-        Angle := I / 5 * 2 * Pi - Pi / 2;
-        Points[I] := Point(Round(Position.X + Cos(Angle) * Size / 2),
-          Round(Position.Y + Sin(Angle) * Size / 2));
+        Angle2 := I / 5 * 2 * Pi - Pi / 2;
+        Points[I] := Point(Round(Position.X + Cos(Angle2) * Size / 2),
+          Round(Position.Y + Sin(Angle2) * Size / 2));
       end;
+      Points := RotatePoints(Position, Points, Angle);
       Canvas.Polygon(Points);
     end;
@@ -652 +689 @@
       Points[2] := Point(Position.X, Position.Y + Size div 2);
       Points[3] := Point(Position.X - Size div 2, Position.Y);
+      Points := RotatePoints(Position, Points, Angle);
       Canvas.Polygon(Points);
     end;
@@ -763 +801 @@
 end;
 
+procedure TEngine.DrawTrains(Canvas: TCanvas);
+var
+  I: Integer;
+  P: Integer;
+  Pos: TPoint;
+  Points: array of TPoint;
+  Angle: Double;
+  ShapePos: TPoint;
+begin
+    // Draw trains
+  for I := 0 to Trains.Count - 1 do
+  with TMetroTrain(Trains[I]) do begin
+    if Assigned(Line) then begin
+      Canvas.Brush.Color := Line.Color;
+      Canvas.Brush.Style := bsSolid;
+      Canvas.Pen.Style := psClear;
+      Pos := GetPosition;
+      Angle := GetAngle;
+
+      SetLength(Points, 4);
+      Points[0] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
+      Points[1] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
+      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);
+      Canvas.Brush.Color := clWhite;
+      for P := 0 to Passengers.Count - 1 do
+      with TMetroPassenger(Passengers[P]) do begin
+        ShapePos := Point(Pos.X - Trunc(TrainSize div 3 * 1) + (P mod 3) * TrainSize div 3,
+          Pos.Y - Trunc(TrainSize div 6 * 1) + (P div 3) * TrainSize div 3);
+        ShapePos := RotatePoint(Pos, ShapePos, Angle);
+        DrawShape(Canvas, ShapePos, Shape, TrainSize div 3, Angle + Pi / 2);
+      end;
+    end;
+  end;
+
+end;
+
 procedure TEngine.Tick;
 const
@@ -1125 +1201 @@
   end;
 
-  // Draw trains
-  for I := 0 to Trains.Count - 1 do
-  with TMetroTrain(Trains[I]) do begin
-    if Assigned(Line) then begin
-      Canvas.Brush.Color := Line.Color;
-      Canvas.Brush.Style := bsSolid;
-      Canvas.Pen.Style := psClear;
-      Pos := GetPosition;
-      Canvas.Rectangle(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 2,
-        Pos.X + TrainSize div 2, Pos.Y + TrainSize div 2);
-      Canvas.Brush.Color := clWhite;
-      for P := 0 to Passengers.Count - 1 do
-      with TMetroPassenger(Passengers[P]) do begin
-        DrawShape(Canvas, Point(Pos.X - Trunc(TrainSize div 3 * 1) + (P mod 3) * TrainSize div 3,
-          Pos.Y - Trunc(TrainSize div 3 * 1) + (P div 3) * TrainSize div 3), Shape, TrainSize div 3);
-      end;
-    end;
-  end;
+  DrawTrains(Canvas);
 
   // Draw stations
@@ -1152 +1211 @@
       Canvas.Brush.Style := bsClear;
       Canvas.Pen.Color := SelectedLine.Color;
-      DrawShape(Canvas, Position, Shape, StationSize + Canvas.Pen.Width + 6);
+      DrawShape(Canvas, Position, Shape, StationSize + Canvas.Pen.Width + 6, 0);
     end;
     Canvas.Brush.Color := clWhite;
     Canvas.Brush.Style := bsSolid;
     Canvas.Pen.Color := clBlack;
-    DrawShape(Canvas, Position, Shape, StationSize);
+    DrawShape(Canvas, Position, Shape, StationSize, 0);
 
     // Draw passengers
@@ -1165 +1224 @@
     with TMetroPassenger(Passengers[P]) do begin
       DrawShape(Canvas, Point(Position.X + StationSize + P * (PassengerSize + 2), Position.Y - StationSize div 2),
-        Shape, PassengerSize);
+        Shape, PassengerSize, 0);
     end;
 

trunk/UGeometric.pas

@@ -8 +8 @@
   Classes, SysUtils, Math;
 
+type
+  TPointArray = array of TPoint;
+
 function Distance(P1, P2: TPoint): Integer;
 function Dot(const P1, P2: TPoint): Double;
@@ -13 +16 @@
 function PointToLineDistance(const P, V, W: TPoint): Integer;
 function ComparePoint(P1, P2: TPoint): Boolean;
+function RotatePoint(Center, P: TPoint; Angle: Double): TPoint;
+function RotatePoints(Center: TPoint; P: TPointArray; Angle: Double): TPointArray;
 
 implementation
@@ -67 +72 @@
 end;
 
+function RotatePoint(Center, P: TPoint; Angle: Double): TPoint;
+begin
+  P := Point(P.X - Center.X, P.Y - Center.Y);
+  Result := Point(Center.X + Round(P.X * Cos(Angle) - P.Y * Sin(Angle)),
+    Center.Y + Round(P.X * Sin(Angle) + P.Y * Cos(Angle)));
+end;
+
+function RotatePoints(Center: TPoint; P: TPointArray; Angle: Double): TPointArray;
+var
+  I: Integer;
+begin
+  SetLength(Result, Length(P));
+  for I := 0 to High(P) do
+    Result[I] := RotatePoint(Center, P[I], Angle);
+end;
+
 
 end.