mardi 7 juillet 2015

pst-crayon : dessin du a minuscule en Times-Bold


 Avec le package animate d'Alexander Grahn :
http://manuel.luque.perso.neuf.fr/pst-crayon/pst-crayon-v2/animate-a-pst-crayon.tex
http://manuel.luque.perso.neuf.fr/pst-crayon/pst-crayon-v2/animate-a-pst-crayon.pdf
Rappel : le package est ici :

Le listing pour créer les images en vue du Gif animé.

\documentclass{article}
\usepackage{pst-crayon}
% a minuscule en Times-Bold
\def\aminusculeTimesBold{2.36542   0.320129   2.31547   0.270185   2.29163   0.254404   2.26033   0.250068   2.21454   0.257612   2.18177   0.28059   2.16209   0.319522   2.15558   0.374929   2.15558   1.68042   2.13798   1.83181   2.08665   1.96664   2.00306   2.08379   1.88921   2.1822   1.74675   2.26067   1.57741   2.31808   1.38301   2.35337   1.16537   2.36542   0.962382   2.35389   0.779079   2.32033   0.617714   2.26622   0.480627   2.19287   0.3699   2.10165   0.288047   1.99404   0.237322   1.87135   0.219894   1.73522   0.225443   1.66074   0.241831   1.5951   0.268624   1.53856   0.305562   1.49157   0.352038   1.45437   0.407705   1.4274   0.472217   1.41093   0.545225   1.40538   0.617107   1.41084   0.682572   1.42671   0.740494   1.45229   0.790091   1.48662   0.830238   1.52885   0.860065   1.57828   0.878708   1.63403   0.885124   1.69533   0.864488   1.79904   0.795294   1.91037   0.748384   1.97289   0.735291   2.02032   0.759136   2.09359   0.825208   2.15229   0.92501   2.19131   1.05022   2.20553   1.24028   2.18029   1.37087   2.10174   1.44604   1.96491   1.47024   1.76539   1.47024   1.40017   1.09219   1.28008   0.816971   1.1821   0.615806   1.09435   0.460251   1.00513   0.312846   0.887639   0.208101   0.758963   0.145584   0.61702   0.124861   0.460251   0.165874   0.248594   0.28059   0.0806393   0.456262   -0.0301747   0.680144   -0.0700608   0.885124   -0.0505513   1.07892   0.0112722   1.27081   0.119832   1.47024   0.279896   1.52313   0.117664   1.60411   0.00927785   1.72074   -0.0512449   1.88054   -0.0700608   2.03202   -0.0543665   2.16989   -0.00442215   2.30299   0.0839342   2.44033   0.215038   2.36542   0.320129   1.46538   0.500137   1.36965   0.401115   1.28208   0.334436   1.19728   0.296891   1.11022   0.285099   1.05611   0.291255   1.00695   0.309291   0.963509   0.338338   0.926398   0.37753   0.89631   0.426174   0.873939   0.483315   0.860065   0.54826   0.855296   0.620142   0.894315   0.822174   1.01025   0.992036   1.20118   1.12722   1.46538   1.22537   1.46538   0.500137}
% 97 points
% on prend un point sur 2
\pagestyle{empty}
\begin{document}
\begin{center}
\psset{RotSequence=yxz}
\multido{\i=0+4}{40}{%
\begin{pspicture}(-6,-3)(7,6)
\psframe(-6,-3)(7,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 50 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-5 3 -3 7,ngrid=8 10,linewidth=0.01,linecolor=blue](0,0,0)
\psSolid[object=plan,definition=equation,args={[0 0 1 0] 90},name=P0,base=-4 4 -4 6,action=none]
\pstVerb{/tabC [\aminusculeTimesBold] {2 mulv} papply def /II \i\space 2 add def }%
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=red,args=tabC 0 II getinterval aload pop]
\psCrayonH[RotY=30,RotX=10,pencolor=red,grid,h=20,r=0.5](tabC II 1 sub get neg,tabC II 2 sub get,0)
\end{pspicture}\newpage}
\multido{\i=0+2}{18}{%
\begin{pspicture}(-6,-3)(7,6)
\psframe(-6,-3)(7,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 50 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-5 3 -3 7,ngrid=8 10,linewidth=0.01,linecolor=blue](0,0,0)
\psSolid[object=plan,definition=equation,args={[0 0 1 0] 90},name=P0,base=-4 4 -4 4,action=none]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=red,args=tabC 0 158 getinterval aload pop]
\pstVerb{/tabC [\aminusculeTimesBold] {2 mulv} papply def /II \i\space 2 add def }%
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=red,args=tabC 158 II getinterval aload pop]
\psCrayonH[RotY=30,RotX=10,pencolor=red,grid,h=20,r=0.5](tabC 158 II 1 sub add get neg,tabC 158 II 2 sub add get,0)
\end{pspicture}\newpage}
\multido{\i=0+1}{5}{
\begin{pspicture}(-6,-3)(7,6)
\psframe(-6,-3)(7,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 50 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-5 3 -3 7,ngrid=8 10,linewidth=0.01,linecolor=blue](0,0,0)
\psSolid[object=plan,definition=equation,args={[0 0 1 0] 90},name=P0,base=-4 4 -4 4,action=none]
\psProjection[object=texte,PSfont=Times-Bold,% ZapfChancery, % Palatino-Italic,
              fontsize=142.2637 2 mul,linecolor=red,
              text=a,
              pos=ur,
              plan=P0](0.05,-0.18)%
\end{pspicture}\newpage}
\end{center}
\end{document}

Aucun commentaire:

Enregistrer un commentaire