anchor.diff:    Result.flip:=0;
     Result.transitionReplacement:='';
   
  -  centerTerType := info.TerType;
  -  centerTerGroup :=TERRAIN_GROUPS[centerTerType];
  +  centerTerGroup :=TERRAIN_GROUPS[info.TerType];
   
     totalPoints:=0;
     transitionReplacement:='';
  
positive.code:     //safe, with checking
      function GetTileInfo(x,y: Integer; out Info: TTileInfo): boolean;
  
      procedure ProcessTile(var Info: TTileInfo);
  
      function ValidateTerrainView(info: TTileInfo; pattern: TPattern; recDepth: integer = 0): TValidationResult;
      function ValidateTerrainViewInner(info: TTileInfo; pattern: TPattern; recDepth: integer = 0): TValidationResult;
    strict private
  
negative.code:   end;
  
  var
    terType: TTerrainType;
    centerTerGroup: TTerrainGroup;
  
    totalPoints: Integer;
  