CV-0.3.6.0: examples/newContours.hs

module Main where
import CV.Image
import CV.ConnectedComponents
import CV.Bindings.Types


main = do
   Just x <- loadImage "Circle.png" >>= return . fmap unsafeImageTo8Bit
   cs <- contours x (C'CvPoint 0 0) 0 0 0
   print cs
   print "done"