diff options
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-spirograph/pst-spirograph-doc.tex')
-rw-r--r-- | Master/texmf-dist/doc/generic/pst-spirograph/pst-spirograph-doc.tex | 50 |
1 files changed, 40 insertions, 10 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-spirograph/pst-spirograph-doc.tex b/Master/texmf-dist/doc/generic/pst-spirograph/pst-spirograph-doc.tex index b61131c97ae..9af23c3350b 100644 --- a/Master/texmf-dist/doc/generic/pst-spirograph/pst-spirograph-doc.tex +++ b/Master/texmf-dist/doc/generic/pst-spirograph/pst-spirograph-doc.tex @@ -63,7 +63,8 @@ The wheel can also turn off a first fixed gear, it is thus possible to draw epic \begin{BDef} -\Lcs{psSpirograph}\OptArgs\Largr{\CAny} +\Lcs{psSpirograph}\OptArgs\Largr{\CAny}\\ +\Lcs{psSpirographB}\OptArgs\Largr{\CAny} \end{BDef} @@ -125,15 +126,18 @@ which can take every possible value. \begin{LTXexample}[pos=t] \psset{unit=0.75} -\begin{pspicture}[showgrid=top,opacity=0.5](-7,-7)(7,7) -\psframe*[linecolor=yellow!30](-7,-7)(7,7) +\begin{pspicture}[showgrid=top,opacity=0.5](-11,-11)(11,11) +\psframe*[linecolor=yellow!30](-11,-11)(11,11) \psset{thetamax=720,Z1=120,Z2=48,ap=10,linewidth=0.025,fillstyle=solid} +\psSpirograph[inner=false,m=0.1,polarangle=200,holenumber=0,linecolor=blue,curvecolor=blue] \psSpirograph[m=0.1,polarangle=200,holenumber=0,linecolor=red] -\psSpirograph[m=0.05,polarangle=340,holenumber=3,curvecolor=blue,linecolor=blue] -\psSpirograph[m=0.075,polarangle=90,holenumber=6,curvecolor=green,linecolor=green] \end{pspicture} \end{LTXexample} + + + + \subsection{Pencil position} \noindent\begin{tabularx}{\linewidth}{@{} XX @{}} @@ -267,15 +271,15 @@ examples use a bigger angle step than useful for a single animation. palindrome,controls, % autoplay ]{5} -\multiframe{100}{iA=0+8}{% +\multiframe{80}{iA=0+10}{% \psSpirograph[thetamax=\iA,Z1=59,Z2=24,m=0.1,ap=10,curvewidth=1.1pt, linewidth=0.025,fillstyle=solid,polarangle=\iA,holenumber=5,opacity=0.5](0,0)} \end{animateinline} \end{LTXexample} +\iffalse \psset{linewidth=0.1pt} - \begin{LTXexample}[pos=t] \psset{unit=0.3cm} \begin{animateinline}[ @@ -289,7 +293,6 @@ examples use a bigger angle step than useful for a single animation. \end{LTXexample} -\iffalse \begin{LTXexample}[pos=t] \psset{unit=0.5cm} \begin{animateinline}[ @@ -313,7 +316,7 @@ examples use a bigger angle step than useful for a single animation. \psgrid[style=gridstyleA,unit=1.4](-10,-10)(10,10)% \ifnum\i=181 \psset{gearwheels=false}\fi \psSpirograph[Z1=50,Z2=20,m=0.2,linewidth=0.025,fillstyle=solid,opacity=0.75,polarangle=\i,circles,TypeA=false, - thetamax=\i,curvecolor=red,curvewidth=2pt,HolePos=1.05]} + thetamax=\i,curvecolor=red,curvewidth=2pt,HolePos=1.5]} \end{animateinline} \end{LTXexample} @@ -330,7 +333,6 @@ examples use a bigger angle step than useful for a single animation. linecolor=blue,fillstyle=solid,opacity=0.75,polarangle=\i,circles=false,thetamax=\i,curvecolor=red,curvewidth=2pt,HolePos=1.7]} \end{animateinline} \end{LTXexample} -\fi @@ -350,6 +352,34 @@ examples use a bigger angle step than useful for a single animation. } \end{animateinline} \end{LTXexample} +\fi + + +\clearpage + +\section{Connect the two gears with a rubberband} + +This is an adaptation with PSTricks of an idea of Alejandro Teutli which he realized with Mathematica: +\url{https://demonstrations.wolfram.com/ParametricMovementOfARubberBand/} which is a variation of a spirograph. +A rubber band is fixed by its ends on two gears. A pencil tied in the middle of the elastic rubberband draws the curve obtained when the gears are +rotating. The optional argument \Lkeyword{RubberBand} must be used, if you want such a spirograph. It is only available +in 3D. + + +\begin{LTXexample}[pos=t] +\begin{animateinline}[ + width=0.9\linewidth, + begin={\begin{pspicture}(-6,-3)(8,6)\psframe*[linecolor=yellow,opacity=0.4](-6,-3)(8,6)}, + end={\end{pspicture}}, + palindrome,controls, +% autoplay +]{5} +\multiframe{181}{iA=0+4}{% +\psSpirograph[RubberBand,Z1=20,Z2=40,m=0.2,viewpoint=2 -5 3,arrowinset=0,arrowsize=0.2,wheelrotation=\iA, + linewidth=0.025,color1=yellow,color2=blue!50]} +\end{animateinline} +\end{LTXexample} + |