-red_dbl_data :: (Shape sh) => (ColorData sh) -> Array sh Double
-red_dbl_data =
- R.map (get_r . rgb_to_dbl)
- where
- get_r :: (Double, Double, Double) -> Double
- get_r (r, _, _) = r
-
-green_dbl_data :: (Shape sh) => (ColorData sh) -> Array sh Double
-green_dbl_data =
- R.map (get_g . rgb_to_dbl)
- where
- get_g :: (Double, Double, Double) -> Double
- get_g (_, g, _) = g
+z_slice :: (R.Unbox a, Source r a) => Int -> Array r DIM3 a -> Array D DIM2 a
+z_slice n arr =
+ slice arr (Any :. n :. All :. All)