Save imported image in the same format (WIP)

[master-thesis.git] / Parasitemia / ParasitemiaUI / Export.fs

diff --git a/Parasitemia/ParasitemiaUI/Export.fs b/Parasitemia/ParasitemiaUI/Export.fs
index adecd6c..805bcd7 100644 (file)
--- a/Parasitemia/ParasitemiaUI/Export.fs
+++ b/Parasitemia/ParasitemiaUI/Export.fs
@@ -6,10 +6,10 @@ open System.IO
 open State
 
 /// <exception cref="System.IOException">If the results cannot be exported</exception>
-let exportResults (state: State) (filePath: string) =
-    use writer = new StreamWriter(new FileStream(filePath, FileMode.Create, FileAccess.Write))
+let exportResults (state : State) (filePath : string) =
+    use writer = new StreamWriter (new FileStream (filePath, FileMode.Create, FileAccess.Write))
     fprintfn writer "File: %s" state.FilePath
-    fprintfn writer "Export date: %A" DateTime.Now
+    fprintfn writer "Export date: %O" DateTime.Now
 
     fprintfn writer ""
     fprintfn writer "Patient ID: %s" state.PatientID
@@ -17,8 +17,8 @@ let exportResults (state: State) (filePath: string) =
 
     for srcImg in state.SourceImages do
         fprintfn writer ""
-        fprintfn writer "Image name: %s" srcImg.name
-        fprintfn writer "Parasitemia: %s" (Utils.percentText (state.ImageParasitemia srcImg))
-        fprintfn writer "Added infected erythrocyte: %s %s" (state.ImageNbManuallyChangedRBCStr srcImg true) (state.ImageManuallyChangedRBCStr srcImg true)
-        fprintfn writer "Removed infected erythrocyte: %s %s" (state.ImageNbManuallyChangedRBCStr srcImg false) (state.ImageManuallyChangedRBCStr srcImg false)
+        fprintfn writer "Image name: %s" srcImg.Name
+        fprintfn writer "Parasitemia: %s" (Utils.percentText srcImg.ImageParasitemia)
+        fprintfn writer "Added infected erythrocyte: %s %s" (srcImg.ImageNbManuallyChangedRBCStr true) (srcImg.ImageManuallyChangedRBCStr true)
+        fprintfn writer "Removed infected erythrocyte: %s %s" (srcImg.ImageNbManuallyChangedRBCStr false) (srcImg.ImageManuallyChangedRBCStr false)
     ()
\ No newline at end of file