anchor.diff:      FSectorOffsets: TCPFOffsets;
   
       procedure RaiseCoordinates(const X, Y: Integer; const Id: TCPFExceptionString);
  +    procedure UpdateCellMasks(const ChangedArea: TRect);
       function GetTile(const X, Y: Word): Byte;
       procedure SetTile(const X, Y: Word; const Value: Byte);
       procedure GrowNodeAllocator(var Buffer: TCPFInfo);
  
positive.code: end;
  {$endif}
  
  procedure TTileMap.Clear;
  begin
    {$ifNdef CPFLIB}
  
negative.code:     System.GetMemoryManager(MemoryManager);
    {$endif}
    {$if Defined(DEBUG) and not Defined(CPFLIB)}
      TTileMap(nil).UpdateCellMasks(Rect(0, 0, 0, 0));
  
    // anti hint
    // TTileMap(nil).DoFindPath(TTileMapParams(nil^));
    TTileMapPtr(nil).DoFindPathLoop(nil);
    TTileMapPtr(nil).CalculateHeuristics(PPoint(nil)^, PPoint(nil)^);
    TTileMapPtr(nil).AddHeuristedNodes(nil, nil);
    {$ifend}
  
  end.
  