Add an option to change the brightness of the highlight box color (healthy/infected...

[master-thesis.git] / Parasitemia / ParasitemiaCore / Types.fs

diff --git a/Parasitemia/ParasitemiaCore/Types.fs b/Parasitemia/ParasitemiaCore/Types.fs
index e2accb7..7bfbd7f 100644 (file)
--- a/Parasitemia/ParasitemiaCore/Types.fs
+++ b/Parasitemia/ParasitemiaCore/Types.fs
@@ -35,7 +35,7 @@ type Ellipse (cx: float32, cy: float32, a: float32, b: float32, alpha: float32)
         this.CutAVericalLine 0.f || this.CutAVericalLine width ||
         this.CutAnHorizontalLine 0.f || this.CutAnHorizontalLine height
 
-    member this.Scale (factor: float32) =
+    member this.Scale (factor: float32) : Ellipse =
         Ellipse(this.Cx, this.Cy, this.A * factor, this.B * factor, alpha)
 
     // Approximation of Ramanujan.
@@ -68,8 +68,10 @@ type MaybeBuilder () =
     member this.ReturnFrom (x) = x
 
     member this.TryFinally (body, compensation) =
-        try this.ReturnFrom(body())
-        finally compensation()
+        try
+            this.ReturnFrom(body())
+        finally
+            compensation()
 
     member this.Using (disposable: 'a when 'a :> IDisposable, body) =
         let body' = fun () -> body disposable