Cleanup
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user