Changeset 166 for trunk/UMap.pas

Timestamp:

Nov 23, 2017, 12:14:15 AM (7 years ago)

Author:

chronos

Message:

• Modified: Voronoi map option enabled for normal user. Map generation is still not perfect but playable.

File:

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

trunk/UMap.pas

@@ -298 +298 @@
   LeftText: string;
   RightText: string;
+  NeighborCell: TCell;
 begin
   Clear;
@@ -374 +375 @@
       LeftCell := Cell.Neighbors[I];
       RightCell := Cell.Neighbors[(I + 1) mod Cell.Neighbors.Count];
-      LeftText := LeftCell.Neighbors.ToString;
-      RightText := RightCell.Neighbors.ToString;
+      //LeftText := LeftCell.Neighbors.ToString;
+      //RightText := RightCell.Neighbors.ToString;
       LeftIndex := LeftCell.Neighbors.IndexOf(Cell);
       RightIndex := RightCell.Neighbors.IndexOf(Cell);
@@ -424 +425 @@
       Polygon := TPolygon.Create(Rect(0, 0,
         Size.X * DefaultCellSize.X, Size.Y * DefaultCellSize.Y));
-      for I := 0 to Cell.Neighbors.Count - 1 do begin
-        LinkLine := TLine.Create(Cell.PosPx,
-          Cell.Neighbors[I].PosPx);
+      for NeighborCell in Cell.Neighbors do begin
+        LinkLine := TLine.Create(Cell.PosPx, NeighborCell.PosPx);
         LinkLine.Distance := LinkLine.Distance - 4;
         MP := LinkLine.GetMiddle;