1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
\documentclass[border=5mm]{standalone}
\usepackage{animate}
\usepackage{pst-spirograph}
\addtopsstyle{gridstyle}{gridlabels=0pt}
\begin{document}
\begin{animateinline}[
width=0.9\linewidth,
begin={\begin{pspicture}[showgrid](-4.5,-4.5)(4.5,4.5)\psframe*[linecolor=yellow,opacity=0.4](-4.5,-4.5)(4.5,4.5)},
end={\end{pspicture}},
palindrome,controls,
% autoplay
]{5}
\multiframe{180}{iA=0+6}{%
\psSpirograph[thetamax=\iA,Z1=20,Z2=30,m=0.1,ap=10,curvewidth=1.5pt,inner=false,
linewidth=0.025,fillstyle=solid,polarangle=\iA,holenumber=4,opacity=0.5](0,0)}
\end{animateinline}
\end{document}
|