anchor.diff:          end else
           begin
             CellKind := 'heuristed';
  -          WayBits := Node.NodeInfo and 63;
  +          WayBits := (Node.NodeInfo shr 3) and $f;
           end;
   
           // detect pool
  
positive.code:   LookupLine(Format(FmtStr, Args));
  end;
  
  procedure AddChildArray(WayX, WayY: Integer; Finalize: Boolean);
  const
    CHILD_VALUES: array[0..7] of Word = (
      ((1 shl 0) shl 8) or (0 shl 4),
  
negative.code:   WayX := -WayX;
    WayY := -WayY;
  
    // default extended parameters
    LineChild := -1;
  
    // way child
    if (WayX = 0) then
    begin
      if (WayY < 0) then
      begin
        WayChild := 1;
        Sign := -1;
      end else
      begin
        WayChild := 5;
        Sign := +1;
      end;
    end else
    if (WayY = 0) then
    begin
      if (WayX < 0) then
      begin
        WayChild := 7;
        Sign := +1;
      end else
      begin
        WayChild := 3;
        Sign := -1;
      end;
    end else
    if (WayX < 0) then
    begin
      LineChild := 7;
  
      if (WayY < 0) then
      begin
        WayChild := 0;
        Sign := CLOCKWISE[dXSmall];
      end else
      // (WayY > 0) then
      begin
        WayChild := 6;
        Sign := -CLOCKWISE[dXSmall];
      end;
    end else
    // (WayX > 0) then
    begin
      LineChild := 3;
  
      if (WayY < 0) then
      begin
        WayChild := 2;
        Sign := -CLOCKWISE[dXSmall];
      end else
      // (WayY > 0) then
      begin
        WayChild := 4;
        Sign := CLOCKWISE[dXSmall];
      end;
    end;
  
    // childs
    Child := @ChildList[0];
    if (LineChild >= 0) then
    begin
      Child^ := CHILD_VALUES[LineChild];
      Inc(Child);
    end;
    AddChild(WayChild);
    for i := 1 to 3 do
    begin
      AddChild(WayChild + i*Sign);
      AddChild(WayChild - i*Sign);
    end;
    // last child
    AddChild(WayChild + 4);
  
    // text
    S := Format(' ($%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x)',
      [ChildList[0], ChildList[1], ChildList[2], ChildList[3],
       ChildList[4], ChildList[5], ChildList[6], ChildList[7]]);
  