Move configuration from world to universe

src/Dodge/WinScale.hs

@@ -0,0 +1,7 @@
+module Dodge.WinScale where
+import Dodge.Config.Data
+import Picture
+
+winScale :: Configuration -> Picture -> Picture
+{-# INLINE winScale #-}
+winScale cfig = scale (2 / _windowX cfig) (2 / _windowY cfig)