Implement arcs with variable width and color

src/Dodge/ScrollValue.hs

@@ -0,0 +1,9 @@
+module Dodge.ScrollValue where
+
+import Dodge.Data.Input
+import LensHelp
+
+updateScrollTestValue :: Input -> Input
+updateScrollTestValue theinput = theinput & scrollTestValue +~ theamount
+  where
+    theamount = fromIntegral (theinput ^. scrollAmount) / 100