-
-
-write_values_slice_to_bitmap :: Values2D -> FilePath -> IO ()
-write_values_slice_to_bitmap v3d path = do
- values <- R.computeUnboxedP $ R.map fromIntegral arr_bracketed
- colors <- values_to_colors $ values
- R.writeImageToBMP path colors
- where
- arr_bracketed = bracket_array v3d