src/Main.hs

   1 module Main
   2 where
   3
   4 import Data.Array.Repa (
   5   DIM3,
   6   Z(..),
   7   (:.)(..),
   8   toList
   9   )
  10
  11 import Values
  12 --import Grid(make_grid, zoom)
  13
  14 mri_shape :: DIM3
  15 mri_shape = (Z :. 256 :. 256 :. 109)
  16
  17 main :: IO ()
  18 main = do
  19   mridata <- read_values_3d mri_shape "./data/mridata.txt"
  20   let tmp = Data.Array.Repa.toList mridata
  21   print tmp
  22 --  let g = make_grid 1 (Data.Array.Repa.toList mridata2)
  23 --  let output = zoom g 2
  24 --  print "Hello, world."