%!PS EPSF %%Title: Text along spiral %%Creator: jvr %%BoundingBox: -100 -100 90 60 %%EndProlog /Courier findfont 20 scalefont setfont gsave %150 700 translate -100 0 moveto 50 rotate {-10 rotate 3 0 rmoveto .98 .98 scale} (Olga Grineva my charming St Peterburg hostess)kshow stroke grestore 500 100 translate % /l 36 def /r {l 22.5 sin mul} def /m {l 22.5 cos mul} def 8{r .5 mul 0 moveto l 0 lineto currentpoint %begin circular arc 22.5 rotate m 0%center r %radius -90 90 arc 22.5 rotate }repeat %inner circle /rin {r .5 mul} def rin 0 moveto 0 0 rin 0 360 arc %outer circle /rout {r m add} def rout 0 moveto 0 0 rout 0 360 arc %extra circles /rin {r .25 mul} def 22.5 rotate 8{m rin add 0 moveto m 0 rin 0 360 arc 45 rotate }repeat stroke showpage showpage