doc/figures/coneepi.mp

   1 input mp-solid
   2
   3 nb:=48;
   4 subh:=8;
   5
   6 figureespace(-10u,-10u,10u,10u);
   7 Initialisation(500,-10,15,30);
   8 Lumiere:=Oeil;
   9 outcolor:=0.5[vert,blanc];
  10 incolor:=orange;%0.5[orange,blanc];
  11 r:=1;
  12 q:=4;
  13 draw
  14 Fonction("(r*((q+1)*cos(t)-cos((q+1)*t)),r*((q+1)*sin(t)-sin((q+1)*t)),-2)",-pi,pi,0.0628)
  15 withpen pencircle scaled1.5bp withcolor bleu;
  16 Ferme1:=false;
  17 ObjetCone1("(r*((q+1)*cos(u)-cos((q+1)*u)),r*((q+1)*sin(u)-sin((q+1)*u)),-2)",0,pi,-2,"orig=(0,1,3)");
  18 AffichageObjet1;
  19 TraceAxes;
  20 finespace;
  21 end