-- | Create a degenerate bounding \"box\" containing only a single
--   point. This is a specialised version of
--   'Geometry.Envelope.boundingBox'.
fromPoint :: Point v n -> BoundingBox v n
fromPoint p = BoundingBox p p
fromPoint :: Point v n -> BoundingBox v n
fromPoint p = BoundingBox p p
fromPoint p = BoundingBox p p