close Warning: Can't synchronize with repository "(default)" (No changeset 184 in the repository). Look in the Trac log for more information.

Changeset 156 for trunk/UMap.pas


Ignore:
Timestamp:
Nov 16, 2017, 6:08:29 PM (6 years ago)
Author:
chronos
Message:
  • Modified: Improved code for symetric map generation.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UMap.pas

    r145 r156  
    146146  PX, PY: Double;
    147147begin
    148   // Free previous
    149   Cells.Count := 0;
    150   FNewCellId := 1;
     148  Clear;
    151149
    152150  // Allocate and init new
    … …  
    185183  NewCell: TCell;
    186184begin
    187   // Free previous
    188   Cells.Count := 0;
    189   FNewCellId := 1;
     185  Clear;
     186
    190187  // Allocate and init new
    191188  Cells.Count := Size.Y * Size.X;
    … …  
    244241  NewCell: TCell;
    245242begin
    246   // Free previous
    247   Cells.Count := 0;
    248   FNewCellId := 1;
     243  Clear;
     244
    249245  // Allocate and init new
    250246  Cells.Count := Size.Y * Size.X;
    … …  
    290286  NewCell: TCell;
    291287begin
    292   // Free previous
    293   Cells.Count := 0;
    294   FNewCellId := 1;
     288  Clear;
     289
    295290  // Allocate and init new
    296291  Cells.Count := Size.Y * Size.X;
Note: See TracChangeset for help on using the changeset viewer.