X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FGranulometry.fs;h=b325534b04c815beab9ac4a1221264fd7c0ef23a;hb=87641084d867016984d34060103d7c832b9230cf;hp=0afe5ccb1501ca8c68591d522b98b62e77b7a375;hpb=170abb893b9e6babbf93276e39e8c984cedbc68f;p=master-thesis.git diff --git a/Parasitemia/ParasitemiaCore/Granulometry.fs b/Parasitemia/ParasitemiaCore/Granulometry.fs index 0afe5cc..b325534 100644 --- a/Parasitemia/ParasitemiaCore/Granulometry.fs +++ b/Parasitemia/ParasitemiaCore/Granulometry.fs @@ -71,7 +71,7 @@ let findRadiusByAreaClosing (img: Image) (radiusRange: int * int) let mutable maxDiff = 0.f let mutable max_r = r1 - ImgTools.areaCloseFWithFun imgCopy [ for r in r1 .. r2 -> Math.PI * float r ** 2. |> roundInt, r ] (fun r diff -> + Morpho.areaCloseFWithFun imgCopy [ for r in r1 .. r2 -> Math.PI * float r ** 2. |> roundInt, r ] (fun r diff -> if r <> r1 && diff > maxDiff then maxDiff <- diff