X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=83f4da38f52638f300a655ce88dbfc3d46a9cd8a;hb=1b041ed87130177797758f471aa78fe55e65c9ae;hp=7b139a4741aff80a5bae666395aa61c5d45aff5d;hpb=2813bba7169c1457e630b3870858e96fd4bf61da;p=spline3.git diff --git a/src/Cube.hs b/src/Cube.hs index 7b139a4..83f4da3 100644 --- a/src/Cube.hs +++ b/src/Cube.hs @@ -28,15 +28,7 @@ import qualified Face (Face(Face, v0, v1, v2, v3)) 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,