lundi 6 juillet 2015

pst-crayon : dessiner l'esperluette

C'est une application du package pst-crayon, voir :
http://pstricks.blogspot.fr/2015/07/pst-crayon-aiguiser-des-crayons-de_4.html
 le code permettant d'obtenir les images :

\documentclass{article}
\usepackage{pst-crayon}
% l'esperluette en Palatino - italic
\def\esp{  2.44033   2.74069   2.5704   3.33552   2.33663   3.43194   2.08032   3.46072   1.88297   3.44442   1.70019   3.39066   1.5331   3.30976   1.37876   3.21204   1.24011   3.10062   1.12019   2.97862   1.02169   2.84943   0.947728   2.71616   0.901252   2.58202   0.885124   2.45039   0.907408   2.29553   0.977643   2.16469   1.10034   2.05162   1.28017   1.95026   1.01883   1.85436   0.825035   1.76791   0.672514   1.67756   0.535167   1.57047   0.405884   1.42714   0.311892   1.26092   0.254491   1.07302   0.235154   0.865008   0.256311   0.655953   0.318568   0.468835   0.419671   0.305649   0.557625   0.167955   0.730175   0.0577481   0.935415   -0.023238   1.17109   -0.0731823   1.43521   -0.0901772   1.65753   -0.077431   1.88167   -0.0407532   2.09636   0.0175152   2.2905   0.0950329   2.48195   0.197003   2.65381   0.310591   2.80417   0.433544   2.93128   0.563781   3.03334   0.699134   3.10843   0.837608   3.15482   0.976862   3.17077   1.11508   3.14476   1.26231   3.07565   1.39272   2.97654   1.4894   2.8607   1.53544   2.77572   1.54515   3.2006   1.6055   3.46567   1.67825   3.6638   1.8097   3.78788   1.99274   3.8308   2.22044   3.81684   2.35675   3.77201   2.46357   3.69146   2.54889   3.57067   2.62069   3.46558   2.54057   3.56061   2.48438   3.61871   2.42924   3.64767   2.36464   3.65565   2.28044   3.62148   2.13555   3.51752   2.0217   3.34133   1.93586   3.09065   1.87534   2.53537   1.78551   2.3055   1.74137   2.14414   1.69169   2.02205   1.62501   1.91037   1.53024   1.87048   1.0353   1.98529   1.02525   2.04416   1.23144   2.11795   1.35847   2.22174   1.42263   2.37062   1.44041   2.5547   1.40807   2.69673   1.31719   2.78812   1.17655   2.82047   0.995071   2.79601   0.82781   2.72647   0.67026   2.61713   0.526063   2.47354   0.399381   2.30117   0.293943   2.10538   0.213737   1.89164   0.162839   1.6655   0.144977   1.44804   0.160325   1.25147   0.20498   1.07814   0.276775   0.930733   0.373715   0.811682   0.493634   0.723499   0.634362   0.668699   0.793907   0.64997   0.970099   0.668959   1.15704   0.724193   1.3263   0.812982   1.4757   0.932554   1.6029   1.08031   1.70565   1.25346   1.78187   1.44943   1.82921   1.6655   1.84551   1.84551   1.84551   1.84551   1.85522   1.84993   1.87725   1.86233   1.91158   1.88132   1.9552   1.90551   2.0054   1.92728   2.05422   1.9454   2.09558   1.87534   2.09558   1.61218   2.13096   1.41388   2.23301   1.28867   2.39507   1.24514   2.61063   1.25763   2.73393   1.29361   2.84778   1.35084   2.94984   1.42705   3.03811   1.51983   3.11042   1.62701   3.1647   1.74623   3.19878   1.87534   3.21066   1.98433   3.20181   2.09107   3.17372   2.20241   3.12412   2.32553   3.05077   2.32553   2.74069   2.44033   2.74069}
\pagestyle{empty}
\begin{document}

\begin{center}
\multido{\i=0+4}{68}{% 135 = nombre de points du caractère : on prend 1 point sur 2
\begin{pspicture}(-3,-3)(5,8)
\psframe(-3,-3)(5,8)
\psset{lightsrc=viewpoint,viewpoint=100 20 50 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-5 3 -3 5,ngrid=8 8](0,0,0)
\psSolid[object=plan,definition=equation,args={[0 0 1 0] 90},name=P0,base=-4 4 -4 4,action=none]
\pstVerb{/tabC [\esp] def /dimC tabC length def /II \i\space 2 add def }%
\psProjection[object=line,plan=P0,linecolor=blue,args=tabC 0 II getinterval aload pop]
\psCrayonH[RotX=20,pencolor=blue,grid,unit=0.5](tabC II 1 sub get neg 2 mul,tabC II 2 sub get 2 mul,0)
\end{pspicture}\newpage}
\begin{pspicture}(-3,-3)(5,8)
\psframe(-3,-3)(5,8)
\psset{lightsrc=viewpoint,viewpoint=100 20 50 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-5 3 -3 5,ngrid=8 8](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=Palatino-Italic,
              fontsize=142.2637,linecolor=blue,
              text=&,
              pos=ur,
              plan=P0](0.15,-0.2)%
\end{pspicture}
\end{center}
\end{document}

Aucun commentaire:

Enregistrer un commentaire