dimanche 4 août 2013

Variations typographiques : Dans la Bulle


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