36 lines
883 B
Haskell
36 lines
883 B
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
module Dodge.Data.Camera where
|
|
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import Geometry.Data
|
|
|
|
data CamControl
|
|
= CamInGame
|
|
| CamFloat
|
|
deriving (Eq,Show,Read,Enum,Bounded)
|
|
|
|
data Camera = Camera
|
|
{ _camCenter :: Point2
|
|
, _camRot :: Float
|
|
, _camZoom :: Float -- smaller values zoom out
|
|
, _camItemZoom :: Float
|
|
, _camDefaultZoom :: Float
|
|
, _camViewFrom :: Point2
|
|
, _camViewDistance :: Float -- need to work out what these bounds actually do
|
|
, _camBoundBox :: [Point2]
|
|
, _camBoundDist :: (Float, Float, Float, Float) -- NSEW, S and W negative
|
|
, _camControl :: CamControl
|
|
}
|
|
|
|
makeLenses ''Camera
|
|
concat
|
|
<$> mapM
|
|
(deriveJSON defaultOptions)
|
|
[''CamControl
|
|
,''Camera ]
|