L'animation a été réalisée avec le package pst-crayon. La dernière version du package est ici :
http://pstricks.blogspot.fr/2015/08/pst-crayon-version-3.html
Voici les liens des versions précédentes :
http://pstricks.blogspot.fr/2015/08/crayon-bicolore.html
http://pstricks.blogspot.fr/2015/08/pst-crayon-une-suggestion-dherbert-voss.html
http://pstricks.blogspot.fr/2015/08/pst-crayon-dessin-de-bart-simpson.html
http://pstricks.blogspot.fr/2015/07/obtenir-le-chemin-dun-caracter-dun-mot.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-le-b-chancery.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-dessiner-le-b.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-dessiner-un-avion.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-dessin-du-minuscule-en-times.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-dessiner-un-a.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-dessiner-lesperluette.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-aiguiser-des-crayons-de_4.html
http://pstricks.blogspot.fr/2015/07/pst-crayon-aiguiser-des-crayons-de.html
Pour créer les fichiers des chemins des années 2015 et 2016 (LaTeX->DVIPS->GS)
\documentclass{article}
\usepackage{pst-crayon}
\begin{document}
Les fichiers des chemins de 2015 et 2016
% générer les fichiers des chemins (2015 puis 2016)
\psCharPath[text=2015,fontsize=150,setflat=2,PSfont=NewCenturySchlbk-Roman]
\psCharPath[text=2016,fontsize=150,setflat=2,PSfont=NewCenturySchlbk-Roman]
\end{document}
Le code pour créer un fichier pdf contenant toutes les images pour l'animation :
\documentclass{article}
\usepackage[paperwidth=12cm,paperheight=8.3cm,hmargin={0cm,0cm},vmargin={0cm,0cm},dvips]{geometry}
\usepackage{pst-crayon}
\pagestyle{empty}
\begin{document}
\psset{RotSequence=yxz}
% générer les fichiers des chemins (2015 puis 2016)
%\begin{center}
%\psCharPath[text=2016,fontsize=150,setflat=2,PSfont=NewCenturySchlbk-Roman]
%\end{center}
\def\DATASF{%2015
/tabF0 [(2015-0-68.dat) run] def
/tabF1 [(2015-1-33.dat) run] def
/tabF2 [(2015-2-29.dat) run] def
/tabF3 [(2015-3-37.dat) run] def
/tabF4 [(2015-4-91.dat) run] def
}%
\def\DATASS{%2016
/tabS0 [(2016-0-68.dat) run] def
/tabS1 [(2016-1-33.dat) run] def
/tabS2 [(2016-2-29.dat) run] def
/tabS3 [(2016-3-37.dat) run] def
/tabS4 [(2016-4-61.dat) run] def
/tabS5 [(2016-5-21.dat) run] def
}%
\begin{center}
\begin{pspicture}(-3.5,-5.8)(8.5,2.5)
\psframe[fillstyle=solid,fillcolor={[rgb]{0.47 0.71 1}}](-3.5,-5.8)(8.5,2.5)
\psset{lightsrc=viewpoint,viewpoint=100 20 30 rtp2xyz,Decran=50,solidmemory}
\psSolid[object=grille,base=-4 1 -1 13,ngrid=5 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 6,action=none]
\psProjection[object=texte,PSfont=NewCenturySchlbk-Roman,
fontsize=150,linecolor=yellow!50,
text=2015,
pos=br,
plan=P0](0.15,0)%
\pstVerb{\DATASF}%
\psset{object=line,plan=P0,linecolor={[rgb]{0 0.5 0}},linewidth=0.05}
\multido{\iB=0+1}{5}{\psProjection[args=tabF\iB\space aload pop]}%
\end{pspicture}\newpage
\begin{pspicture}(-3.5,-5.8)(8.5,2.5)
\psframe[fillstyle=solid,fillcolor={[rgb]{0.47 0.71 1}}](-3.5,-5.8)(8.5,2.5)
\psset{lightsrc=viewpoint,viewpoint=100 20 30 rtp2xyz,Decran=50,solidmemory}
\psSolid[object=grille,base=-4 1 -1 13,ngrid=5 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 6,action=none]
\psProjection[object=texte,PSfont=NewCenturySchlbk-Roman,
fontsize=150,linecolor=yellow!50,
text=201,
pos=br,
plan=P0](0.15,0)%
\pstVerb{\DATASF}%
\psset{object=line,plan=P0,linecolor={[rgb]{0 0.5 0}},linewidth=0.05}
\multido{\iB=0+1}{5}{\psProjection[args=tabF\iB\space aload pop]}%
\end{pspicture}
\newpage
\multido{\i=182+-2}{90}{% défaire le 5
\begin{pspicture}(-3.5,-5.8)(8.5,2.5)
\psframe[fillstyle=solid,fillcolor={[rgb]{0.47 0.71 1}}](-3.5,-5.8)(8.5,2.5)
\psset{lightsrc=viewpoint,viewpoint=100 20 30 rtp2xyz,Decran=50,solidmemory}
\psSolid[object=grille,base=-4 1 -1 13,ngrid=5 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 6,action=none]
\psProjection[object=texte,PSfont=NewCenturySchlbk-Roman,
fontsize=150,linecolor=yellow!50,
text=201,
pos=br,
plan=P0](0.15,0)%
\pstVerb{\DATASF /II \i\space 2 sub def }%
\psset{object=line,plan=P0,linecolor={[rgb]{0 0.5 0}},linewidth=0.05}
%%
\multido{\iB=0+1}{4}{\psProjection[args=tabF\iB\space aload pop]}
% \fi
\psProjection[args=tabF4\space 0 II getinterval aload pop]
\psCrayonC[RotY=90,RotX=10,pencolor={[rgb]{0.95 0.95 0.95}},grid,h=10,r=0.5,phi=10]%
(0,tabF4\space II 2 sub get,tabF4\space II 1 sub get)
\end{pspicture}\newpage}
%
\newpage
\multido{\i=0+2}{61}{% faire le 6
\begin{pspicture}(-3.5,-5.8)(8.5,2.5)
\psframe[fillstyle=solid,fillcolor={[rgb]{0.47 0.71 1}}](-3.5,-5.8)(8.5,2.5)
\psset{lightsrc=viewpoint,viewpoint=100 20 30 rtp2xyz,Decran=50,solidmemory}
\psSolid[object=grille,base=-4 1 -1 13,ngrid=5 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 6,action=none]
\psProjection[object=texte,PSfont=NewCenturySchlbk-Roman,
fontsize=150,linecolor=yellow!50,
text=201,
pos=br,
plan=P0](0.15,0)%
\pstVerb{\DATASS /II \i\space 2 add def }%
\psset{object=line,plan=P0,linecolor={[rgb]{0 0.5 0}},linewidth=0.05}
%%
\multido{\iB=0+1}{4}{\psProjection[args=tabS\iB\space aload pop]}
% \fi
\psProjection[args=tabS4 0 II getinterval aload pop]
\psCrayonC[RotY=90,RotX=10,pencolor={[rgb]{0 0.5 0}},grid,h=15,r=0.5]%
(0,tabS4\space II 2 sub get,tabS4\space II 1 sub get)
\end{pspicture}\newpage}
%
\multido{\i=0+2}{21}{% faire l'intérieur du 6
\begin{pspicture}(-3.5,-5.8)(8.5,2.5)
\psframe[fillstyle=solid,fillcolor={[rgb]{0.47 0.71 1}}](-3.5,-5.8)(8.5,2.5)
\psset{lightsrc=viewpoint,viewpoint=100 20 30 rtp2xyz,Decran=50,solidmemory}
\psSolid[object=grille,base=-4 1 -1 13,ngrid=5 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 6,action=none]
\psProjection[object=texte,PSfont=NewCenturySchlbk-Roman,
fontsize=150,linecolor=yellow!50,
text=201,
pos=br,
plan=P0](0.15,0)%
\pstVerb{\DATASS /II \i\space 2 add def }%
\psset{object=line,plan=P0,linecolor={[rgb]{0 0.5 0}},linewidth=0.05}
%%
\multido{\iB=0+1}{5}{\psProjection[args=tabS\iB\space aload pop]}
% \fi
\psProjection[args=tabS5 0 II getinterval aload pop]
\psCrayonC[RotY=90,RotX=10,pencolor={[rgb]{0 0.5 0}},grid,h=15,r=0.5]%
(0,tabS5\space II 2 sub get,tabS5\space II 1 sub get)
\end{pspicture}\newpage}
%
\begin{pspicture}(-3.5,-5.8)(8.5,2.5)
\psframe[fillstyle=solid,fillcolor={[rgb]{0.47 0.71 1}}](-3.5,-5.8)(8.5,2.5)
\psset{lightsrc=viewpoint,viewpoint=100 20 30 rtp2xyz,Decran=50,solidmemory}
\psSolid[object=grille,base=-4 1 -1 13,ngrid=5 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 6,action=none]
\psProjection[object=texte,PSfont=NewCenturySchlbk-Roman,
fontsize=150,linecolor=yellow!50,
text=2016,
pos=br,
plan=P0](0.15,0)%
\pstVerb{\DATASS}%
\psset{object=line,plan=P0,linecolor={[rgb]{0 0.5 0}},linewidth=0.05}
\multido{\iB=0+1}{6}{\psProjection[args=tabS\iB\space aload pop]}%
\end{pspicture}
\end{center}
\end{document}
Aucun commentaire:
Enregistrer un commentaire