-- | only check if a line and bbox of item overlapped 
hltHittedByLineRough :: (GetBBoxable a) => 
                        ((Double,Double),(Double,Double)) -- ^ line 
                     -> [a] -- ^ items to test
                     -> AlterList (NotHitted a) (Hitted a)
hltHittedByLineRough (p1,p2) = hltFilteredBy boxhittest 
  where boxhittest s = isPointInBBox (getBBox s) p1
                       || isPointInBBox (getBBox s) p2


-- |
hltHittedByLineRough :: (GetBBoxable a) => 
                        ((Double,Double),(Double,Double)) -- ^ line 
                     -> [a] -- ^ items to test
                     -> AlterList (NotHitted a) (Hitted a)
hltHittedByLineRough (p1,p2) = hltFilteredBy boxhittest 
  where boxhittest s = isPointInBBox (getBBox s) p1
                       || isPointInBBox (getBBox s) p2


-- |
hltHittedByLineRough (p1,p2) = hltFilteredBy boxhittest 
  where boxhittest s = isPointInBBox (getBBox s) p1
                       || isPointInBBox (getBBox s) p2


-- |