mouseTrackerExample :: (StartStop t) => EvStream t Float -> EvStream t [Event] -> Behavior t (Reactive t Picture)
mouseTrackerExample clock ev = do
  bMousePos <- holdEs (0, 0) (filterMap (\xs -> case filterMap isMouseChange xs of
                                      [] -> Nothing
                                      (x:_) -> Just x) ev)
  bMousePosData <- holdLastNSecs 5 clock (fmap snd bMousePos)
  return $ fmap (translate 0 0 . scale 50 1 . drawPlot) bMousePosData
mouseTrackerExample :: (StartStop t) => EvStream t Float -> EvStream t [Event] -> Behavior t (Reactive t Picture)
mouseTrackerExample clock ev = do
  bMousePos <- holdEs (0, 0) (filterMap (\xs -> case filterMap isMouseChange xs of
                                      [] -> Nothing
                                      (x:_) -> Just x) ev)
  bMousePosData <- holdLastNSecs 5 clock (fmap snd bMousePos)
  return $ fmap (translate 0 0 . scale 50 1 . drawPlot) bMousePosData
mouseTrackerExample clock ev = do
  bMousePos <- holdEs (0, 0) (filterMap (\xs -> case filterMap isMouseChange xs of
                                      [] -> Nothing
                                      (x:_) -> Just x) ev)
  bMousePosData <- holdLastNSecs 5 clock (fmap snd bMousePos)
  return $ fmap (translate 0 0 . scale 50 1 . drawPlot) bMousePosData