anchor.diff:    // start points
     // todo
   
  +
  +  Result := nil;
  +  // todo
   end;
   (*label
     calculate_result;
  
positive.code: end;
  
  procedure GenerateLookups;
  var
    Way, WayX, WayY: Integer;
    Child: Integer;
  
negative.code:   try
      LookupsText.Add('const');
  
      // weight consts
      FormatSettings.DecimalSeparator := '.';
      LookupLineFmt('MIN_WEIGHT_VALUE = Cardinal($%8x){%0.1f};', [PCardinal(@MIN_WEIGHT_VALUE)^, MIN_WEIGHT_VALUE]);
      LookupLineFmt('MAX_WEIGHT_VALUE = Cardinal($%8x){%0.1f};', [PCardinal(@MAX_WEIGHT_VALUE)^, MAX_WEIGHT_VALUE]);
      LookupLineFmt('DEFAULT_WEIGHT_VALUE = Cardinal($%8x){%0.1f};', [PCardinal(@DEFAULT_WEIGHT_VALUE)^, DEFAULT_WEIGHT_VALUE]);
      FormatSettings.DecimalSeparator := ',';
      LookupLineFmt('ERROR_WEIGHT_VALUE = ''Invalid weight value. 0,0..%0.1f - pathless, %0.1f..%0.0f - correct'';',
        [MIN_WEIGHT_VALUE, MIN_WEIGHT_VALUE, MAX_WEIGHT_VALUE]);
  
      // CHILD_ARRAYS
      LookupLine;
      LookupLine('CHILD_ARRAYS: array[0..11{4 diagonal + 4 clockwise optional}] of TChildArray = (');
      begin
        AddChildArray(0, False, False);
  