X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTetrahedron.hs;h=4c7abed0fe78e282ec1096c410cae41c15300129;hb=922f93eb2aa9d8ef1747289f5973de25bd346edc;hp=670a6e0f26f5024be159b8f870bcfd61e1dafe92;hpb=5c2ac2ca74f2657ff8af381d3bcda72a37b39fb7;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 &&