trilinear :: Values3D
trilinear = Repa.fromList (n_cube 3) $
flatten $
- transpose_xz $
+ transpose_xz
trilinear_list
trilinear_zoom_2 :: Values3D
trilinear_zoom_2 = Repa.fromList (n_cube 6) $
flatten $
- transpose_xz $
+ transpose_xz
trilinear_zoom_2_list
trilinear9x9x9 :: Values3D
trilinear9x9x9 = Repa.fromList (n_cube 9) $
flatten $
- transpose_xz $
+ transpose_xz
trilinear9x9x9_list
naturals :: Values3D
naturals = Repa.fromList (n_cube 3) $
flatten $
- transpose_xz $
+ transpose_xz
naturals_list
main :: IO ()
main = do
args <- getArgs
- let color = args !! 0
+ let color = head args
let in_file = "./data/MRbrain.40." ++ color
let out_file = "MRbrain.40." ++ color ++ ".out"
mridata <- read_values_3d mri_shape in_file
| z <- [0..zsize]]
where
zsize = (length m) - 1
- ysize = (length $ head m)- 1
+ ysize = length (head m) - 1
xsize = (length $ head $ head m) - 1
-- | Takes a list, and returns True if its elements are pairwise