elimHitted :: (GetBBoxable a) => 
              AlterList (NotHitted a) (Hitted a) -> State (Maybe BBox) [a]
elimHitted Empty = error "something wrong in elimHitted"
elimHitted :: (GetBBoxable a) => 
              AlterList (NotHitted a) (Hitted a) -> State (Maybe BBox) [a]
elimHitted Empty = error "something wrong in elimHitted"
elimHitted Empty = error "something wrong in elimHitted"