37 lines
1.3 KiB
Haskell
37 lines
1.3 KiB
Haskell
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))
|