Implement arcs with variable width and color

src/Dodge/TestString.hs

@@ -1,6 +1,5 @@
 module Dodge.TestString where
 
-import Dodge.Base.You
 import Control.Lens
 import Dodge.Data.Universe
 --import Data.Maybe
@@ -9,10 +8,8 @@ import Dodge.Data.Universe
 --import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
 testStringInit u = 
-    [ show $ ycr ^?! crInvSel . iselAction
+    [ show $ u ^. uvWorld . input . scrollTestValue
     ]
-  where
-    ycr = you (u ^. uvWorld)
 
 showTimeFlow :: TimeFlowStatus -> String
 showTimeFlow tfs = case tfs of