hltItmsHittedByLineFrmSelected_StateT :: 
  ((Double,Double),(Double,Double))
  -> RItemHitted -- AlterList (NotHitted RItem) (Hitted RItem)
  -> State Bool (AlterList (NotHitted RItem) RItemHitted)
hltItmsHittedByLineFrmSelected_StateT _ Empty 
  = error "something is wrong, invariant broken"
hltItmsHittedByLineFrmSelected_StateT :: 
  ((Double,Double),(Double,Double))
  -> RItemHitted -- AlterList (NotHitted RItem) (Hitted RItem)
  -> State Bool (AlterList (NotHitted RItem) RItemHitted)
hltItmsHittedByLineFrmSelected_StateT _ Empty 
  = error "something is wrong, invariant broken"
hltItmsHittedByLineFrmSelected_StateT _ Empty 
  = error "something is wrong, invariant broken"