X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FImgTools%2FImgTools.fs;h=09497133aa03b4316b084bd6b36b89ea4969f5ce;hp=0510bc81de268ffeec6c1e3d3caf8989be2fc808;hb=85adb74195fe7145535d3d36263aec2f7879cd60;hpb=d3fdf4bce5aa39363998276346bca7445b0a351d

diff --git a/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs b/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs
index 0510bc8..0949713 100644
--- a/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs
+++ b/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs
@@ -6,6 +6,12 @@ open System.Drawing
 open Emgu.CV
 open Emgu.CV.Structure
 
+/// <summary>
+/// Normalize an image between 0 and 'upperLimit'.
+/// FIXME: use to many memory.
+/// </summary>
+/// <param name="img"></param>
+/// <param name="upperLimit"></param>
 let normalize (img: Image<Gray, float32>) (upperLimit: float) : Image<Gray, float32> =
     let min = ref [| 0.0 |]
     let minLocation = ref <| [| Point() |]