17 lines
399 B
Haskell
17 lines
399 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
module Dodge.Data.ScreenPos
|
|
where
|
|
|
|
import Geometry.Data
|
|
import Control.Lens
|
|
|
|
-- from the center. positive x goes right, positive y goes up.
|
|
-- a spScreenOff of 1 is the full length of the screen
|
|
-- for eg see fromTopLeft
|
|
data ScreenPos = ScreenPos
|
|
{ _spScreenOff :: Point2
|
|
, _spPixelOff :: Point2
|
|
}
|
|
makeLenses ''ScreenPos
|