Making GIF Animations

I fixed „makeanimations.e“ in EMT.

animation

The code for this is the following.

>function f(z,z0) := (z-z0)/(conj(z0)*z-1);
>function plotcircle(z,r,z0,color=black) ...
$t=linspace(0,2pi,500); w=f(z+r*exp(I*t),z0);
$barstyle("#"); barcolor(color);
$hold on; polygon(re(w),im(w),0); hold off;
$endfunction
>function plotall (d,z0=0.5) ...
$fullwindow; setplot(1.05); clg;
$plotcircle(0,1,0,lightgray);
$plotcircle(0,1/3,z0,white);
$c=exp(((0:5)/6+d)*2*pi*I)*2/3;
$loop 1 to 6; plotcircle(c[#],1/3,z0,red); end;
$endfunction
>plotall (0)
>load makeanimations
 Functions to make an animated GIF or an MPEG movie.
>makegif("plotall",(0:0.01:1)/6,"animation",w=400,h=400)

09. Dezember 2016 von mga010
Kategorien: Uncategorized | Schreibe einen Kommentar

Schreibe einen Kommentar

Pflichtfelder sind mit * markiert