routput = R.map (\(red, _, _) -> red) colors
goutput = R.map (\(_, green, _) -> green) colors
boutput = R.map (\(_, _, blue) -> blue) colors
-
-
-write_values_chunk_to_bitmap :: Values3D -> FilePath -> IO ()
-write_values_chunk_to_bitmap v3d path
- | zdim /= 3 = error "not a 3xMxN chunk"
- | otherwise = write_values_slice_to_bitmap target_slice path
- where
- (Z :. zdim :. _ :. _) = extent v3d
- target_slice = z_slice 1 v3d
-