Ray-casting algorithm: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Line 608:
then incr cross
) poly.edges;
(not ( (!cross mod 2) =<> 0))
;;
 
Line 614:
let make_test p label s =
Printf.printf "point (%.5f,%.5f) is " p.x p.y;
print_string (if point_is_inside s p
then print_string then "INSIDE "
else print_string else "OUTSIDE ");
print_endline label;
;;
Line 635:
) test_points;
;;</lang>
 
 
=={{header|Perl}}==
Retrieved from "https://rosettacode.org/wiki/Ray-casting_algorithm"