/* La néphroïde est une épicycloïde à deux rebroussements. 
   (obtenu notamment en faisant rouler un cercle de rayon a/2
    à l'extérieur d'un cercle de rayon a).
*/
import geometry;
import animate;

settings.tex="pdflatex";
settings.outformat="pdf";

size(7.5cm,0);

animation A;
real a=2;
pair pM, pC, pN;
path nephroide;

draw(scale(a)*unitcircle);

for(int k=0; k<360; k+=3) {
  save();
  pM=rotate(k,(0,0))*(a,0);
  pC=1.5*pM;
  pN=rotate(2*k,pC)*pM;
  nephroide=nephroide..pN;
  draw(shift(pC)*scale(a/2)*unitcircle);
  draw(nephroide,1bp+red);
  draw(pN--pC,1bp+paleblue);dot(pN--pC,3bp+blue);
  A.add();
  restore();
}
A.movie(); // remplacer par la ligne suivante
// label(A.pdf(BBox(1mm,nullpen),delay=500,"controls,loop"));
// pour obtenir une animation dans une seule page d'un pdf.
// controls : pour obtenir les boutons,
// loop : pour que cela tourne en boucle par défaut.