input mp-solid

nb:=48;
subh:=8;

figureespace(-10u,-10u,10u,10u);
Initialisation(500,-10,15,30);
Lumiere:=Oeil;
outcolor:=0.5[vert,blanc];
incolor:=orange;%0.5[orange,blanc];
r:=1;
q:=4;
draw 
Fonction("(r*((q+1)*cos(t)-cos((q+1)*t)),r*((q+1)*sin(t)-sin((q+1)*t)),-2)",-pi,pi,0.0628) 
withpen pencircle scaled1.5bp withcolor bleu;
Ferme1:=false;
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)");
AffichageObjet1;
TraceAxes;
finespace;
end