import Data.Word
import Data.Bits
-import Data.Array.Repa as R
-import Data.Array.Repa.Repr.Unboxed as R
-import Data.Array.Repa.IO.Binary as R
+import Data.Array.Repa as R
+import Data.Array.Repa.Eval as R (now)
+import Data.Array.Repa.Repr.Unboxed as R
+import Data.Array.Repa.IO.Binary as R
import Data.Array.Repa.Algorithms.ColorRamp as R
-import Data.Array.Repa.IO.BMP as R (writeImageToBMP)
+import Data.Array.Repa.Operators.Traversal as R (unsafeTraverse)
+import Data.Array.Repa.IO.BMP as R (writeImageToBMP)
import Values
read_word16s :: FilePath -> IO RawData3D
read_word16s path = do
arr <- R.readArrayFromStorableFile path mri_shape
- now $ R.copy arr
+ now $ R.copyS arr
values_to_colors :: (Shape sh) => (Values sh) -> (ColorData sh)
values_to_colors arr =
- R.compute $ R.map (truncate_rgb . ramp_it) arr
+ R.computeS $ R.map (truncate_rgb . ramp_it) arr
where
ramp_it :: Double -> (Double, Double, Double)
ramp_it x =
R.writeImageToBMP path colors
where
arr_bracketed = bracket_array v3d
- colors = values_to_colors $ R.compute $ R.map fromIntegral arr_bracketed
+ colors = values_to_colors $ R.computeS $ R.map fromIntegral arr_bracketed