carre_tournant.ps
325 Bytes
%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