{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.Bounds where

import Control.Lens
import Data.Aeson
import Data.Aeson.TH

data Bounds = Bounds
    { _bdMinX :: Float
    , _bdMaxX :: Float
    , _bdMinY :: Float
    , _bdMaxY :: Float
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

defaultBounds :: Bounds
defaultBounds = Bounds 0 0 0 0

makeLenses ''Bounds
deriveJSON defaultOptions ''Bounds