4 import Data.Array.Repa (
10 import System.Environment (getArgs)
12 import Grid (make_grid, zoom)
13 import Values (read_values_3d, write_values_1d)
16 mri_shape = (Z :. 256 :. 256 :. 1)
25 let in_file = "./data/MRbrain.40." ++ color
26 let out_file = "MRbrain.40." ++ color ++ ".out"
27 mridata <- read_values_3d mri_shape in_file
29 let g = make_grid 1 mridata
30 let output = zoom g (4,4,1)
31 write_values_1d output out_file