friday-0.1.5: example/Threshold.hs

import System.Environment (getArgs)

import Vision.Image

-- Thresholds an image by applying the Otsu's method.
--
-- usage: ./threshold .png output.png
main :: IO ()
main = do
    [input, output] <- getArgs
    io <-     either (\x -> error $ "Load failed: " ++ show x) return
          =<< load Nothing input

    let grey        = convert io                        :: Grey
        thresholded = otsu (BinaryThreshold 0 255) grey :: Grey

    _ <- save output thresholded
    return ()