open Emgu.CV
open Emgu.CV.Structure
+
type Result = {
fg: Image<Gray, byte>
mean_bg: float32
d_fg: Image<Gray, float32> } // Euclidean distances of the foreground to mean_fg.
let kmeans (img: Image<Gray, float32>) : Result =
- let nbIteration = 3
+ let nbIteration = 4
let w = img.Width
let h = img.Height
let fgData = fg.Data
for i in 1 .. nbIteration do
- if d_bg <> null
- then
+ match d_bg with
+ | null -> ()
+ | _ ->
d_bg.Dispose()
d_fg.Dispose()