anchor.diff:      {7 --> 3} (y:  0; x: +1)
     );
   
  +  MIN_WEIGHT_VALUE = Cardinal($3DCCCCCD){0.1};
  +  MAX_WEIGHT_VALUE = Cardinal($447A0000){1000.0};
  +  DEFAULT_WEIGHT_VALUE = Cardinal($3F800000){1.0};
  +  ERROR_WEIGHT_VALUE = 'Invalid weight value. 0,0..0,1 - pathless, 0,1..1000 - correct';
  +
     CHILD_ARRAYS: array[0..11{4 diagonal + 4 clockwise optional}] of TChildArray = (
      ($0100, $8070, $0210, $4060, $0420, $2050, $0830, $1040),
      ($0210, $0100, $0420, $8070, $0830, $4060, $1040, $2050),
  
positive.code: end;
  
  procedure GenerateLookups;
  var
    Way, WayX, WayY: Integer;
    Child: Integer;
  
negative.code:   // start points
    // todo
  
  
    Result := nil;
    // todo
  end;
  (*label
    calculate_result;
  