OpenCV.Video.MotionAnalysis

BackgroundSubtractor

class BackgroundSubtractor a where

Minimal complete definition

bgSubApply, getBackgroundImage

Methods

bgSubApply :: PrimMonad m => a (PrimState m) -> Double -> Mat (S '[h, w]) channels depth -> m (Mat (S '[h, w]) (S 1) (S Word8))

getBackgroundImage :: PrimMonad m => a (PrimState m) -> m (Mat (S '[h, w]) channels depth)

Instances

BackgroundSubtractor (BackgroundSubtractorMOG2 *)

Methods

bgSubApply :: PrimMonad m => BackgroundSubtractorMOG2 * (PrimState m) -> Double -> Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) (S Nat 1) (S * Word8))

getBackgroundImage :: PrimMonad m => BackgroundSubtractorMOG2 * (PrimState m) -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth)

BackgroundSubtractor (BackgroundSubtractorKNN *)

Methods

bgSubApply :: PrimMonad m => BackgroundSubtractorKNN * (PrimState m) -> Double -> Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) (S Nat 1) (S * Word8))

getBackgroundImage :: PrimMonad m => BackgroundSubtractorKNN * (PrimState m) -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth)

Background subtractors

data BackgroundSubtractorMOG2 s

Instances

Algorithm (BackgroundSubtractorMOG2 *)

Methods

algorithmClearState :: PrimMonad m => BackgroundSubtractorMOG2 * (PrimState m) -> m ()

algorithmIsEmpty :: PrimMonad m => BackgroundSubtractorMOG2 * (PrimState m) -> m Bool

BackgroundSubtractor (BackgroundSubtractorMOG2 *)

Methods

bgSubApply :: PrimMonad m => BackgroundSubtractorMOG2 * (PrimState m) -> Double -> Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) (S Nat 1) (S * Word8))

getBackgroundImage :: PrimMonad m => BackgroundSubtractorMOG2 * (PrimState m) -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth)

FromPtr (BackgroundSubtractorMOG2 k s)

Methods

fromPtr :: IO (Ptr (C (BackgroundSubtractorMOG2 k s))) -> IO (BackgroundSubtractorMOG2 k s)

WithPtr (BackgroundSubtractorMOG2 k s)

Methods

withPtr :: BackgroundSubtractorMOG2 k s -> (Ptr (C (BackgroundSubtractorMOG2 k s)) -> IO b) -> IO b

data BackgroundSubtractorKNN s

Example:

carAnim :: Animation (ShapeT [240, 320]) ('S 3) ('S Word8)
carAnim = carOverhead

mog2Anim :: IO (Animation (ShapeT [240, 320]) ('S 3) ('S Word8))
mog2Anim = do
    mog2 <- newBackgroundSubtractorMOG2 Nothing Nothing Nothing
    forM carOverhead $ (delay, img) -> do
      fg <- bgSubApply mog2 0.1 img
      fgBgr <- exceptErrorIO $ pureExcept $ cvtColor gray bgr fg
      pure (delay, fgBgr)

Original:

Foreground:

Instances

Algorithm (BackgroundSubtractorKNN *)

Methods

algorithmClearState :: PrimMonad m => BackgroundSubtractorKNN * (PrimState m) -> m ()

algorithmIsEmpty :: PrimMonad m => BackgroundSubtractorKNN * (PrimState m) -> m Bool

BackgroundSubtractor (BackgroundSubtractorKNN *)

Methods

bgSubApply :: PrimMonad m => BackgroundSubtractorKNN * (PrimState m) -> Double -> Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) (S Nat 1) (S * Word8))

getBackgroundImage :: PrimMonad m => BackgroundSubtractorKNN * (PrimState m) -> m (Mat (S [DS Nat] ((DS Nat ': h) ((DS Nat ': w) [DS Nat]))) channels depth)

FromPtr (BackgroundSubtractorKNN k s)

Methods

fromPtr :: IO (Ptr (C (BackgroundSubtractorKNN k s))) -> IO (BackgroundSubtractorKNN k s)

WithPtr (BackgroundSubtractorKNN k s)

Methods

withPtr :: BackgroundSubtractorKNN k s -> (Ptr (C (BackgroundSubtractorKNN k s)) -> IO b) -> IO b

newBackgroundSubtractorKNN

Arguments

:: PrimMonad m

=> Maybe Int32

Length of the history.

-> Maybe Double

Threshold on the squared distance between the pixel and the sample to decide whether a pixel is close to that sample. This parameter does not affect the background update.

-> Maybe Bool

If True, the algorithm will detect shadows and mark them. It decreases the speed a bit, so if you do not need this feature, set the parameter to False.

-> m (BackgroundSubtractorKNN (PrimState m))

newBackgroundSubtractorMOG2

Arguments

:: PrimMonad m

=> Maybe Int32

Length of the history.

-> Maybe Double

Threshold on the squared Mahalanobis distance between the pixel and the model to decide whether a pixel is well described by the background model. This parameter does not affect the background update.

-> Maybe Bool

If True, the algorithm will detect shadows and mark them. It decreases the speed a bit, so if you do not need this feature, set the parameter to False.

-> m (BackgroundSubtractorMOG2 (PrimState m))