CV-0.3.7: examples/SnakeTest.hs

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

main = do
    Just x <- loadImage "meanshiftsample2.png"
    let initial = [(round $ 100+80*cos x, round $ 100+80*sin x) | x <- [0,0.1..2*pi]]
    mapM_ print initial
    new <- snake (unsafeImageTo8Bit x) initial 0.1 0.1 0.24 (3,3) (EPS 0.1) False
    mapM_ print new