Ray-casting algorithm: Difference between revisions
→{{header|Visual Basic .NET}}: Updated to match current Java entry.
(→{{header|Java}}: Java code was changed in 2018 to match the algorithm but wasn't rerun.) |
(→{{header|Visual Basic .NET}}: Updated to match current Java entry.) |
||
Line 3,914:
If a(1) > b(1) Then Return Intersects(b, a, p)
If p(1) = a(1) Or p(1) = b(1) Then p(1) += 0.0001
If p(1) > b(1) Or p(1) < a(1) Or p(0) >= Max(a(0), b(0)) Then Return False
If p(0) < Min(a(0), b(0)) Then Return True
Dim red As Double = (p(1) - a(1)) / (p(0) - a(0))
Line 3,924:
{{out}}
<pre>
True True False
False True False False
True False False False
True True False False
</pre>
|