13 lines
408 B
Haskell
13 lines
408 B
Haskell
module Dodge.Camera where
|
|
|
|
import Dodge.Data.Universe
|
|
import Control.Lens
|
|
|
|
useNormalCamera :: Universe -> Universe
|
|
useNormalCamera = (uvWorld . wCam . camControl .~ CamInGame{_cigType = CamOnPlayer})
|
|
. (uvWorld . timeFlow .~ NormalTimeFlow)
|
|
|
|
pauseAndFloatCam :: Universe -> Universe
|
|
pauseAndFloatCam = (uvWorld . wCam . camControl .~ CamFloat)
|
|
. (uvWorld . timeFlow .~ CameraScrollTimeFlow 0 200 [])
|