Add file

2023-03-26 23:00:43 +01:00
parent ee89ac9b00
commit cc4aa1ec43
6 changed files with 122 additions and 0 deletions
@@ -0,0 +1,13 @@
+module Dodge.Camera where
+
+import Dodge.Data.Universe
+import Control.Lens
+
+useNormalCamera :: Universe -> Universe
+useNormalCamera = uvWorld . wCam . camControl .~ CamInGame
+
+pauseAndFloatCam :: Universe -> Universe
+pauseAndFloatCam = uvWorld . wCam . camControl .~ CamFloat
+
+pauseAndPanCam :: Universe -> Universe
+pauseAndPanCam = uvWorld . wCam . camControl .~ CamPan