src/Main.hs

   1 module Main
   2 where
   3
   4 --import Cube
   5 --import Face
   6 --import Grid
   7 --import Misc (flatten)
   8 --import Point
   9 --import RealFunction
  10 --import Tetrahedron
  11 --import ThreeDimensional
  12
  13
  14
  15 --find_point_value :: RealFunction Point
  16 --find_point_value p = poly p
  17 --    where
  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
  25
  26 main :: IO ()
  27 main = putStrLn "Hello, World."