Changeset 13 for trunk/UGeometric.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Rotate train and their passengers according track.

File:

• trunk/UGeometric.pas (modified) (3 diffs)

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.