X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTetrahedron.hs;h=4c7abed0fe78e282ec1096c410cae41c15300129;hb=35bc3798d28ed65ab970cf158082bf8d68e2c480;hp=670a6e0f26f5024be159b8f870bcfd61e1dafe92;hpb=e46f39ac6687ba24e5f3ff3d8fef4efe309c40cd;p=spline3.git

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index 670a6e0..4c7abed 100644
--- a/src/Tetrahedron.hs
+++ b/src/Tetrahedron.hs
@@ -71,6 +71,7 @@ instance ThreeDimensional Tetrahedron where
     center (Tetrahedron _ v0' v1' v2' v3' _) =
         (v0' + v1' + v2' + v3') `scale` (1/4)
 
+    -- contains_point is only used in tests.
     contains_point t p0 =
       b0_unscaled `nearly_ge` 0 &&
       b1_unscaled `nearly_ge` 0 &&