Make bezier gun target on scroll

This commit is contained in:
jgk
2021-03-16 11:33:47 +01:00
parent 24aede4cac
commit 97fd7f5576
6 changed files with 23 additions and 27 deletions
-4
View File
@@ -87,10 +87,6 @@ handleMouseWheelEvent w mwev =
V2 x y | y > 0 -> Just $ wheelUpEvent w
| y < 0 -> Just $ wheelDownEvent w
| otherwise -> Just $ w
-- case mouseWheelEventDirection mwev of
-- ScrollNormal -> Just $ wheelUpEvent w
-- ScrollFlipped -> Just $ wheelDownEvent w
handleResizeEvent :: World -> WindowSizeChangedEventData -> Maybe World
handleResizeEvent w sev = Just $ set windowX (fromIntegral x)