/doACircle
{ 0 0 54 0 360 arc stroke} def           % kör
/doAnEllipse                                       % eljárás, amely skálázással ellipszist csinál a körb?l
{ 1 .75 scale
 doACircle
 stroke} def
300 500 translate
doACircle
4 {0 -72 translate                              % 4-szer tolja el a skálázott kört
 doAnEllipse} repeat
showpage