使用Reactive-banana和SDL的完整点击/按键事件

Question

据我所知，一个完整的点击事件是一个按钮上下起伏，没有鼠标运动。SDL只提供Button Up和Down事件。

reactive-banana有没有办法表达“先按下再按下”的意思？

顺便说一句，如果我想要有一个事件说“按键仍然按下”，我必须启用SDL的enableKeyRepeat，以便再次触发keyDown事件。如何在FRP中正确表达？

Answer 1

我会试着这样做：

定义一个实用函数(未测试)：

successive :: (a -> a -> Maybe b) -> Event t a -> Event t b
successive f e = filterJust (b <@> e)
  where b = stepper (const Nothing) (f <$> e)

然后使用像这样的东西

successive (\previous current -> if previous == buttonDown && current == buttonUp
                                   then Just ()
                                   else Nothing)
           buttonEvents

(伪代码，因为我不熟悉SDL)。

这应该是可行的，因为事件触发后，行为会少量更新。