Changeset 231 for trunk/UMapType.pas

Timestamp:

Sep 19, 2018, 2:05:52 PM (6 years ago)

Author:

chronos

Message:

• Modified: UGame unit was split to UPlayer, UMap and UClientGUI units to have better logical separation of game classes.
• Modified: Drawing methods moved from TMap and TPlayerMap to TClientGUI. Generic TClient class and TComputer classes don't need have any drawing support.

File:

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

trunk/UMapType.pas

@@ -1 @@
-unit UMap;
+unit UMapType;
 
 {$mode delphi}
@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGame, XMLRead, XMLWrite, DOM, UGeometry, fgl;
+  Classes, SysUtils, XMLRead, XMLWrite, DOM, UGeometry, fgl, UMap;
+
+const
+  SquareCellMulX = 1.05;
+  SquareCellMulY = 1.05;
+  TriangleCellMulX = 0.55;
+  TriangleCellMulY = 1.05;
 
 type
@@ -374 +380 @@
   end;
 
-  // Compute polygon cat out by all other cells
+  // Compute polygon by catting out map area by all other cells
   for Cell in Cells do begin
     Cell.Polygon := TPolygon.Create(TRect.Create(TPoint.Create(0, 0),