7 --import Misc (flatten)
11 --import ThreeDimensional
15 --find_point_value :: RealFunction Point
16 --find_point_value p = poly p
18 -- g0 = make_grid 1 trilinear
19 -- the_cubes = flatten (cubes g0)
20 -- good_cubes = filter ((flip contains_point) p) the_cubes
21 -- target_cube = head good_cubes
22 -- good_tets = filter ((flip contains_point) p) (tetrahedrons target_cube)
23 -- target_tetrahedron = head good_tets
24 -- poly = polynomial target_tetrahedron
27 main = putStrLn "Hello, World."