From: Greg Burri 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/?a=commitdiff_plain;h=a498bc4223a22cd38b91b3348912301e15c077ae;p=master-thesis.git 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