anchor.diff:  begin
     Result.X := Bottom();
     Result.Y := Left();
  -
   end;
   
   function TMapRect.BottomRight: TMapCoord;
  
positive.code:     property TerrainType: TTerrainType read FTerrainType write SetTerrainType;
    end;
  
  
  
  
  implementation
  
  uses
  
negative.code: function TEditTerrain.ValidateTerrainViewInner(info: TTileInfo;
    pattern: TPattern; recDepth: integer): TValidationResult;
  
    function isSandType(tt: TTerrainType ): Boolean;
    begin
      case tt of
  