1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples/34-02-3.ltx b/Master/texmf-dist/doc/latex/pstricks-examples/34-02-3.ltx
new file mode 100644
index 00000000000..c9323c576f8
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks-examples/34-02-3.ltx
@@ -0,0 +1,61 @@
+%% 
+%%  Ein Beispiel der DANTE-Edition
+%% 
+%% 
+%%  Copyright (C) 2008 Herbert Voss
+%% 
+%%  It may be distributed and/or modified under the conditions
+%%  of the LaTeX Project Public License, either version 1.3
+%%  of this license or (at your option) any later version.
+%% 
+%%  See http://www.latex-project.org/lppl.txt for details.
+%% 
+%% 
+%% ==== 
+% Show page(s) 1
+%% 
+\documentclass[]{exaarticle}
+\pagestyle{empty}
+\setlength\textwidth{352.81416pt}
+\setlength\parindent{0pt}
+\StartShownPreambleCommands
+\usepackage[
+    driver=dvips,
+    web={pro},      % die Layout-Stildatei von AeB
+    eforms,         % supports the formfields (push buttons)
+    uselayers]{aeb_pro}
+\usepackage{pst-3dplot,pstricks-add}
+\usepackage[nomessages]{fp}
+\StopShownPreambleCommands
+\begin{document}
+\DeclareAnime{graph}{10}{37}%Aufruf der Animation
+\newcommand*{\voc}{%
+  \animeBld
+  \definecolor{APBoceanblue}{rgb}{0.00,0.20,0.74}
+  \definecolor{APBcoldblue}{rgb}{0.00,0.48,0.73}
+  %Betrachtungswinkel,Linienstärke,Linienfarbe,Ursprung
+  \psset{Beta=20,Alpha=50,linewidth=0.1pt,linecolor=APBcoldblue,origin={0,0,0}}%
+  %zu animierende Figur
+  \parametricplotThreeD[xPlotpoints=100](80,\bi)(0,360){%
+    t cos 2 mul 4 u sin 2 mul add mul
+    t sin 2 mul 4 u sin 2 mul add mul
+    u cos 4 mul}
+  \parametricplotThreeD[yPlotpoints=75](0,360)(80,\bi){%
+    u cos 2 mul 4 t sin 2 mul add mul
+    u sin 2 mul 4 t sin 2 mul add mul
+    t cos 4 mul}
+  \parametricplotThreeD[yPlotpoints=1,linecolor=APBoceanblue,
+    linewidth=2pt](0,360)(80,360){
+      u cos 2 mul 4 t sin 2 mul add mul
+      u sin 2 mul 4 t sin 2 mul add mul
+      t cos 4 mul }%
+  \eBld}%Ende der zu animierenden Objekte
+\psset{unit=0.35}%
+\begin{pspicture}(-2,-8)(2,8)
+\FPdiv{\myDeltaB}{280}{36}\newcommand*{\bi}{80}%
+\multido{\i=1+1}{37}{\voc\FPadd{\bi}{\bi}{\myDeltaB}}%  Ebenen hintereinander legen
+\end{pspicture}
+\backAnimeBtn{24bp}{12bp}\kern1bp% Knöpfe
+\clearAnimeBtn{24bp}{12bp}\kern1bp%
+\forwardAnimeBtn{24bp}{12bp}
+\end{document}