19 lines
500 B
Haskell
19 lines
500 B
Haskell
module Dodge.ScreenPos where
|
|
|
|
import Dodge.Base.Window
|
|
import Dodge.Data.Config
|
|
import Dodge.Data.ScreenPos
|
|
import Geometry.Data
|
|
import Picture.Base
|
|
import Control.Lens
|
|
|
|
fromTopLeft :: Point2 -> ScreenPos
|
|
fromTopLeft (V2 x y) = ScreenPos (V2 (-0.5) 0.5) (V2 x (- y))
|
|
|
|
translateScreenPos :: Configuration -> ScreenPos -> Picture -> Picture
|
|
translateScreenPos cfig sp = translate x y
|
|
where
|
|
V2 x y = sp ^. spScreenOff * V2 hw hh + sp ^. spPixelOff
|
|
hw = halfWidth cfig
|
|
hh = halfHeight cfig
|