Le wiki de Syracuse

**Ceci est une ancienne révision du document !** ----

===== Placer un texte sur une spirale ===== Pour placer un texte à un endroit précis d'une spirale, c'est relativement simple, comme dans l'exemple ci-dessous. Faire une commande à partir d'une liste de mots c'est une autre paire de manches, mais ça doit être possible : cela demande réflexion... {{ pstricks:ml20070927.png }} <code latex> \documentclass{article} \usepackage[latin1]{inputenc} \usepackage[T1]{fontenc} \usepackage[charter]{mathdesign} \usepackage{pst-plot} \makeatletter % D.G. addition - Jun. 9, 1998 - Polar plots using the \psplot macro % Code added according the way suggested by Ulrich Dirr <udirr@das-team.com> % For polar plots \newif\ifpolarplot \def\psset@polarplot#1{\@nameuse{polarplot#1}} \psset@polarplot{false} \def\psplot@i#1#2#3{% \pst@killglue \begingroup \use@par \@nameuse{beginplot@\psplotstyle}% % D.G. modification begin - Jun. 9, 1998 \ifpolarplot \addto@pscode{% \psplot@init /x #1 def /x1 #2 def /dx x1 x sub \psk@plotpoints div def /xy {% Adapted from \parametricplot@i #3 dup x cos mul exch x sin mul \pst@number\psxunit mul exch \pst@number\psyunit mul exch } def}% \else % D.G. modification end \addto@pscode{% \psplot@init /x #1 def /x1 #2 def /dx x1 x sub \psk@plotpoints div def /xy { x \pst@number\psxunit mul #3 \pst@number\psyunit mul } def}% % D.G. modification begin - Jun. 9, 1998 \fi % D.G. modification end \gdef\psplot@init{}% \@pstfalse \@nameuse{testqp@\psplotstyle}% \if@pst \psplot@ii \else \psplot@iii \fi \endgroup \ignorespaces} \makeatother \pagestyle{empty} \SpecialCoor \begin{document} \psset{plotpoints=360} \begin{center} \begin{pspicture}(-5,-5)(5,5) % 0<t<1440 en degrés % r=k*(t+1)^2 avec k=0.01 % t en degrés -> x en degrés -> angle = x*0.01745 en radians \newcommand\radius{0.01745 mul 1 add dup mul 0.01 mul } \psplot[polarplot=true]{0}{1440}{x \radius} \psline(7;60) \begingroup \psset{framesep=0pt} \rput*(!/x 420 def x cos x \radius mul x sin x \radius mul ){\color{red}\shortstack{SUITES\\ ARITHMÉTIQUES}} \rput*(!/x 780 def x cos x \radius mul x sin x \radius mul ){\color{red}\shortstack{SUITES\\ GÉOMÉTRIQUES}} \rput*(!/x 1140 def x cos x \radius mul x sin x \radius mul ){\color{red}\shortstack{VARIATIONS\\ D'UNE SUITE}} \endgroup \rput*(7;60){\psframebox{\color{red}{SUITES}}} \multido{\i=200+360,\I=400+360}{3}{% \psplot[polarplot=true,arrows=->,arrowsize=0.2]{\i}{\I}{x \radius}} \end{pspicture} \end{center} \end{document} </code> --- //Jean-Michel Sarlat, 2007/09/27 11:21//