29 lines
692 B
Haskell
29 lines
692 B
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
module Dodge.Data.CamPos where
|
|
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import Geometry.Data
|
|
|
|
data CamPos = CamPos
|
|
{ _camCenter :: Point2
|
|
, _camRot :: Float
|
|
, _camZoom :: Float -- smaller values zoom out
|
|
, _camItemZoom :: Float
|
|
, _camDefaultZoom :: Float
|
|
, _camViewFrom :: Point2
|
|
, _camViewDistance :: Float
|
|
, _camBoundBox :: [Point2]
|
|
, _camBoundDist :: (Float, Float, Float, Float) -- NSEW, S and W negative
|
|
}
|
|
|
|
makeLenses ''CamPos
|
|
concat
|
|
<$> mapM
|
|
(deriveJSON defaultOptions)
|
|
[ ''CamPos ]
|