%rosace_de_carre%

/ccarre {
    newpath
    moveto
    0 200 rlineto
    200 0 rlineto
    0 -200 rlineto
    closepath
    stroke
} def

/ccircle {
    0 360 arc
    stroke
} def

300 400 translate

5 {
    0 0 200 ccircle
    6 {
        0 0 ccarre
        060 rotate
    } repeat
    0.5 0.5 scale
    45 rotate
} repeat