Implement floating camera

src/Dodge/Base/Coordinate.hs

@@ -2,6 +2,7 @@ module Dodge.Base.Coordinate (
     mouseWorldPos,
     cartePosToScreen,
     worldPosToScreen,
+    screenToWorldPos,
 ) where
 
 import Control.Lens
@@ -47,6 +48,11 @@ mouseWorldPos inp cam =
     (cam ^. camCenter)
         +.+ (1 / (cam ^. camZoom)) *.* rotateV (cam ^. camRot) (_mousePos inp)
 
+screenToWorldPos :: Camera -> Point2 -> Point2
+screenToWorldPos cam p = 
+    (cam ^. camCenter)
+        +.+ (1 / (cam ^. camZoom)) *.* rotateV (cam ^. camRot) p
+
 ---- | The mouse position in map coordinates
 --mouseCartePos :: World -> Point2
 --mouseCartePos w = (thehud ^. carteCenter)