Cleanup

2021-11-28 22:38:26 +00:00
parent 8c5777a1af
commit 8832a73d86
9 changed files with 21 additions and 24 deletions
@@ -1,7 +1,11 @@
 module Dodge.WinScale where
 import Dodge.Config.Data
+import Geometry
 import Picture

 winScale :: Configuration -> Picture -> Picture
 {-# INLINE winScale #-}
 winScale cfig = scale (2 / _windowX cfig) (2 / _windowY cfig)
+
+doWindowScale :: Configuration -> Point2 -> Point2
+doWindowScale cfig (V2 x y) = V2 ( x * 2 / _windowX cfig) ( y * 2 / _windowY cfig)