Reduce a bit the thickness of selected RBC

diff --git a/Parasitemia/ParasitemiaCore/Types.fs b/Parasitemia/ParasitemiaCore/Types.fs
index f696c27..32f2f8f 100644 (file)
--- a/Parasitemia/ParasitemiaCore/Types.fs
+++ b/Parasitemia/ParasitemiaCore/Types.fs
@@ -45,6 +45,7 @@ type Ellipse (cx : float32, cy : float32, a : float32, b : float32, alpha : floa
 
     override this.ToString () =
         $"{{{nameof Ellipse}: {nameof this.Cx} = %f{this.Cx}, {nameof this.Cy} = %f{this.Cy}, {nameof this.A} = %f{this.A}, {nameof this.B} = %f{this.B}, {nameof this.Alpha} = %f{this.Alpha}}}"
 
     override this.ToString () =
         $"{{{nameof Ellipse}: {nameof this.Cx} = %f{this.Cx}, {nameof this.Cy} = %f{this.Cy}, {nameof this.A} = %f{this.A}, {nameof this.B} = %f{this.B}, {nameof this.Alpha} = %f{this.Alpha}}}"

+

     override this.Equals (other : obj) =
         match other with
         | :? Ellipse as otherEllipse ->
     override this.Equals (other : obj) =
         match other with
         | :? Ellipse as otherEllipse ->

diff --git a/Parasitemia/ParasitemiaUI/GUI.fs b/Parasitemia/ParasitemiaUI/GUI.fs
index 40b3965..69ae1f9 100644 (file)
--- a/Parasitemia/ParasitemiaUI/GUI.fs
+++ b/Parasitemia/ParasitemiaUI/GUI.fs
@@ -84,7 +84,7 @@ let run (defaultConfig : Config) (fileToOpen : string option) =
     let highlightRBC (rbc : RBC) (highlight : bool) =
         let highlightRBCFrame (rbcFrame : RBCFrame) (strokeThickness : float) =
             if highlight then
     let highlightRBC (rbc : RBC) (highlight : bool) =
         let highlightRBCFrame (rbcFrame : RBCFrame) (strokeThickness : float) =
             if highlight then

-                rbcFrame.border.StrokeThickness <- 3. * strokeThickness
+                rbcFrame.border.StrokeThickness <- 2. * strokeThickness

                 if not rbc.infected && not rbc.setManually && not displayHealthy then rbcFrame.Opacity <- 1.
             else
                 rbcFrame.border.StrokeThickness <- strokeThickness
                 if not rbc.infected && not rbc.setManually && not displayHealthy then rbcFrame.Opacity <- 1.
             else
                 rbcFrame.border.StrokeThickness <- strokeThickness