Work on mouse wheel scrolling

2022-10-25 22:59:01 +01:00
parent 86a9ab7582
commit 4ffd361f11
15 changed files with 143 additions and 57 deletions
@@ -6,8 +6,9 @@ import Control.Lens
 import ShortShow

 testStringInit :: Universe -> [String]
-testStringInit u = [
-    shortShow $ u ^?! uvWorld . cWorld . creatures . ix 0 . crPos
+testStringInit u = [show $ u ^. uvWorld . scrollAmount
+    , show $ u ^. uvWorld . previousScrollAmount
+    , shortShow $ u ^?! uvWorld . cWorld . creatures . ix 0 . crPos
    ]
 --    [ show $ u ^? uvWorld . hammers . ix DoubleMouseHam
 --    , show $ u ^? uvWorld . cWorld . creatures . ix 0 . crLeftInvSel . _Just