Replace "for [..] in [..]" by "for [..] to [..]" for consistency.

[master-thesis.git] / Parasitemia / ParasitemiaCore / ImgTools / Edges.fs

diff --git a/Parasitemia/ParasitemiaCore/ImgTools/Edges.fs b/Parasitemia/ParasitemiaCore/ImgTools/Edges.fs
index 3980120..df5858d 100644 (file)
--- a/Parasitemia/ParasitemiaCore/ImgTools/Edges.fs
+++ b/Parasitemia/ParasitemiaCore/ImgTools/Edges.fs
@@ -51,8 +51,8 @@ let find (img: Image<Gray, float32>) : Matrix<byte> * Matrix<float32> * Matrix<f
     let xGradientData = xGradient.Data
     let yGradientData = yGradient.Data
 
-    for i in 1 .. h - 2 do
-        for j in 1 .. w - 2 do
+    for i = 1 to h - 2 do
+        for j = 1 to w - 2 do
             let vx = xGradientData.[i, j]
             let vy = yGradientData.[i, j]
             if vx <> 0.f || vy <> 0.f
@@ -92,8 +92,8 @@ let find (img: Image<Gray, float32>) : Matrix<byte> * Matrix<float32> * Matrix<f
 
     // Hysteresis thresholding.
     let toVisit = Stack<Point>()
-    for i in 0 .. h - 1 do
-        for j in 0 .. w - 1 do
+    for i = 0 to h - 1 do
+        for j = 0 to w - 1 do
             if nmsData.[i, j] = 1uy && magnitudesData.[i, j] >= thresholdHigh
             then
                 nmsData.[i, j] <- 0uy
@@ -101,8 +101,8 @@ let find (img: Image<Gray, float32>) : Matrix<byte> * Matrix<float32> * Matrix<f
                 while toVisit.Count > 0 do
                     let p = toVisit.Pop()
                     edgesData.[p.Y, p.X] <- 1uy
-                    for i' in -1 .. 1  do
-                        for j' in -1 .. 1 do
+                    for i' = -1 to 1  do
+                        for j' = -1 to 1 do
                             if i' <> 0 || j' <> 0
                             then
                                 let ni = p.Y + i'