anchor.diff:    );
   
   
  -  TERRAIN_CONFIG_FILE = 'config/terrainViewPatterns.json';
  +  TERRAIN_PATTERNS_CONFIG_FILE = 'config/terrainViewPatterns.json';
  +  TERRAIN_CONFIG_FILE = 'config/terrains.json';
   
   procedure SetView(out V: TTerrainViewInterval; min,max: uint8);
   begin
  
positive.code:   finally
      o.Free;
    end;
  end;
  
  { TMappingTemplates }
  
negative.code: var
    config: TJsonResource;
  begin
    config := TJsonResource.Create(TERRAIN_PATTERNS_CONFIG_FILE);
    try
      config.Load(ResourceLoader);
      config.DestreamTo(FPatternConfig,'');
  