input mp-solid

outcolor:=0.5[rouge,blanc];
incolor:=0.5[vert,blanc];
angy:=40; nb:=24;
figureespace(-10u,-10u,10u,10u);
Initialisation(500,-20,25,50);
subh:=24;
Objetcalotte1("R=4","phib=-pi/3","phih=pi/4");%ok
AffichageObjet1;
TraceAxes;
finespace;
figureespace(-10u,-10u,10u,10u);
Initialisation(500,20,25,50);
subh:=24;
creux:=true;
Objetcalotte1("R=4","phib=-pi/3","phih=pi/4");%ok
AffichageObjet1;
TraceAxesD(5,5,5);
finespace;
end