X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FConfig.fs;h=b12f9a7d0ef98ebb7124244e601fbcb1bb8dc303;hb=aee6cf83f81c6378c458f75bbfaf7c9fa5521135;hp=5fdcd0d8103187b19782d55a92c2459057e235db;hpb=4bfa3cbdc6145e6944f02e24829ab2ef3a851ac1;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaCore/Config.fs b/Parasitemia/ParasitemiaCore/Config.fs
index 5fdcd0d..b12f9a7 100644
--- 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