Camera position refactor

src/Dodge/Default/World.hs

@@ -43,18 +43,18 @@ defaultCWGen =
         , _cwgRoomClipping = []
         }
 
-defaultCWCam :: CWCam
+defaultCWCam :: CamPos
 defaultCWCam =
-    CWCam
-        { _cwcCenter = V2 0 0
-        , _cwcRot = 0
-        , _cwcZoom = 1
-        , _cwcDefaultZoom = 1
-        , _cwcViewFrom = V2 0 0
-        , _cwcViewDistance = 1000
-        , _cwcItemZoom = 1
-        , _cwcBoundBox = square 100
-        , _cwcBoundDist = (100, -100, 100, -100)
+    CamPos
+        { _camCenter = V2 0 0
+        , _camRot = 0
+        , _camZoom = 1
+        , _camDefaultZoom = 1
+        , _camViewFrom = V2 0 0
+        , _camViewDistance = 1000
+        , _camItemZoom = 1
+        , _camBoundBox = square 100
+        , _camBoundDist = (100, -100, 100, -100)
         }
 
 defaultCWorld :: CWorld
@@ -70,7 +70,7 @@ defaultCWorld =
 defaultLWorld :: LWorld
 defaultLWorld =
     LWorld
-        { _cwCam = defaultCWCam
+        { _camPos = defaultCWCam
         , _magnets = IM.empty
         , _modifications = IM.empty
         , _creatures = IM.empty