[Résolu][Animate] Relier un point qui se déplace

Tout ce qui concerne l'utilisation ou l'installation de LaTeX.

Modérateur: gdm_tex

Règles du forum
Merci d'éviter le style SMS dans vos messages et de penser à utiliser la fonction Recherche avant de poster un message. Pour joindre des fichiers à vos messages, consulter ce sujet.
> Penser à utiliser les balises Code pour poster du code.

[Résolu][Animate] Relier un point qui se déplace

Messagepar Arathorn » Mercredi 22 Mai 2019, 17:03

Bonjour,

Comment relier avec \pscurve les différentes positions du point rouge sur le fond blanc pour obtenir la trajectoire par rapport à l'horloge ?
Code: Tout sélectionner
\documentclass[border=15pt]{standalone}
\usepackage{pstricks-add,animate}

\newcommand{\Trotteuse}{%
\pscustom[fillstyle=solid,fillcolor=gray,opacity=0.5,linestyle=none]{%
\psline(-0.5,-0.5)(0.5,-0.5)(0.5,7.5)(1,7.5)(0,8.5)(-1,7.5)(-1,7.5)(-0.5,7.5)(-0.5,0) }
}
\begin{document}

\begin{animateinline}[controls]{1}
   
   \multiframe{41}{iAngle=90+-6,iRot=0+-6,rDist=0+.2}{%
      
      \begin{pspicture}(-9.5,-9.5)(9.5,9.5)
   \pscircle[linewidth=12pt](0,0){9cm}
   \multido{\ia=60+-30,\in=1+1}{12}{\psline[linewidth=4pt](8;\ia)(9;\ia)\uput{7}[\ia](0,0){\huge \in}}
   \multido{\ia=0+6}{60}{\psline[linewidth=1pt](8.3;\ia)(9;\ia)}
   
   \psrotate(0,0){\iRot}{\Trotteuse}      

   \rput(\rDist;\iAngle){\pscircle[fillstyle=solid,fillcolor=red,linestyle=none](0,0){0.25cm}}

\psline[linewidth=2pt,linestyle=dashed](0;0)(\rDist;\iAngle)
      \end{pspicture}
    }
\end{animateinline}
   
\end{document}


Merci
Dernière édition par Arathorn le Mercredi 29 Mai 2019, 16:41, édité 1 fois.
Arathorn
Kilo-utilisateur
 
Messages: 175
Inscription: Mercredi 24 Avril 2013, 18:47
Statut actuel: Actif et salarié | Enseignant

Publicité

Re: Animate : relier un point qui se déplace

Messagepar Arathorn » Mercredi 29 Mai 2019, 16:41

J'ai réussi au départ avec une courbe paramétrique puis je suis tombé sur la spirale d'Archimède que j'ai adapté à mon dessin.
Avec mes recherches, j'ai découvert la commande PtoC car je n'arrivais pas à écrire les coordonnées polaires avec l'écriture de postscript.
Code: Tout sélectionner
\documentclass[border=15pt]{standalone}
\usepackage{pstricks-add,animate}

\newcommand{\Trotteuse}{%
\pscustom[fillstyle=solid,fillcolor=gray,opacity=0.5,linestyle=none]{%
\psline(-0.5,-0.5)(0.5,-0.5)(0.5,7.5)(1,7.5)(0,8.5)(-1,7.5)(-1,7.5)(-0.5,7.5)(-0.5,0) }
}

\newcommand{\Horloge}{%
\pscircle[linewidth=12pt](0,0){9cm}
\multido{\ia=60+-30,\in=1+1}{12}{\psline[linewidth=4pt](8;\ia)(9;\ia)\uput{7}[\ia](0,0){\huge \in}}
\multido{\ia=0+6}{60}{\psline[linewidth=1pt](8.3;\ia)(9;\ia)}
   
\psrotate(0,0){\iRot}{\Trotteuse}   
   
\pscircle[fillstyle=solid,fillcolor=red,linestyle=none](! \rDist \space \iAngle\space PtoC ){0.25cm}%
   
\psline[linewidth=2pt,linecolor=green!60!black!,linestyle=dashed](! \rDist\space \iAngle\space PtoC)%
}

\begin{document}

\begin{animateinline}[controls,poster=first]{1}
\multiframe{41}{iRot=0+-6,rDist=0+0.2,iAngle=90+-6,Rangle=1.570796327+-0.104719755}{   
\begin{pspicture}[showgrid=](-9.5,-9.5)(9.5,9.5)
\Horloge
%courbe paramétrique : décalarer la variable iTemps=0+1 dans multiframe
%\parametricplot[algebraic,linewidth=2pt,linecolor=green!60!black!]{0}{\iTemps}{0.2*t*sin(\psPi/30*t),0.2*t*cos(\psPi/30*t)}
      
%spirale d'Archimède
\psplot[algebraic,polarplot,linecolor=green!60!black,linewidth=2pt]{1.570796327}{\Rangle}{3-1.909859319*x}
\end{pspicture}
}
\end{animateinline}   

\end{document}
Arathorn
Kilo-utilisateur
 
Messages: 175
Inscription: Mercredi 24 Avril 2013, 18:47
Statut actuel: Actif et salarié | Enseignant


Retourner vers LaTeX

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 17 invités