mardi 24 novembre 2015

2015->2016



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