Ray-casting algorithm: Difference between revisions

Content added Content deleted
Line 705:
point(8,5), point(10,10) );
 
foreach my $pol ( "qw(squared", "squaredhole", "strange", "exagon") ) {
no strict 'refs';
print "$pol\n";
Retrieved from "https://rosettacode.org/wiki/Ray-casting_algorithm"