%!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
