5 my ($xmin, $xmax) = (281, 311); my ($ymin, $ymax) = (-74, -54);
6 # my ($xmin, $xmax) = (20, 30); my ($ymin, $ymax) = (-10, -5);
9 for my $dx (1 .. $xmax) {
10 for my $dy ($ymin..-$ymin) {
11 my ($dx0, $dy0) = ($dx, $dy);
13 while ($x <= $xmax && $y >= $ymin) {
14 if ($x >= $xmin && $x <= $xmax && $y >= $ymin && $y <= $ymax) {
19 $x += $dx0; $y += $dy0;
20 if ($dx0 > 0) { $dx0-- };