anchor.diff:    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);
  
positive.code: end;
  
  procedure GenerateLookups;
  var
    Way, WayX, WayY: Integer;
    Child: Integer;
  
negative.code:   // start points
    // todo
  
  
    Result := nil;
    // todo
  end;
  (*label
    calculate_result;
  