{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Bounds
    where
import Control.Lens

data Bounds = Bounds
    { _bdMinX            :: Float
    , _bdMaxX            :: Float
    , _bdMinY            :: Float
    , _bdMaxY            :: Float
    }
defaultBounds :: Bounds
defaultBounds = Bounds 0 0 0 0

makeLenses ''Bounds