projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove the parasite detection function from Ma.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaUI
/
Program.fs
diff --git
a/Parasitemia/ParasitemiaUI/Program.fs
b/Parasitemia/ParasitemiaUI/Program.fs
index
24e33cd
..
feab9ec
100644
(file)
--- a/
Parasitemia/ParasitemiaUI/Program.fs
+++ b/
Parasitemia/ParasitemiaUI/Program.fs
@@
-77,7
+77,8
@@
let main args =
match ParasitemiaCore.Analysis.doMultipleAnalysis images None with
| Some results ->
for id, cells in results do
match ParasitemiaCore.Analysis.doMultipleAnalysis images None with
| Some results ->
for id, cells in results do
- let config = images |> List.pick (fun (id', config', _) -> if id' = id then Some config' else None)
+ let config, img = images |> List.pick (fun (id', config', img') -> if id' = id then Some (config', img') else None)
+ img.Dispose()
let total, infected = countCells cells
fprintf resultFile "File: %s %d %d %.2f (diameter: %A)\n" id total infected (100. * (float infected) / (float total)) config.RBCRadius
| None ->
let total, infected = countCells cells
fprintf resultFile "File: %s %d %d %.2f (diameter: %A)\n" id total infected (100. * (float infected) / (float total)) config.RBCRadius
| None ->