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