How to make a zoom and slow down effects:
How to make a zoom and slow down effects:
ClearAll[baseAnimation]baseAnimation[time_,zoom_,speed_]:=Module{n=30,r=0.4,dr=0.16,θ,objs,x,y},objs=Catenate@Tablex=i+j2.0;y=
3
2.0j;θ=ArcTan[x,y]+0.3x^2+y^2
;If[-n<=i+j<=n,{Circle[{x,y},r],Disk[AngleVector[{x,y},{r,2θ-2Pi speed time}],dr]},Nothing],{i,-n-1/2,n+1/2},{j,-n-1/2,n+1/2};Graphics{GrayLevel[0.3],objs[[All,1]],White,objs[[All,2]]},Background->Black,ImageSize->600,PlotRange->zoom n{-1,1},3
2{-1,1}ManipulateVideo[baseAnimation[time, zoom, speed],{time,<|0->0,10->10|>},{speed,<|0->1,10->.5|>},{zoom,<|0->1.05,5->.2,7->.2,8->.1,11->.1|>}]
Out[]=