anchor.diff:  procedure AddParentBits(Child: Integer; Finalize: Boolean);
   var
     Parent: Integer;
  -  Buffer: array[0..3] of Cardinal;
  -  Hexagonal, OddY: Boolean;
  +  Buffer: array[0..7] of Cardinal;
  +  Simple, Hexagonal, OddY: Boolean;
     Item: PCardinal;
     S: string;
   
  
positive.code: 
      // PARENT_BITS
      LookupLine;
      LookupLine('PARENT_BITS: array[0..31{oddy:1;hexagonal:1;child:3}] of NativeUInt = (');
      for Child := 0 to 7 do
      begin
        AddParentBits(Child, Child = 7);
  
negative.code:   Parent := (Child + 4) and 7;
    Item := @Buffer[0];
  
    for Simple := False to True do
    for Hexagonal := False to True do
    for OddY := False to True do
    begin
      if (Simple) then
      begin
        case Child of
          1: AddParentMask(_5);
          3: AddParentMask(_7);
          5: AddParentMask(_1);
          7: AddParentMask(_3);
        else
          AddParentMask($FF);
        end;
      end else
      if (not Hexagonal) then
      begin
        case Child of
  