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

diff --git a/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs b/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs
index 0949713..ae542ce 100644
--- a/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs
+++ b/Parasitemia/ParasitemiaCore/ImgTools/ImgTools.fs
@@ -41,8 +41,8 @@ let mergeChannelsWithProjection (img: Image<Bgr, float32>) (v1r: float32, v1g: f
     let project (r: float32) (g: float32) (b: float32) = ((r - v1r) * vr + (g - v1g) * vg + (b - v1b) * vb) / vMagnitude
     let result = new Image<Gray, float32>(img.Size)
     // TODO: Essayer en bindant Data pour gagner du temps
-    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
             result.Data.[i, j, 0] <- project img.Data.[i, j, 2] img.Data.[i, j, 1] img.Data.[i, j, 0]
     normalize result upperLimit