This commit is contained in:
2022-07-27 12:49:23 +01:00
parent 6554d219dc
commit 8d17ce66e9
106 changed files with 2911 additions and 2678 deletions
+3 -2
View File
@@ -1,5 +1,6 @@
module Dodge.Base.WinScale where
import Dodge.Config.Data
import Dodge.Data.Config
import Geometry
import Picture
@@ -8,4 +9,4 @@ winScale :: Configuration -> Picture -> Picture
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)
doWindowScale cfig (V2 x y) = V2 (x * 2 / _windowX cfig) (y * 2 / _windowY cfig)