anchor.diff:      end;
     end;
   
  -  S := Format('  $%0.8x, $%0.8x, $%0.8x, $%0.8x',
  -    [Buffer[0], Buffer[1], Buffer[2], Buffer[3]]);
  +  S := Format('  $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x, $%0.8x',
  +    [Buffer[0], Buffer[1], Buffer[2], Buffer[3],
  +     Buffer[4], Buffer[5], Buffer[6], Buffer[7]]);
   
     if (not Finalize) then S := S + ',';
     LookupLine(S);
  
positive.code: 
      // reinitialize NodeInfo (from parentflags, mask, parentmask, tile):
      //   - bit hexagonal << 1
      //   - mask
      //   - stored childs counter
      //   - tile
      NodeInfo := ((NodeInfo and (NodeInfo shr 8)) and Integer($ff00ff00)) or Store.HexagonalFlag;
  
      // each child cell loop
      goto nextchild;
  
negative.code: procedure AddParentBits(Child: Integer; Finalize: Boolean);
  var
    Parent: Integer;
    Buffer: array[0..7] of Cardinal;
    Simple, Hexagonal, OddY: Boolean;
    Item: PCardinal;
    S: string;
  
  