/// <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))
+ use writer = new StreamWriter (new FileStream (filePath, FileMode.Create, FileAccess.Write))
fprintfn writer "File: %s" state.FilePath
fprintfn writer "Export date: %O" DateTime.Now
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