Allow for events to do io

src/Dodge/Base.hs

@@ -9,7 +9,7 @@ import Dodge.Data
 import Dodge.WinScale
 import Dodge.Zone
 --import Dodge.Zone.Data
-import Dodge.Base.Window
+--import Dodge.Base.Window
 import Geometry
 --import Picture
 import qualified IntMapHelp as IM
@@ -453,14 +453,11 @@ crInPolygon cr = pointInPolygon (_crPos cr)
 
 {- | Transform coordinates from world position to screen coordinates.  -}
 worldPosToScreenNorm :: Configuration -> World -> Point2 -> Point2
-worldPosToScreenNorm cfig w = doWindowScale . doRotate . doZoom . doTranslate
+worldPosToScreenNorm cfig w = doWindowScale cfig . doRotate . doZoom . doTranslate
   where
-    doTranslate p       = p -.- _cameraCenter w
-    doZoom p            = _cameraZoom w *.* p
-    doRotate p          = rotateV (negate $ _cameraRot w) p
-    doWindowScale (V2 x y) = V2
-        ( x * 2 / _windowX cfig)
-        ( y * 2 / _windowY cfig)
+    doTranslate p = p -.- _cameraCenter w
+    doZoom p      = _cameraZoom w *.* p
+    doRotate p    = rotateV (negate $ _cameraRot w) p
 {- | Transform world coordinates to scaled screen coordinates. 
  - These have to be according to the size of the window to get actual screen positions.
  - This allows for line thicknesses etc to correspond to pixel sizes.-}