-- for it. We hide the main Grid constructor because we don't want
-- to allow instantiation of a grid with h <= 0.
module Grid (
-- for it. We hide the main Grid constructor because we don't want
-- to allow instantiation of a grid with h <= 0.
module Grid (
-import Tetrahedron (c, polynomial, v0, v1, v2, v3)
+import Tetrahedron (Tetrahedron, c, polynomial, v0, v1, v2, v3)
import ThreeDimensional
import Values (Values3D, dims, empty3d, zoom_shape)
import ThreeDimensional
import Values (Values3D, dims, empty3d, zoom_shape)
- i' = (fromIntegral i) / (fromIntegral sfx) - offset
- j' = (fromIntegral j) / (fromIntegral sfy) - offset
- k' = (fromIntegral k) / (fromIntegral sfz) - offset
- p = (i', j', k') :: Point
+ m' = (fromIntegral m) / (fromIntegral sfx) - offset
+ n' = (fromIntegral n) / (fromIntegral sfy) - offset
+ o' = (fromIntegral o) / (fromIntegral sfz) - offset
+ p = (m', n', o') :: Point
--
test_tetrahedra_collision_sensitivity :: Assertion
test_tetrahedra_collision_sensitivity =
assertTrue "tetrahedron collision tests isn't too sensitive" $
--
test_tetrahedra_collision_sensitivity :: Assertion
test_tetrahedra_collision_sensitivity =
assertTrue "tetrahedron collision tests isn't too sensitive" $
- cube = cube_at g 0 17 1
- p = (0, 16.75, 0.5) :: Point
- t15 = tetrahedron15 cube
+ cube = cube_at g 0 18 0
+ p = (0, 17.5, 0.5) :: Point
+ t20 = tetrahedron cube 20