anchor.diff:    procedure UpdateRect(var aRect: TKMRect; X, Y: Integer);
     begin
       if KMSameRect(aRect, KMRECT_INVALID_TILES) then
  -      aRect := KMRect(X, Y, X, Y)
  -    else
  +      aRect := KMRect(X, Y, X, Y)
  +    else
         KMRectIncludePoint(aRect, X, Y);
     end;
   
  
positive.code: 
    TKMTerrainTileBrief = record
      X,Y: Byte;
      Terrain: Byte;
      Rotation: Byte;
      Height: Byte;
      Obj: Byte;
      ChangeSet: TKMTileChangeTypeSet;
    end;
  
    TKMTerrainTileChangeError = packed record
      X, Y: Byte;
      ErrorsIn: TKMTileChangeTypeSet;
    end;
  
    TKMTerrainTileChangeErrorArray = array of TKMTerrainTileChangeError;
  
    TKMTerrainTile = record
      Terrain: Byte;
      Height: Byte;
  
negative.code:   end;
  
  var I, J: Integer;
      T: TKMTerrainTileBrief;
      Rect, HeightRect: TKMRect;
      DiagonalChangedTotal, DiagChanged: Boolean;
      BackupLand: array of array of TKMTerrainTile;
  