Implement arcs with variable width and color

src/Dodge/Update.hs

@@ -6,6 +6,7 @@ Description : Simulation update
 -}
 module Dodge.Update (updateUniverse) where
 
+import Dodge.ScrollValue
 import Color
 import Control.Applicative
 import Data.List
@@ -74,6 +75,7 @@ updateUniverse u =
         . updateUniverseMid
         . updateUseInput
         . over uvWorld (updateCamera cfig)
+        . over (uvWorld . input) updateScrollTestValue
         . over (uvWorld . cWorld . cClock) (+ 1)
         $ u
   where