X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMRI.hs;h=8e2b0acb96303b03339e15ae94d487ce972f36e8;hb=a06c2cdbc189c6b16add4ca06856f0727c12a617;hp=5f2ceea483437bc7a9216f066e86e1d32867288d;hpb=62b333768c3f3f5380fefeb9c5d09276543d677c;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
-