Fichier ex11.mp (figure 1) — Modifié le 4 Août 2008 à 17 h 54

ex11.mp (figure 1)
Source

input mp-solid

%figureespace(-7u,-2.5u,7u,3u);
figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,20,10);
creux:=false;
nb:=18;subh:=18;
%nb:=9;subh:=9;
angx:=90;
TR:=(0,-8,0);
outcolor:=gris;
Objetcalotte1("R=4","phib=-0.27*pi","phih=0.27*pi");%Carbone1
TR:=(0,8,0);
Objetcalotte2("R=4","phib=-0.27*pi","phih=0.27*pi");%Carbone2
outcolor:=blanc;
TR:=(0,-22,0);
Objetcalotte3("R=3.317","phib=-37*pi/180","phih=pi/2");%H1
angx:=-90;
TR:=(0,22,0);
Objetcalotte4("R=3.317","phib=-37*pi/180","phih=pi/2");%H1
nb:=12;subh:=10;
%nb:=6;subh:=5;
TR:=(0,-20,0);
Objetcylindre5("r=0.5","h=9");%C-H
angx:=90;
TR:=(0,20,0);
Objetcylindre6("r=0.5","h=9");%C-H
angx:=-90;
TR:=(0,-5,0);
Objetcylindre7("r=0.5","h=10");%C-C
TR:=(0,-5,1.5);
Objetcylindre8("r=0.5","h=10");%C-C
TR:=(0,-5,-1.5);
Objetcylindre9("r=0.5","h=10");%C-C
nbobj:=9;
DessineFusion;
%AffichageObjet5;
TraceAxesD(12,26,7);
finespace;
end