Bonnes Vacances !
Le code permettant de produire les 36 images :
\documentclass{article}
\usepackage{pst-nltr}
\pagestyle{empty}
\begin{document}
\begin{center}
\multido{\i=-180+10}{36}{%
\begin{pspicture}(-5,-5)(5,5)
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0pt](-5,-5)(5,5)
\psframe*[linecolor=cyan!5](-5,-5)(5,5)
\psframe(-5,-5)(5,5)
\def\SIZEFONT{0.75 }%
\pstVerb{
/SIZEFONT \SIZEFONT def
/arccos {
dup
dup mul neg 1 add sqrt
exch
atan
} def
/Hb \i\space cos 0.75 mul def
/Hs \i\space cos 0.1 mul def
/rotB \i\space cos 30 mul def
/FC {
/y exch def
/x exch def
% wx est la largeur du texte
% wx/2 est le rayon de la bulle
% je prends 1.99 au lieu de 2
% pour éviter une erreur dans le calcul de arccos
/xM wx 1.992 div def
/theta x xM div arccos def
x
y theta sin xM mul mul 10 SIZEFONT mul div
} def}%
\psset{transform=FC}
\rput(! 0 Hb){\pscircle*[linecolor=yellow!20](0,0){!SIZEFONT 4.2 mul}
\psTransformText[fillstyle=solid,fillcolor={[rgb]{.5 1 1}},linecolor=blue,fontscale=\SIZEFONT,pos=cc,PSfont=Helvetica,rotation=rotB](0,0){DANS LA BULLE}%
\pscircle(0,0){!SIZEFONT 4.2 mul}}
\pscustom[fillstyle=solid,fillcolor=green!20,opacity=0.5]{%
\psline(-5,-5)(5,-5)(5,-2)
\psplot[algebraic,plotpoints=1080]{5}{-5}{Hs*sin(5*x)}
\closepath
}%
\end{pspicture}\newpage}
\end{center}
\end{document}
Aucun commentaire:
Enregistrer un commentaire