X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FExport.fs;h=805bcd7b585c9a1e282d188fbae0315c2291dd02;hp=52638d36012675add04510c6d909b5cdf5df3464;hb=d3f9cd7b16d25f49bd8d06394b0f1d4040809fbd;hpb=a6aee26e20f3b24e6b07120cf95a7221dc072778

diff --git a/Parasitemia/ParasitemiaUI/Export.fs b/Parasitemia/ParasitemiaUI/Export.fs
index 52638d3..805bcd7 100644
--- a/Parasitemia/ParasitemiaUI/Export.fs
+++ b/Parasitemia/ParasitemiaUI/Export.fs
@@ -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