X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=inline;f=src%2FGrid.hs;h=893fe5c360d3f39c73a99ebab26d1320fd798815;hb=b15ac8d6f5ded844603bacb57dc44a38ec3aaf31;hp=d31ffabdf2aa122cadacf0cc9d85513f4989033a;hpb=aed1b3cc557b67aca7d8b3259f44715078db94ae;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index d31ffab..893fe5c 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -365,18 +365,18 @@ test_trilinear9x9x9_reproduced =
 --
 --   Example from before the fix:
 --
---   > b0 (tetrahedron c 15) p
---   -3.4694469519536365e-18
+--   b1 (tetrahedron c 20) (0, 17.5, 0.5)
+--   -0.0
 --
 test_tetrahedra_collision_sensitivity :: Assertion
 test_tetrahedra_collision_sensitivity =
   assertTrue "tetrahedron collision tests isn't too sensitive" $
-             contains_point t15 p
+             contains_point t20 p
   where
     g = make_grid 1 naturals_1d
-    cube = cube_at g 0 17 1
-    p = (0, 16.75, 0.5) :: Point
-    t15 = tetrahedron cube 15
+    cube = cube_at g 0 18 0
+    p = (0, 17.5, 0.5) :: Point
+    t20 = tetrahedron cube 20
 
 
 prop_cube_indices_never_go_out_of_bounds :: Grid -> Gen Bool