%rosace% /ccircle { 0 360 arc stroke } def /cpartcircle { 120 240 arc stroke } def 300 400 translate 0 0 200 ccircle 6 { 200 0 200 cpartcircle 60 rotate } repeat