-bracket_array :: (Shape sh) => (RawData sh) -> (RawData sh)
-bracket_array arr =
- R.map (bracket mri_lower_threshold mri_upper_threshold . fromIntegral . flip16) arr
+{-# INLINE swap_bytes #-}
+swap_bytes :: (Shape sh, Source r Word16) => Array r sh Word16
+ -> Array D sh Word16
+swap_bytes =
+ R.map flip16
+
+
+bracket_array :: Shape sh => Values sh -> Array D sh Word16
+bracket_array =
+ R.map bracket
+
+
+{-# INLINE round_array #-}
+round_array :: Shape sh => Values sh -> Array D sh Word16
+round_array =
+ R.map round
+
+
+flip_y :: Source r Word16 => Int -> Array r DIM3 Word16 -> Array D DIM3 Word16
+flip_y height arr =
+ R.unsafeTraverse arr id
+ (\get (Z :. z :. y :. x) ->
+ get (Z :. z :. (height - 1) - y :. x))