Anonymous user
Ray-casting algorithm: Difference between revisions
m
→{{header|Tcl}}: Better living through whitespaces
(J pointpoly code) |
m (→{{header|Tcl}}: Better living through whitespaces) |
||
Line 1,002:
foreach {point poly} {
{0 0}
{2 2}
{0 0}
{1.5 1.5}
{5 5}
{5 8}
{2 2}
{0 0}
{10 10}
{2.5 2.5}
{-5 5}
} {
puts "$point in $poly = [point_in_polygon $point $poly]"
|