Save predefined PPI and sensor sizes in JSON files.

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

diff --git a/Parasitemia/ParasitemiaCore/Analysis.fs b/Parasitemia/ParasitemiaCore/Analysis.fs
index f7e7b1c..2a7ddc8 100644 (file)
--- a/Parasitemia/ParasitemiaCore/Analysis.fs
+++ b/Parasitemia/ParasitemiaCore/Analysis.fs
@@ -138,10 +138,10 @@ let doAnalysis (img: Image<Bgr, byte>) (name: string) (config: Config) (reportPr
                 Drawing.drawCells imgCells' true cells
                 IO.saveImg imgCells' (buildFileName " - cells - full.png")
 
-                let filteredRBCMaxima = gaussianFilter img_RBC config.LPFStandardDeviationRBC
+                (* let filteredRBCMaxima = gaussianFilter img_RBC config.LPFStandardDeviationRBC
                 for m in findMaxima filteredRBCMaxima do
                     Drawing.drawPoints filteredRBCMaxima m 255.f
-                IO.saveImg filteredRBCMaxima (buildFileName " - filtered - maxima.png")
+                IO.saveImg filteredRBCMaxima (buildFileName " - filtered - maxima.png") *)
 
                 IO.saveImg imgWhitoutParasite (buildFileName " - filtered closed stain.png")
                 IO.saveImg imgWithoutNucleus (buildFileName " - filtered closed infection.png")
@@ -149,9 +149,9 @@ let doAnalysis (img: Image<Bgr, byte>) (name: string) (config: Config) (reportPr
                 IO.saveImg img_RBC_filtered (buildFileName " - source - RBC.png")
                 IO.saveImg img_parasites_filtered (buildFileName " - source - parasites.png")
 
-                IO.saveImg (normalize img_float.[2] 255.) (buildFileName " - source - red.png")
-                IO.saveImg (normalize img_float.[1] 255.) (buildFileName " - source - green.png")
-                IO.saveImg (normalize img_float.[0] 255.) (buildFileName " - source - blue.png")
+                IO.saveImg img_float.[2] (buildFileName " - source - red.png")
+                IO.saveImg img_float.[1] (buildFileName " - source - green.png")
+                IO.saveImg img_float.[0] (buildFileName " - source - blue.png")
             | _ -> ()
 
         return cells }