Pathologically Eclectic Rubbish Lister PerlMonks

### Re: circular area in a coordinates grid (AoA)

by hippo (Chancellor)
 on Mar 23, 2019 at 17:47 UTC ( #1231601=note: print w/replies, xml ) Need Help??

in reply to circular area in a coordinates grid (AoA)

Just for fun, here's a 2-step method that fills the inner square first and then conditionally computes a quadrant outside that but inside the outer square (and copies this to the other quadrants as it goes along). The inner square is the largest square that fits entirely inside the circle whereas the outer square is the smallest square that entirely encompasses the circle. It's not very Perlish and it doesn't do bounds checking which is why you can see part of the circle on the opposite side if you display the results.

```sub illuminate{
my \$centre_row = shift;
my \$centre_col = shift;
my \$insq       = int (\$radius / sqrt (2));
my @ans;

# inner square
for my \$i (\$centre_row - \$insq .. \$centre_row + \$insq) {
for my \$j (\$centre_col - \$insq .. \$centre_col + \$insq) {
push @ans, [\$i, \$j];
}
}

# outer square
for my \$i (0 .. \$radius) {
for my \$j (0 .. \$radius) {
next if \$i < \$insq and \$j < \$insq;
if (\$i * \$i + \$j * \$j < \$r2) {
push @ans,
[\$centre_row + \$i, \$centre_col + \$j],
[\$centre_row - \$i, \$centre_col + \$j],
[\$centre_row + \$i, \$centre_col - \$j],
[\$centre_row - \$i, \$centre_col - \$j];
}
}
}
return @ans;
}

(I changed the spelling of your variables since as a native speaker of British English it is almost impossible for me to type "center" consistently.)

Create A New User
Node Status?
node history
Node Type: note [id://1231601]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2020-08-09 14:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Which rocket would you take to Mars?

Results (54 votes). Check out past polls.

Notices?