17 lines
351 B
Haskell
17 lines
351 B
Haskell
{-# 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
|