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
|
% arara: indent: {overwrite: true, silent: on}
\documentclass[pstricks]{standalone}
\usepackage{pstricks,multido}
\def\Bottle#1{{\pscustom[linewidth=2pt]{%
\rotate{#1}
\psline(-1,3.5)(-1,4)(1,4)(1,3.5)
\pscurve(3,2)(1,0)\psline(-1,0)
\pscurve(-3,2)(-1,3.5)}}}
\def\BottleWithWater(#1)#2{%
\rput[c]{#2}(#1){%
\rput{*0}(0,0){%
\psclip{\Bottle{#2}}
\psframe*[linecolor=gray](-6,-2)(6,2)
\endpsclip}\rput{*0}(0,0){\Bottle{#2}}}}
\begin{document}
\multido{\iA=-45+5}{19}{%
\begin{pspicture}(-2.5,-0.5)(6,5.5)
\BottleWithWater(1.5,1){\iA}
\end{pspicture}
}
\end{document}
|