boundingBoxAll :: [Dimensions] -> Dimensions
boundingBoxAll xs = sconcat $ fromList xs
boundingBoxAll :: [Dimensions] -> Dimensions
boundingBoxAll xs = sconcat $ fromList xs
boundingBoxAll xs = sconcat $ fromList xs