pst-crayon : dessiner le B

 pst-crayon

Pour calculer les images :

\documentclass{article}
\usepackage{pst-crayon}
% B en Times-Bold
\def\BTimesBold{0.0800713   0.0   1.6895   0.0   1.9923   0.0171457   2.26523   0.0673643   2.50493   0.148393   2.70841   0.258056   2.87221   0.39409   2.99319   0.554581   3.06812   0.737091   3.09388   0.939619   3.0763   1.10629   3.02452   1.26025   2.93992   1.40003   2.82408   1.52449   2.69083   1.62614   2.54218   1.70439   2.36071   1.76757   2.1292   1.82423   2.32981   1.88986   2.49805   1.96035   2.63548   2.03755   2.74409   2.12285   2.82538   2.21806   2.88135   2.32468   2.91355   2.44444   2.92399   2.57899   2.90258   2.76115   2.83896   2.92112   2.73417   3.0582   2.58909   3.17187   2.40458   3.26134   2.18168   3.32609   1.92128   3.36534   1.6244   3.37866   0.0800713   3.37866   0.0800713   3.25368   0.294175   3.22565   0.429165   3.16438   0.499488   3.05907   0.519767   2.89893   0.519767   0.479731   0.515763   0.392958   0.50236   0.322374   0.476772   0.265976   0.436737   0.221763   0.379468   0.187558   0.302617   0.161448   0.20366   0.141256   0.0800713   0.124981   0.0800713   0.0   1.31944   1.71422   1.46948   1.71422   1.65016   1.70169   1.80613   1.66418   1.93772   1.60116   2.04495   1.51256   2.12807   1.39785   2.18716   1.25686   2.22259   1.08923   2.23434   0.894709   2.19595   0.575208   2.08116   0.345351   1.89047   0.206358   1.6244   0.159794   1.54807   0.163798   1.48393   0.176505   1.43119   0.198263   1.38941   0.22977   1.3579   0.271546   1.33615   0.324289   1.32344   0.388433   1.31944   0.464761   1.31944   1.71422   1.31944   2.98387   1.32283   3.04602   1.33345   3.09806   1.35207   3.14045   1.3794   3.17387   1.41613   3.19885   1.46287   3.21591   1.52048   3.22574   1.58959   3.22896   1.81675   3.18797   1.97558   3.06264   2.0688   2.84923   2.09926   2.54418   2.09117   2.3648   2.06453   2.2185   2.01597   2.10222   1.94182   2.01292   1.83859   1.94747   1.70282   1.90291   1.53093   1.87619   1.31944   1.86427   1.31944   2.98387}
% on prend un point sur 2
\pagestyle{empty}
\begin{document}
\begin{center}
\psset{RotSequence=yxz}
\multido{\i=0+2}{50}{%
\begin{pspicture}(-3,-3)(6,6)
\psframe(-3,-3)(6,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 20 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-9 3 -2 8,ngrid=12 10,linewidth=0.01,linecolor=blue,RotY=90](0,0,0)
\psSolid[object=plan,definition=equation,args={[1 0 0 0] 90},name=P0,base=-4 4 -4 4,action=none]
\pstVerb{/tabC [\BTimesBold] {2 mulv} papply def /II \i\space 2 add def }%
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 0 II getinterval aload pop]
\psCrayonC[RotY=90,RotX=10,pencolor=blue,grid,h=10,r=0.5](0,tabC II 2 sub get,tabC II 1 sub get)
\end{pspicture}\newpage}
\multido{\i=0+2}{23}{%
\begin{pspicture}(-3,-3)(6,6)
\psframe(-3,-3)(6,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 20 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-9 3 -2 8,ngrid=12 10,linewidth=0.01,linecolor=blue,RotY=90](0,0,0)
\psSolid[object=plan,definition=equation,args={[1 0 0 0] 90},name=P0,base=-4 4 -4 4,action=none]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 0 100 getinterval aload pop]
\pstVerb{/tabC [\BTimesBold] {2 mulv} papply def /II \i\space 2 add def }%
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 100 II getinterval aload pop]
\psCrayonC[RotY=90,RotX=10,pencolor=blue,grid,h=10,r=0.5](0,tabC 100 II 2 sub add get,tabC 100 II 1 sub add get)
\end{pspicture}\newpage}
\multido{\i=0+2}{22}{%
\begin{pspicture}(-3,-3)(6,6)
\psframe(-3,-3)(6,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 20 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-9 3 -2 8,ngrid=12 10,linewidth=0.01,linecolor=blue,RotY=90](0,0,0)
\psSolid[object=plan,definition=equation,args={[1 0 0 0] 90},name=P0,base=-4 4 -4 4,action=none]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 0 100 getinterval aload pop]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 100 46 getinterval aload pop]
\pstVerb{/tabC [\BTimesBold] {2 mulv} papply def /II \i\space 2 add def }%
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 146 II getinterval aload pop]
\psCrayonC[RotY=90,RotX=10,pencolor=blue,grid,h=10,r=0.5](0,tabC 146 II 2 sub add get,tabC 146 II 1 sub add get)
\end{pspicture}\newpage}
\multido{\i=0+1}{3}{
\begin{pspicture}(-3,-3)(6,6)
\psframe(-3,-3)(6,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 20 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-9 3 -2 8,ngrid=12 10,linewidth=0.01,linecolor=blue,RotY=90](0,0,0)
\pstVerb{/tabC [\BTimesBold] {2 mulv} papply def}%
\psSolid[object=plan,definition=equation,args={[1 0 0 0] 90},name=P0,base=-4 4 -4 4,action=none]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 0 100 getinterval aload pop]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 100 46 getinterval aload pop]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 146 44 getinterval aload pop]
\end{pspicture}\newpage}
\multido{\i=0+1}{3}{
\begin{pspicture}(-3,-3)(6,6)
\psframe(-3,-3)(6,6)
\psset{lightsrc=viewpoint,viewpoint=100 20 20 rtp2xyz,Decran=60,solidmemory}
\psSolid[object=grille,base=-9 3 -2 8,ngrid=12 10,linewidth=0.01,linecolor=blue,RotY=90](0,0,0)
\pstVerb{/tabC [\BTimesBold] {2 mulv} papply def}%
\psSolid[object=plan,definition=equation,args={[1 0 0 0] 90},name=P0,base=-4 4 -4 4,action=none]
\psProjection[object=texte,PSfont=Times-Bold,% ZapfChancery, % Palatino-Italic, % ZapfDingbats, %
              fontsize=142.2637 2 mul,linecolor={[rgb]{1 1 0.5}},
              text=B,
              pos=ur,
              plan=P0](0.05,-0.1)%
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 0 100 getinterval aload pop]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 100 46 getinterval aload pop]
\psProjection[object=line,plan=P0,linewidth=0.05,linecolor=blue,args=tabC 146 44 getinterval aload pop]
\end{pspicture}\newpage}
\end{center}
\end{document}