CV-0.3.7: examples/SizeFilt.hs

import CV.Image
import CV.ConnectedComponents
import qualified CV.ImageMath as IM

main = do
    Just x <- loadImage "meanshiftsample.png"
    let y  = selectSizedComponents 10 100000000 $ IM.moreThan 0.5  x

    saveImage "size0.png" $ IM.moreThan 0.5 x
    saveImage "size.png" y