- let g = make_grid 1 dbl_data
- let output = zoom g zoom_factor
- let arrBrack = bracket_array output
- let mri_slice2d = drop_z $ zoom_shape zoom_factor mri_slice3d
- let colors = values_to_colors $ R.reshape mri_slice2d
- $ R.map fromIntegral arrBrack
- let routput = R.map (\(red, _, _) -> red) colors
- let goutput = R.map (\(_, green, _) -> green) colors
- let boutput = R.map (\(_, _, blue) -> blue) colors
- R.writeComponentsToBMP out_file routput goutput boutput