anchor.diff:      function CellInformation(const X, Y: Word): string;
       function NodeInformation(const Node: PCPFNode): string;
       function HotPoolInformation: string;
  -    procedure ClipHotPoolInformation;
       procedure SaveHotPoolToFile(const FileName: string = 'HotPool.txt');
     {$endif}
     public
  
positive.code:     end;
    end;
  
    Offset := @Buffer[0];
    for Parent := 0 to 7 do
    begin
      N := (WayChild shr 1) * 3;
  
      if (WayChild and 1 <> 0) then
      begin
        Inc(N);
  
        if (Parent = ((WayChild - 1 + 4) and 7)) or
          (Parent = ((WayChild - 2 + 4) and 7)) or
          (Parent = ((WayChild - 3 + 4) and 7)) then
          Inc(N);
      end;
  
      Offset^ := N * SizeOf(TChildList);
      Inc(Offset);
    end;
  
    S := Format('  $%0.2x, $%0.2x, $%0.2x, $%0.2x, $%0.2x, $%0.2x, $%0.2x, $%0.2x',
      [Buffer[0], Buffer[1], Buffer[2], Buffer[3],
       Buffer[4], Buffer[5], Buffer[6], Buffer[7]]);
  
    if (not Finalize) then S := S + ',';
    LookupLine(S);
  
negative.code:     end;
  
      // child list
      ChildList := Pointer(@CHILD_ARRAYS);
      Inc(NativeUInt(ChildList), (NodeInfo and (7 shl 3)) shl 1);
  
      // reinitialize NodeInfo (from parentflags, mask, parentmask, tile):
      //   - bit hexagonal << 1
  