Refactor event/input

src/Dodge/Rendering.hs

@@ -101,7 +101,7 @@ outsideScreenPolygon :: World -> [Point2]
 outsideScreenPolygon w = [tr,tl,bl,br]
     where scRot  = rotateV (_cameraRot w)
           scZoom p | _cameraZoom w /= 0 = (1/_cameraZoom w) *.* p
-          scTran p = p +.+ _cameraPos w
+          scTran p = p +.+ _cameraCenter w
           tr = scTran $ scRot $ scZoom (  3*halfWidth w  , 3* halfHeight w) 
           tl = scTran $ scRot $ scZoom (- (3*halfWidth w), 3* halfHeight w) 
           br = scTran $ scRot $ scZoom (   3*halfWidth w ,- (3* halfHeight w))
@@ -165,7 +165,7 @@ drawItem flIt = uncurry translate (_flItPos flIt)
 
 ffToDraw :: World -> [ForceField]
 ffToDraw w = filter (lineOnScreen w . _ffLine) $
-                IM.elems $ fmap (over ffLine (map (\p->p -.- _cameraPos w))) $ 
+                IM.elems $ fmap (over ffLine (map (\p->p -.- _cameraCenter w))) $ 
                 _forceFields w
 
 drawFF :: ForceField -> Picture
@@ -187,7 +187,7 @@ drawFFShadow w ff
                     | otherwise      = (x1:y1:[])
           fCol = color (_ffColor ff)
           col = _ffColor ff
-          ypShift = yp -.- _cameraPos w
+          ypShift = yp -.- _cameraCenter w
           youOnFF = circOnLine' x' y' ypShift (_crRad $ you w)
           pane j = color (withAlpha 0.1 col) 
                     $ polygon