12 lines
354 B
Haskell
12 lines
354 B
Haskell
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)
|