-- | Create the smallest bounding box containing all the given points.
--   This is a specialised version of 'Geometry.Envelope.boundingBox'.
fromPoints :: (Additive v, Ord n) => [Point v n] -> BoundingBox v n
fromPoints = mconcat . map fromPoint
fromPoints :: (Additive v, Ord n) => [Point v n] -> BoundingBox v n
fromPoints = mconcat . map fromPoint
fromPoints = mconcat . map fromPoint