void MonaCircle(double x, double y, double radius)
{
  for (int i = 0; i < 360; i ++) {
    double r = i * PI2 / 360;
    PSet(x + cos(i) * radius, y + sin(i) * radius);
  }
}