-- | 
hltEmbeddedByBBox :: (GetBBoxable a) =>
                     BBox 
                  -> [a] 
                  -> AlterList (NotHitted a) (Hitted a)
hltEmbeddedByBBox b = hltFilteredBy (isBBox2InBBox1 b . getBBox)
hltEmbeddedByBBox :: (GetBBoxable a) =>
                     BBox 
                  -> [a] 
                  -> AlterList (NotHitted a) (Hitted a)
hltEmbeddedByBBox b = hltFilteredBy (isBBox2InBBox1 b . getBBox)
hltEmbeddedByBBox b = hltFilteredBy (isBBox2InBBox1 b . getBBox)