%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