anchor.diff:  var
     config: TJsonResource;
   begin
  -  config := TJsonResource.Create(TERRAIN_CONFIG_FILE);
  +  config := TJsonResource.Create(TERRAIN_PATTERNS_CONFIG_FILE);
     try
       config.Load(ResourceLoader);
       config.DestreamTo(FPatternConfig,'');
  
positive.code:   );
  
  
    TERRAIN_CONFIG_FILE = 'config/terrainViewPatterns.json';
  
  procedure SetView(out V: TTerrainViewInterval; min,max: uint8);
  begin
  
negative.code:     property TerrainType:TPatternTemplates read FTerrainType;
    end;
  
    //todo: use terrain configuration
  
    { TTerrainConfig }
  
    TTerrainConfigItem = class(TNamedCollectionItem)
    published
  
    end;
  
    { TTerriainConfig }
  
    TTerriainConfig = class(specialize TGNamedCollection<TTerrainConfigItem>)
    public
      constructor Create;
    end;
  
    {$pop}
  
  