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
|
\ifx\pspicture\undefined
\begingroup
\def\mycircle#1#2#3#4{%
\qbezier[#4](0,#1)(#3,#1)(#2,#2)\qbezier[#4](#2,#2)(#1,#3)(#1,0)
\qbezier[#4](0,-#1)(#3,-#1)(#2,-#2)\qbezier[#4](#2,-#2)(#1,-#3)(#1,0)}
\def\Mycircle#1#2#3#4{\mycircle{#1}{#2}{#3}{#4}
\qbezier[#4](0,#1)(-#3,#1)(-#2,#2)\qbezier[#4](-#2,#2)(-#1,#3)(-#1,0)
\qbezier[#4](0,-#1)(-#3,-#1)(-#2,-#2)\qbezier[#4](-#2,-#2)(-#1,-#3)(-#1,0)}
\begin{picture}(61,103)(0,-15)
\put(20,72){\Mycircle{12}{8.485}{4.969}{30}}
\put(20,46){\Mycircle{14}{9.898}{5.797}{32}}
\put(20,16){\Mycircle{16}{11.313}{6.625}{35}}
\put(54,0){
\qbezier[120](0,-8)(-24,-8)(-29.5,0.5)
\qbezier[160](0,-14)(-32,-14)(-38.5,0.5)}
\put(54,-11){\mycircle{3}{2.121}{1.242}{6}}
\put(32,72){\line(0,1){16}}\put(8,72){\line(0,1){16}}
\put(32,88){\qbezier[20](0,0)(-2.877,-2.877)(-5.754,-5.754)}
\put(8,88){\qbezier[20](0,0)(2.877,-2.877)(5.754,-5.754)}
\end{picture}%
\endgroup
\else
\begin{pspicture}(0,0)(61,103)
\psset{linewidth=.125,linestyle=none,fillstyle=solid,fillcolor=black}
\psellipse(20,85)(14,14)
\psellipse(20,61)(17,16)
\psellipse(20,32)(22.8,20)
\pspolygon(6,102.25)(6,85)(15,92)
\pspolygon(34,102.25)(34,85)(25,92)
\psbezier[linewidth=5.125,linestyle=solid,linecolor=black,fillstyle=none](16,19.5)(16,7.35)(25,2.5)(56,2.5)
\psbezier[linewidth=5.125,linestyle=solid,linecolor=black,fillstyle=none](20,19.5)(20,7.35)(25,2.5)(56,2.5)
\psellipse(56,2.5)(5,2.5)
\end{pspicture}%
\fi
\endinput
|
