[pstricks] draw animation by tikZ

[Juergen Gilg]

Hi all,
> Looks great, Herbert! 
>   
here the same done with *aeb_pro* -- however Adobe Distiller 7 or later 
is needed.
Workflow:  latex -- dvips -- distiller --pdf

\documentclass{article}
\usepackage[%
    driver=dvips,
    web={pro,designv,tight},
    uselayers,
    eforms={useui},
]{aeb_pro}
\usepackage[nomessages]{fp}
\usepackage{pstricks-add}

\begin{document}
\DeclareAnime{graph}{70}{91}
\def\voc{\animeBld
\psset{xunit=1cm,linecolor=blue}
\psdot[dotsize=3mm](!\ai\space dup DegtoRad exch sin)
\psline[linestyle=dashed](!\ai\space dup DegtoRad exch sin)(!\ai\space 
DegtoRad 0)
\eBld}

\begin{pspicture}(-0.5,-2)(6.6,2)
\psset{xunit=\pstRadUnit}
\psaxes[trigLabels,trigLabelBase=3]{->}(0,0)(-2mm,-1.5)(6.5,1.5)[$t$,-90][$y=\sin(t)$,0]
\psplot[xunit=1cm,linestyle=dashed,algebraic]{0}{\psPiTwo}{sin(x)}
 
\FPdiv{\myDeltaA}{360}{91}%
\def\ai{0}%
\leavevmode\multido{\i=1+1}{91}{\voc\FPadd{\ai}{\ai}{\myDeltaA}}
\end{pspicture}

\backAnimeBtn{24bp}{12bp}\kern1bp\clearAnimeBtn{24bp}{12bp}\kern1bp\forwardAnimeBtn{24bp}{12bp}
\end{document}


Regards,

Juergen

-- 
 Jürgen Gilg
 Austr. 59
 70376 Stuttgart
-------------------------------------
 Tel       0711.59 27 88
 e-Mail    gilg at acrotex.net
 Websites  www.acrotex.net
           www.brueckenkurs-physik.de
           www.gilligan-online.de