$aoa[$x][$y] = 'x' if ( (($x-$circle_x)**2 + ($y-$circle_y)**2 <= ($circle_radius**2) ) # and $x >=0 and $y >=0 ) and $x >=0 and $y >=0 and $x <= $max )