Reduce a bit the thickness of selected RBC

[master-thesis.git] / Parasitemia / ParasitemiaUI / GUI.fs

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