Tweak pause camera movement

2023-04-25 10:23:43 +01:00
parent a2ad7c23ff
commit 734d74af52
31 changed files with 97 additions and 114 deletions
@@ -46,7 +46,8 @@ showTimeFlow :: TimeFlowStatus -> String
 showTimeFlow tfs = case tfs of
    DeathTime i -> "DeathTime"++show i
    NormalTimeFlow -> "NormalTimeFlow"
-    ScrollTimeFlow {_reverseAmount = ra } -> "ScrollTimeFlow" ++ show ra
+    ItemScrollTimeFlow {_reverseAmount = ra } -> "ItemScrollTimeFlow" ++ show ra
+    CameraScrollTimeFlow {_reverseAmount = ra } -> "CameraScrollTimeFlow" ++ show ra
    RewindLeftClick {_reverseAmount = ra } -> "RewindLeftClick" ++ show ra
    PausedTimeFlow {_timeFlowCharge = ra } -> "PausedTimeFlow" ++ show ra
 --    [ show $ u ^? uvScreenLayers . _head . scOffset