Hi, both solutions are great! This is what I had in mind, a rolling sine. Is there a way to get the same result with the Tikz module?
\usemodule[animation] \setupinteraction[state=start] \starttext \input tufte \framed{ \startanimation[menu=yes,framerate=40] \dorecurse{50}{\expanded {\startframe \startMPcode numeric u, omega, mylength, tt ; u := 2cm ; omega := 4 ; mylength := 3.141596 ; tt := \recurselevel ; path p ; p := (0u,sin(omega*(mylength/100)*tt)*u) for i = 1 upto 100 : .. (((mylength/100)*i)*u,sin(omega*(mylength/100)*(i + tt))*u) endfor ; draw p withpen pencircle scaled .5pt withcolor darkred ; \stopMPcode \stopframe} } \stopanimation } \stoptext Op wo 21 jul. 2021 om 23:26 schreef Otared Kavian <ota...@gmail.com>: > Hi, > > I wonder whether something like the following is what you are looking for: > > % begin wave-sine.tex > \usemodule[animation] > \setupinteraction[state=start] > \starttext > \startTEXpage[offset=2pt] > \startanimation[menu=yes,framerate=10] > \dorecurse{100}{\expanded > {\startframe > \startMPcode > numeric u, omega, mylength, tt ; > u := 2cm ; > omega := 4 ; > mylength := 3.141596 ; > tt := \recurselevel ; > path p ; > p := (0u,sin(omega*(mylength/100)*tt)*u) for i = 1 > upto 100 : > .. > (((mylength/100)*i)*u,sin(omega*(mylength/100)*(i + tt))*u) > endfor ; > draw p withpen pencircle scaled .5pt withcolor > darkred ; > \stopMPcode > \stopframe} > } > \stopanimation > \stopTEXpage > \stoptext > % end wave-sine.tex > > Best regards: OK > > > On 21 Jul 2021, at 19:44, Jeroen <context...@gmail.com> wrote: > > > > I am looking for a sine animation as the one file f.pdf on this site > > > > > http://www.12000.org/my_notes/Mathematica_animation_into_PDF_using_latex/index.htm > > > > Jeroen > > > > Op wo 21 jul. 2021 om 17:54 schreef Fabrice L <fabrice.al...@gmail.com>: > > Hi, > > > >> Le 21 juill. 2021 à 10:08, Jeroen <context...@gmail.com> a écrit : > >> > >> I use this small animation to enlarge a circle > >> > >> > >> \usemodule[animation] > >> \setupinteraction[state=start] > >> \starttext > >> \startanimation[menu=yes,framerate=10] > >> \dorecurse{7}{\expanded > >> {\startframe > >> \startMPcode > >> path p; > >> numeric n, u; > >> u := 1cm; > >> n:=\recurselevel*u; > >> p := fullcircle scaled n; > >> draw p; > >> \stopMPcode > >> \stopframe}} > >> \stopanimation > >> \stoptext > >> > >> > >> This I use to draw a sine > >> > >> > >> \starttext > >> \startMPcode > >> draw(-90/360*1.5cm,-0.9cm) for i = -90 upto 630: .. > (i/360*1.5cm,0.9cm*(sind(i)))endfor; > >> \stopMPcode > >> \stoptext > >> > >> > >> When I put it together to animate the sine as following, it does not > entirely create the sine animation I am looking for > >> > >> > >> \usemodule[animation] > >> \setupinteraction[state=start] > >> \starttext > >> \startanimation[menu=yes,framerate=10] > >> \dorecurse{7}{\expanded > >> {\startframe > >> \startMPcode > >> path p; > >> numeric n, u; > >> u := 1cm; > >> n:=\recurselevel*u; > >> p := (-90/360*1.5cm,-0.9cm) for i = -90 upto 630: .. > (i/360*1.5cm,0.9cm*(sind(i))) endfor shifted (n,0); > >> draw p; > >> \stopMPcode > >> \stopframe}} > >> \stopanimation > >> \stoptext > >> > >> > >> What better way can I create a sine animation with Metapost? > >> > >> > > > > Here is another way to do your animation. This is doing something, but I > guess not what you want. Could you describe what do you have in mind ? > > > > \starttext > > \dorecurse{7}{ % 3180 > > \startMPpage > > myvariable := #1 ; > > path p; > > numeric n, u; > > u := 1cm; > > n:=myvariable*u; > > p := (-90/360*1.5cm,-0.9cm) for i = -90 upto 630: .. > (i/360*1.5cm,0.9cm*(sind(i))) endfor shifted (n,0); > > draw p; > > \stopMPpage > > } > > \stoptext > > > > Fabrice. > > > > > > > ___________________________________________________________________________________ > > If your question is of interest to others as well, please add an entry > to the Wiki! > > > > maillist : ntg-context@ntg.nl / > http://www.ntg.nl/mailman/listinfo/ntg-context > > webpage : http://www.pragma-ade.nl / http://context.aanhet.net > > archive : https://bitbucket.org/phg/context-mirror/commits/ > > wiki : http://contextgarden.net > > > ___________________________________________________________________________________ > > > ___________________________________________________________________________________ > > If your question is of interest to others as well, please add an entry > to the Wiki! > > > > maillist : ntg-context@ntg.nl / > http://www.ntg.nl/mailman/listinfo/ntg-context > > webpage : http://www.pragma-ade.nl / http://context.aanhet.net > > archive : https://bitbucket.org/phg/context-mirror/commits/ > > wiki : http://contextgarden.net > > > ___________________________________________________________________________________ > > > ___________________________________________________________________________________ > If your question is of interest to others as well, please add an entry to > the Wiki! > > maillist : ntg-context@ntg.nl / > http://www.ntg.nl/mailman/listinfo/ntg-context > webpage : http://www.pragma-ade.nl / http://context.aanhet.net > archive : https://bitbucket.org/phg/context-mirror/commits/ > wiki : http://contextgarden.net > > ___________________________________________________________________________________ >
___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://context.aanhet.net archive : https://bitbucket.org/phg/context-mirror/commits/ wiki : http://contextgarden.net ___________________________________________________________________________________