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 = do
  28   putStrLn "Hello, World."
  29   -- print $ find_point_value (0,0,0)
  30   -- print $ find_point_value (1,0,0)
  31   -- print $ find_point_value (2,0,0)
  32   -- print $ find_point_value (0,1,0)
  33   -- print $ find_point_value (1,1,0)
  34   -- print $ find_point_value (2,1,0)
  35   -- print $ find_point_value (0,2,0)
  36   -- print $ find_point_value (1,2,0)
  37   -- print $ find_point_value (2,2,0)
  38   -- print $ find_point_value (0,0,1)
  39   -- print $ find_point_value (1,0,1)
  40   -- print $ find_point_value (2,0,1)
  41   -- print $ find_point_value (0,1,1)
  42   -- print $ find_point_value (1,1,1)
  43   -- print $ find_point_value (2,1,1)
  44   -- print $ find_point_value (0,2,1)
  45   -- print $ find_point_value (1,2,1)
  46   -- print $ find_point_value (2,2,1)
  47   -- print $ find_point_value (0,0,2)
  48   -- print $ find_point_value (1,0,2)
  49   -- print $ find_point_value (2,0,2)
  50   -- print $ find_point_value (0,1,2)
  51   -- print $ find_point_value (1,1,2)
  52   -- print $ find_point_value (2,1,2)
  53   -- print $ find_point_value (0,2,2)
  54   -- print $ find_point_value (1,2,2)
  55   -- print $ find_point_value (2,2,2)