Настроить:

Я использую Reactive Banana вместе с OpenGL, и у меня есть снаряжение, которое я хочу крутить. У меня есть следующие сигналы:

bTime :: Behavior t Int -- the time in ms from start of rendering
bAngularVelosity :: Behavior t Double -- the angular velocity
                                      -- which can be increase or
                                      -- decreased by the user
eDisplay :: Event t ()     -- need to redraw the screen
eKey :: Event t KeyState   -- user input

В конечном итоге мне нужно рассчитатьbAngle который затем передается функции рисования:

reactimate $ (draw gears)  (bAngle