Update coding style.

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

diff --git a/Parasitemia/ParasitemiaCore/Config.fs b/Parasitemia/ParasitemiaCore/Config.fs
index fdeed8f..e000d65 100644 (file)
--- a/Parasitemia/ParasitemiaCore/Config.fs
+++ b/Parasitemia/ParasitemiaCore/Config.fs
@@ -98,7 +98,7 @@ type RBCRadius (radius : float32, parameters : Parameters) =
     member this.NucleusArea = parameters.nucleusAreaRatio * this.Area
     member this.MinimumParasiteArea = parameters.minimumParasiteAreaRatio * this.Area
 
-    override this.ToString() =
+    override this.ToString () =
         sprintf "%d px (%.1f μm)" (Utils.roundInt <| 2.f * radius) (2. * this.μm)
 
 type Config (param : Parameters) =
@@ -108,17 +108,17 @@ type Config (param : Parameters) =
         float32 rbcRadiusPx
 
     let mutable parameters : Parameters = param
-    let mutable rbcRadiusByResolution = RBCRadius(RBCadiusInPixels parameters.rbcDiameter parameters.resolution, parameters)
-    let mutable rbcRadius = RBCRadius(0.f, parameters)
+    let mutable rbcRadiusByResolution = RBCRadius (RBCadiusInPixels parameters.rbcDiameter parameters.resolution, parameters)
+    let mutable rbcRadius = RBCRadius (0.f, parameters)
 
-    new () = Config(defaultParameters)
+    new () = Config defaultParameters
 
     member this.Parameters
-        with get() = parameters
-        and set(param) =
+        with get () = parameters
+        and set param =
             parameters <- param
-            rbcRadiusByResolution <- RBCRadius(RBCadiusInPixels parameters.rbcDiameter parameters.resolution, param)
-            rbcRadius <- RBCRadius(rbcRadius.Pixel, param)
+            rbcRadiusByResolution <- RBCRadius (RBCadiusInPixels parameters.rbcDiameter parameters.resolution, param)
+            rbcRadius <- RBCRadius (rbcRadius.Pixel, param)
 
     member val Debug = DebugOff with get, set
 
@@ -134,8 +134,8 @@ type Config (param : Parameters) =
     member this.RBCRadius = rbcRadius
 
     member this.SetRBCRadius (radiusPixel : float32) =
-        rbcRadius <- RBCRadius(radiusPixel, parameters)
+        rbcRadius <- RBCRadius (radiusPixel, parameters)
 
     member this.Copy () =
-        this.MemberwiseClone() :?> Config
+        this.MemberwiseClone () :?> Config