Fix reset of reloading from 0 scrolling

src/Dodge/TestString.hs

@@ -9,18 +9,10 @@ import Dodge.Data.Universe
 --import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
 testStringInit u = 
-     [ show $ u ^. uvWorld . input . scrollAmount 
-    , maybe mempty show mit
-     , maybe mempty (show . f) mit
-     , maybe mempty show mit'
-     , maybe mempty show mit''
+    [ show $ ycr ^?! crInvSel . iselAction
     ]
   where
-    f x = 1/ (x *2) ** (40/39)
     ycr = you (u ^. uvWorld)
-    mit = ycr ^? crInv . ix (crSel ycr) . itScope . scopeZoom
-    mit' = ycr ^? crInv . ix (crSel ycr) . itScope . scopePos
-    mit'' = ycr ^? crInv . ix (crSel ycr) . itScope . scopeZoomChange
 
 showTimeFlow :: TimeFlowStatus -> String
 showTimeFlow tfs = case tfs of