BlendLine-Func

I noticed my func works if only changing the While to
While Int(X#) <> X2 OR Int(Y#) <> Y2

But now there is a color issue. The line, if yet somewhat transparent, is always white-toned...