From: Greg Burri <greg.burri@gmail.com>
Date: Wed, 31 Mar 2021 21:56:37 +0000 (+0200)
Subject: Reduce a bit the thickness of selected RBC
X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=commitdiff_plain;h=a498bc4223a22cd38b91b3348912301e15c077ae

Reduce a bit the thickness of selected RBC
---

diff --git a/Parasitemia/ParasitemiaCore/Types.fs b/Parasitemia/ParasitemiaCore/Types.fs
index f696c27..32f2f8f 100644
--- 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.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
--- 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
-                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