drawCircle[x_, y_, r_] :=
     Graphics[Circle[{x, y}, r]];
     If[r > 10, drawCircle[x, y, r/2], Break];