module Main
where

import Data.Array.Repa (
  DIM3,
  Z(..),
  (:.)(..),
  toList
  )

import Values
--import Grid(make_grid, zoom)

mri_shape :: DIM3
mri_shape = (Z :. 256 :. 256 :. 109)

main :: IO ()
main = do
  mridata <- read_values_3d mri_shape "./data/mridata.txt"
  let tmp = Data.Array.Repa.toList mridata
  print tmp
--  let g = make_grid 1 (Data.Array.Repa.toList mridata2)
--  let output = zoom g 2
--  print "Hello, world."