Add file

2022-04-10 10:17:03 +01:00
parent 901fab762a
commit 2da4098d41
3 changed files with 64 additions and 0 deletions
@@ -0,0 +1,11 @@
+module Dodge.Base.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)