Ray-casting algorithm: Difference between revisions
Content added Content deleted
Line 705: | Line 705: | ||
point(8,5), point(10,10) ); |
point(8,5), point(10,10) ); |
||
foreach my $pol ( |
foreach my $pol ( qw(squared squaredhole strange exagon) ) { |
||
no strict 'refs'; |
no strict 'refs'; |
||
print "$pol\n"; |
print "$pol\n"; |