projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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.
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) =
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
member this.Using (disposable: 'a when 'a :> IDisposable, body) =
let body' = fun () -> body disposable