hltItmsHittedByLine_StateT :: ((Double,Double),(Double,Double))
                           -> [RItem]
                           -> State Bool RItemHitted
                              -- (AlterList (NotHitted RItem) (Hitted RItem))
hltItmsHittedByLine_StateT line = hltFilteredBy_StateT test  
  where test (RItemStroke strk) = (doesLineHitStrk line . bbxed_content) strk
        test _ = False 
  
-- |
hltItmsHittedByLine_StateT :: ((Double,Double),(Double,Double))
                           -> [RItem]
                           -> State Bool RItemHitted
hltItmsHittedByLine_StateT line = hltFilteredBy_StateT test  
  where test (RItemStroke strk) = (doesLineHitStrk line . bbxed_content) strk
        test _ = False 
  
-- |
hltItmsHittedByLine_StateT line = hltFilteredBy_StateT test  
  where test (RItemStroke strk) = (doesLineHitStrk line . bbxed_content) strk
        test _ = False 
  
-- |