module Dodge.Camera where

import Dodge.Data.Universe
import Control.Lens

useNormalCamera :: Universe -> Universe
useNormalCamera = (uvWorld . wCam . camControl .~ CamInGame)
    . (uvWorld . timeFlow .~ NormalTimeFlow)

pauseAndFloatCam :: Universe -> Universe
pauseAndFloatCam = (uvWorld . wCam . camControl .~ CamFloat)
    . (uvWorld . timeFlow .~ CameraScrollTimeFlow 0 200 [])