summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-spirograph/pst-spirograph-doc.tex
diff options
context:
space:
mode:
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.tex50
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}
+