Select Code to Download

sub newpoint {
  return [rand($maxx), rand($maxy)]
...
      radius => rand($maxradius),
  }
}