Start to generalise text input to "terminal signal" input

src/Dodge/Base/Window.hs

@@ -7,13 +7,13 @@ module Dodge.Base.Window (
     screenBox,
 ) where
 
-import Dodge.Data.CamPos
+import Dodge.Data.Camera
 import Dodge.Data.Config
 import Geometry
 import Control.Lens
 
 -- | A box covering the screen in world coordinates
-screenPolygon :: Configuration -> CamPos -> [Point2]
+screenPolygon :: Configuration -> Camera -> [Point2]
 screenPolygon cfig w = map (scTran . scRot . scZoom) $ screenBox cfig
   where
     scRot = rotateV (w ^. camRot)
@@ -29,7 +29,7 @@ screenPolygonBord ::
     -- | Y border
     Float ->
     Configuration ->
-    CamPos ->
+    Camera ->
     [Point2]
 screenPolygonBord xbord ybord cfig w = [tr, tl, bl, br]
   where