Changeset 235 for trunk/UMapType.pas

Timestamp:

Sep 20, 2018, 11:44:42 AM (6 years ago)

Author:

chronos

Message:

• Added: Show map multiple times side by side in cyclic mode.

File:

• trunk/UMapType.pas (modified) (13 diffs)

trunk/UMapType.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLRead, XMLWrite, DOM, UGeometry, fgl, UMap;
-
-const
-  SquareCellMulX = 1.05;
-  SquareCellMulY = 1.05;
-  TriangleCellMulX = 0.55;
-  TriangleCellMulY = 1.05;
 
 type
@@ -32 +26 @@
     function GetHexagonPolygon(Pos: TPoint; Size: TPoint): TPolygon;
   public
+    function CalculatePixelRect: TRect; override;
     procedure LoadFromFile(FileName: string); override;
     procedure SaveToFile(FileName: string); override;
@@ -41 +36 @@
   TSquareMap = class(TMap)
   private
+    const
+      CellMulX = 1.05;
+      CellMulY = 1.05;
     function GetSquarePolygon(Pos: TPoint; Size: TPoint): TPolygon;
   public
     procedure Generate; override;
+    function CalculatePixelRect: TRect; override;
   end;
 
@@ -50 +49 @@
   TTriangleMap = class(TMap)
   private
+    const
+      CellMulX = 0.55;
+      CellMulY = 1.05;
     function GetTrianglePolygon(Pos: TPoint; Size: TPoint; Reverse: Boolean): TPolygon;
   public
     procedure Generate; override;
+    function CalculatePixelRect: TRect; override;
   end;
 
@@ -61 +64 @@
   public
     procedure Generate; override;
+    function CalculatePixelRect: TRect; override;
   end;
 
@@ -73 +77 @@
   public
     procedure Generate; override;
+    function CalculatePixelRect: TRect; override;
   end;
 
@@ -147 +152 @@
 
   FPixelRect := CalculatePixelRect;
+end;
+
+function TIsometricMap.CalculatePixelRect: TRect;
+begin
+  Result := inherited CalculatePixelRect;
+  Result.P2 := Result.P2 - TPoint.Create(
+    Trunc(0.45 * DefaultCellSize.X / CellMulX),
+    Trunc(0.90 * DefaultCellSize.Y / CellMulY)
+  );
 end;
 
@@ -165 +179 @@
   Result.Points[4] := TPoint.Create(Trunc(Pos.X - Shift.X * Size.X), Trunc(Pos.Y + Shift.Y * Size.Y));
   Result.Points[5] := TPoint.Create(Trunc(Pos.X - Shift.X * Size.X), Trunc(Pos.Y - Shift.Y * Size.Y));
+end;
+
+function THexMap.CalculatePixelRect: TRect;
+var
+  Shift: TPointF;
+  Angle: Double;
+begin
+  Result := inherited CalculatePixelRect;
+  Angle := 30 / 180 * Pi;
+  Shift := TPointF.Create(0.5, 0.5) * TPointF.Create(Cos(Angle), Sin(Angle));
+  Result.P2 := Result.P2 - TPoint.Create(
+    Trunc(0.47 * DefaultCellSize.X / CellMulX),
+    Trunc(1.2 * Shift.Y * DefaultCellSize.Y / CellMulY)
+  );
 end;
 
@@ -293 +321 @@
     NewCell := TCell.Create;
     NewCell.Map := Self;
-    NewCell.PosPx := TPoint.Create(Trunc(X * DefaultCellSize.X * SquareCellMulX),
-      Trunc(Y * DefaultCellSize.Y * SquareCellMulY));
+    NewCell.PosPx := TPoint.Create(Trunc(X * DefaultCellSize.X * CellMulX),
+      Trunc(Y * DefaultCellSize.Y * CellMulY));
     NewCell.Polygon := GetSquarePolygon(NewCell.PosPx, DefaultCellSize);
     NewCell.Id := GetNewCellId;
@@ -330 +358 @@
 
   FPixelRect := CalculatePixelRect;
+end;
+
+function TSquareMap.CalculatePixelRect: TRect;
+begin
+  Result := inherited CalculatePixelRect;
+  Result.P2 := Result.P2 + TPoint.Create(
+    Trunc(0.05 * DefaultCellSize.X / CellMulX),
+    Trunc(0.05 * DefaultCellSize.Y / CellMulY)
+  );
 end;
 
@@ -413 +450 @@
 end;
 
+function TVoronoiMap.CalculatePixelRect: TRect;
+begin
+  Result := inherited CalculatePixelRect;
+  Result.P2 := Result.P2 + TPoint.Create(
+    Trunc(0.02 * DefaultCellSize.X),
+    Trunc(0.02 * DefaultCellSize.Y)
+  );
+end;
+
 { TTriangleMap }
 
@@ -447 +493 @@
     if Reverse then Rev := -1
       else Rev := 1;
-    NewCell.PosPx := TPoint.Create(Trunc(X * DefaultCellSize.X * TriangleCellMulX),
-      Trunc((Y * DefaultCellSize.Y * TriangleCellMulY) - (0.1 * Rev * DefaultCellSize.Y)));
+    NewCell.PosPx := TPoint.Create(Trunc(X * DefaultCellSize.X * CellMulX),
+      Trunc((Y * DefaultCellSize.Y * CellMulY) - (0.1 * Rev * DefaultCellSize.Y)));
     NewCell.Polygon := GetTrianglePolygon(NewCell.PosPx, DefaultCellSize, Reverse);
     NewCell.Id := GetNewCellId;
@@ -483 +529 @@
 end;
 
+function TTriangleMap.CalculatePixelRect: TRect;
+begin
+  Result := inherited CalculatePixelRect;
+  Result.P2 := Result.P2 + TPoint.Create(
+    Trunc(0.05 * DefaultCellSize.X / CellMulX - 0.30 * DefaultCellSize.X / CellMulX),
+    Trunc(0.05 * DefaultCellSize.Y / CellMulY)
+  );
+end;
+
 
 end.