projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improve readability of highlighted RBCs.
[master-thesis.git]
/
Parasitemia
/
Parasitemia
/
GUI
/
Types.fs
diff --git
a/Parasitemia/Parasitemia/GUI/Types.fs
b/Parasitemia/Parasitemia/GUI/Types.fs
index
6e00586
..
f22afdb
100644
(file)
--- a/
Parasitemia/Parasitemia/GUI/Types.fs
+++ b/
Parasitemia/Parasitemia/GUI/Types.fs
@@
-1,5
+1,6
@@
module Parasitemia.GUI.Types
module Parasitemia.GUI.Types
+open System
open System.Windows
open Emgu.CV
open System.Windows
open Emgu.CV
@@
-13,14
+14,11
@@
type RBC = {
center: Point
size: Size
center: Point
size: Size
- infectedArea: int } with
- member this.SetAsInfected (infected: bool) =
- if infected <> this.infected
- then
- this.infected <- infected
- this.setManually <- not this.setManually
+ infectedArea: int }
type SourceImage = {
type SourceImage = {
- num: int
+ mutable num: int
+ mutable rbcRadius: float
+ mutable dateLastAnalysis: DateTime // UTC.
img: Image<Bgr, byte>
mutable rbcs: RBC list }
\ No newline at end of file
img: Image<Bgr, byte>
mutable rbcs: RBC list }
\ No newline at end of file