- # say "dist =$dist";
- if ($dist < $r) {
- my ($l, $r) = ($sx - ($r - $dist), $sx + ($r - $dist));
- next if $r < 0 || $l > $max;
- $l = 0 if $l < 0;
- $r = $max if $r > $max;
- push @ints, [$l, $r];
- # say "$ints[-1][0] $ints[-1][1]";
- $corr{$cx} = 1 if $cy == $row;
- }
+ next if $dist > $r;
+
+ my ($left, $right) = ($sx - ($r - $dist), $sx + ($r - $dist));
+ next if $right < 0 || $left > $max;
+ $left = 0 if $left < 0;
+ $right = $max if $right > $max;
+ push @ints, [$left, $right];