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) =
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
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