{-# 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