module Dodge.TestString where

import Dodge.Base.You
import Control.Lens
import Dodge.Data.Universe
--import Data.Maybe
--import ShortShow
--import qualified Data.Map.Strict as M
--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''
    ]
  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
    DeathTime i -> "DeathTime"++show i
    NormalTimeFlow -> "NormalTimeFlow"
    ScrollTimeFlow {_reverseAmount = ra } -> "ScrollTimeFlow" ++ show ra
    RewindLeftClick {_reverseAmount = ra } -> "RewindLeftClick" ++ show ra
    PausedTimeFlow {_timeFlowCharge = ra } -> "PausedTimeFlow" ++ show ra
--    [ show $ u ^? uvScreenLayers . _head . scOffset
--    ]
--    ++ [  shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
--    ] 
--     ++ map show (M.toList (u ^. uvWorld . input . pressedKeys))