swap_bytes arr =
R.force $ R.map flip16 arr
+
bracket_array :: (Shape sh) => (Values sh) -> (RawData sh)
bracket_array arr =
- R.force $ R.map f arr
- where
- f = bracket
+ R.force $ R.map bracket arr
+
+
+round_array :: (Shape sh) => (Values sh) -> (RawData sh)
+round_array arr =
+ R.force $ R.map round arr
flip_y :: RawData3D -> RawData3D