anchor.diff:  
           ScaleLine: Double;
           ScaleDiagonal: Double;
  -        CardinalsDiagonal: array[0..255] of Cardinal;
  -        CardinalsLine: array[0..255] of Cardinal;
           case Boolean of
           False: (
  -                 {0,2,4,6 - Diagonal; 1,3,5,7 - Line}
                    SinglesDiagonal: array[0..255] of Single;
                    SinglesLine: array[0..255] of Single;
  +                 CardinalsDiagonal: array[0..255] of Cardinal;
  +                 CardinalsLine: array[0..255] of Cardinal;
                   );
  -         True: (SingleValues: array[0..1, 0..255] of Single);
  +         True: (
  +                 SingleValues: array[0..1, 0..255] of Single;
  +                 CardinalValues: array[0..1, 0..255] of Cardinal;
  +               );
         end;
         Starts: record
           Buffer: TCPFBuffer;
  
positive.code:           if (ChildNodeInfo and $ff00 = 0) then goto nextchild_continue;
  
            // child path
            TileWeights := Store.Info.TileWeights[ParentBits and 1];
            Path := TileWeights[NodeFlags shr 24];
            Inc(Path, TileWeights[ParentBits shr 24]);
            if (Path > PATHLESS_TILE_WEIGHT) then goto nextchild_continue;
  
negative.code:           ChildNode.Prev{Left}.Next := ChildNode;
            Prev := Node;
          end;
        {$endif}
      until (PBufferCurrent = PBufferHigh);
  
      // next opened node
  