%!

/S 72 def
S dup scale
1 S div setlinewidth

4 5 translate

/PI 3.14159265358979 def



newpath
1 0 moveto
4 {
1 PI 2 div 3 div 
PI 2 div 3 div 1 
0 1 curveto
90 rotate
} repeat
stroke