anchor.diff:      LookupLineFmt('ERROR_WEIGHT_VALUE = ''Invalid weight value. 0,0..%0.1f - pathless, %0.1f..%0.1f - correct'';',
         [MIN_WEIGHT_VALUE_LINE, MIN_WEIGHT_VALUE_LINE, MAX_WEIGHT_VALUE_LINE]);
   
  -    // FLAGS_MOVE_LEFT_DOWN
  -    LookupLine;
  -    LookupLine('FLAGS_MOVE_LEFT_DOWN: array[0..15{way:3;clockwise:1}] of Byte = (');
  -    ByteValue := @BytesBuffer[0][0];
  -    for Way := 0 to 15 do
  -    begin
  -      AddFlagMoveLeftDown(ByteValue, WayChildValue(Way and 7), Way >= 8);
  -      Inc(ByteValue);
  -    end;
  -    LookupBytesBufferLines(1);
  -    LookupLine(');');
  -
       // CHILD_ARRAYS
       LookupLine;
       LookupLine('CHILD_ARRAYS: array[0..31{way:3;clockwise:1;hexagonal:1}] of TChildList = (');
  
positive.code:     NodeBuffers: PCPFNodeBuffers;
      NODEPTR_MODIFIER: NativeInt;
    {$endif}
  begin
    // store Self
    Store.Self := Pointer({$ifdef CPFLIB}@Self{$else}Self{$endif});
  
    // flags: oddyfinish, hexagonal, simple, moveleft, movedown
    X := NativeInt(Self.FKind);
    Store.Flags := ((X - 1) and 4) + (((X + 1) and 4) shr 1) +
      (PNativeInt(@Self.FInfo.FinishPoint)^ and 1) +
      FLAGS_MOVE_LEFT_DOWN[(StartNode.NodeInfo shr 4) and $f]{!!!} and not(1 shl 3);
  
    // information copy
    Move(Self.FInfo, Store.Info,
  
negative.code:       Result := 4;
      end;
    end;
  end;
  
  procedure AddChildArray(WayChild: Integer; ClockWise, Hexagonal, Finalize: Boolean);
  