X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMRI.hs;h=8e2b0acb96303b03339e15ae94d487ce972f36e8;hb=3f0b6b7faecc561af0b7312a11c73a44a1b416f6;hp=5f2ceea483437bc7a9216f066e86e1d32867288d;hpb=993490fd9d940f5e8dea4f934c07c1a5a6c1f8ff;p=spline3.git

diff --git a/src/MRI.hs b/src/MRI.hs
index 5f2ceea..8e2b0ac 100644
--- a/src/MRI.hs
+++ b/src/MRI.hs
@@ -170,13 +170,3 @@ write_values_slice_to_bitmap v3d path =
     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
-