Haskell-Things/ImplicitCAD
1
1
Fork 0
mirror of https://github.com/Haskell-Things/ImplicitCAD.git synced 2024-09-19 17:08:11 +03:00
Code Issues Projects Releases Wiki Activity

add a hint what this is used for.

Browse Source
This commit is contained in:
Julia Longtin 2019-05-25 12:41:42 +01:00
parent 31907712c3
commit 54711219fc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Graphics/Implicit/Export/Symbolic/Rebound3.hs
View File

@ -10,6 +10,9 @@ import Graphics.Implicit.Definitions(BoxedObj3, ℝ3)
import Data.VectorSpace((^-^), (^+^), (^/))
-- | Slightly stretch the bounding box of an object, in order to
-- ensure that during mesh generation, there are no problems because
-- values are right at the edge.
rebound3 :: BoxedObj3 -> BoxedObj3
rebound3 (obj, (a,b)) =
let