Refactor event/input

app/Main.hs

@@ -5,7 +5,7 @@ import Shader
 import Shapes
 import LoadConfig
 
-import Dodge.Prototypes
+import Dodge.Default
 import Dodge.Data
 import Dodge.Initialisation
 import Dodge.Rooms
@@ -52,12 +52,12 @@ main = do
                       clear [ColorBuffer,DepthBuffer]
                       (lightTicks,timeSpentPoking) <- renderPicture' (_renderData preData) 
                                             (_cameraRot w) (_cameraZoom w) 
-                                            (_cameraPos w)
+                                            (_cameraCenter w)
                                             (_windowX w,_windowY w) 
                                             (wallsPointsAndCols w)
                                             (wallsWindows w)
                                             (lightsForGloom' w)
-                                            (_cameraCenter w)
+                                            (_cameraViewFrom w)
                                             (worldPictures w)
                       blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
                       renderFoldable (_renderData preData) (picToLTree Nothing $ fixedCoordPictures w)