Fix a bug during area opening/closing when the area value may become negative.

[master-thesis.git] / Parasitemia / ParasitemiaCore / Config.fs

diff --git a/Parasitemia/ParasitemiaCore/Config.fs b/Parasitemia/ParasitemiaCore/Config.fs
index 5fdcd0d..b12f9a7 100644 (file)
--- a/Parasitemia/ParasitemiaCore/Config.fs
+++ b/Parasitemia/ParasitemiaCore/Config.fs
@@ -42,7 +42,7 @@ type Parameters = {
 
 let defaultParameters = {
     rbcDiameter = 8.<μm>
-    resolution = 220.e3<ppi> // Correspond to 50X.
+    resolution = 220.e3<ppi> // 220.e3<ppi> Correspond to 50X.
 
     ratioAreaPaleCenter = 1.f / 3.f // The ratio between an RBC area and the area of the its pale center.
 
@@ -77,7 +77,7 @@ type RBCRadius (radius: float32, parameters: Parameters) =
     member this.Max = radius + parameters.maxRbcRadius * radius
 
     member this.Area = PI * radius ** 2.f
-    member this.MinArea = parameters.minimumCellAreaFactor * radius
+    member this.MinArea = parameters.minimumCellAreaFactor * this.Area
 
     member this.InfectionArea = parameters.infectionArea * this.Area
     member this.StainArea = parameters.stainArea * this.Area