X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FKMeans.fs;h=98352fea2ff287236d0654bb4e258ce153e8166b;hb=81d1b86719a1ebaf649c1de4c1364603155a53e1;hp=55b899d7a48d7eb27ba35fee3aaf25d3da4c3386;hpb=6b550c3faf4dea77738fa5c27cd9af277f45549c;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/KMeans.fs b/Parasitemia/Parasitemia/KMeans.fs
index 55b899d..98352fe 100644
--- a/Parasitemia/Parasitemia/KMeans.fs
+++ b/Parasitemia/Parasitemia/KMeans.fs
@@ -6,7 +6,6 @@ open System.Drawing
 open Emgu.CV
 open Emgu.CV.Structure
 
-
 type Result = {
     fg: Image<Gray, byte>
     mean_bg: float32
@@ -37,8 +36,9 @@ let kmeans (img: Image<Gray, float32>) : Result =
     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()