X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FImgTools%2FHistogram.fs;h=e3a9950290f2d5af14a91ea9ba439adcb06c52fe;hp=92b73f613b13751cbbae2855d4b63f23145e7752;hb=1b8e45987bde692ab5602c281f878707f70459b7;hpb=32ef4bbb0381f822c4df124595d401ad2f502c1b

diff --git a/Parasitemia/ParasitemiaCore/ImgTools/Histogram.fs b/Parasitemia/ParasitemiaCore/ImgTools/Histogram.fs
index 92b73f6..e3a9950 100644
--- a/Parasitemia/ParasitemiaCore/ImgTools/Histogram.fs
+++ b/Parasitemia/ParasitemiaCore/ImgTools/Histogram.fs
@@ -30,8 +30,8 @@ let histogramImg (img: Image<Gray, float32>) (nbSamples: int) : Histogram =
 
     let data = Array.zeroCreate nbSamples
 
-    for i in 0 .. img.Height - 1 do
-        for j in 0 .. img.Width - 1 do
+    for i = 0 to img.Height - 1 do
+        for j = 0 to img.Width - 1 do
             let p = bin imgData.[i, j, 0]
             data.[p] <- data.[p] + 1
 
@@ -54,8 +54,8 @@ let histogramMat (mat: Matrix<float32>) (nbSamples: int) : Histogram =
 
     let data = Array.zeroCreate nbSamples
 
-    for i in 0 .. mat.Height - 1 do
-        for j in 0 .. mat.Width - 1 do
+    for i = 0 to mat.Height - 1 do
+        for j = 0 to mat.Width - 1 do
             let p = bin matData.[i, j]
             data.[p] <- data.[p] + 1