Work on geometry shader based shadows

src/Dodge/ScrollValue.hs

@@ -4,6 +4,8 @@ import Dodge.Data.Input
 import LensHelp
 
 updateScrollTestValue :: Input -> Input
-updateScrollTestValue theinput = theinput & scrollTestValue +~ theamount
+updateScrollTestValue theinput = theinput & scrollTestFloat +~ theamount
+    & scrollTestInt +~ i
   where
-    theamount = fromIntegral (theinput ^. scrollAmount) / 100
+    i = theinput ^. scrollAmount
+    theamount = fromIntegral i / 100