doc/figures/rubancardioide.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 Initialisation(500,60,20,25);
   5 nb:=17; subh:=20;
   6 eclairage:=false;
   7 drawoptions(withcolor gris);
   8 outcolor:=blanc;
   9 Objetgrille1("am=-5.5","an=3","bm=-5","bn=5");
  10 AffichageObjet1;
  11 drawoptions();
  12 eclairage:=true;
  13 outcolor:=0.5[rouge,blanc];
  14 incolor:=0.5[vert,blanc];
  15 subh:=3;
  16 ObjetRuban2("h=2")(for t=-pi step pi/36 until 35*pi/36:1.5*(2*cos(t)-cos(2*t),2*sin(t)-sin(2*t),0), endfor(-4.5,0,0));
  17 AffichageObjet2;
  18 TraceAxesD(3.5,5.5,4);
  19 finespace;
  20 end