blob: 81a3c45d1c52efab4dbe94ffc18ae256c706ee1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
%!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
|