import FunctionValues
import Misc (all_equal, disjoint)
import Point
-import Tetrahedron (
- Tetrahedron(..),
- c,
- b0,
- b1,
- b2,
- b3,
- volume
- )
+import Tetrahedron (Tetrahedron(..), c, volume)
import ThreeDimensional
data Cube = Cube { h :: Double,