Fichier ex01.mp (figure 1) — Modifié le 7 Août 2008 à 19 h 05

ex01.mp (figure 1)
Source

input mp-solid

vardef Transform(expr PT)=
  RotZ(RotX(RotY(PT+TR)))-TR
enddef;

transformation:=true;

figureespace(-10u,-10u,10u,10u);
Initialisation(1000,52.5,20,10);
%--les atomes
nb:=24;subh:=24;
outcolor:=rouge;
Objetsphere1("R=7.3");%O
TR:=(9.6+(7.3/2)+(3.2/2),0,0);
outcolor:=ciel;
Objetsphere2("R=3.2");%H1
angz:=105;
Objetsphere3("R=3.2");%H2
%--les liaisons
TR:=(0,0,0);
nb:=12;subh:=10;
outcolor:=gris;
angy:=90;
Objetcylindre4("r=0.25","h=14.85");
angz:=0;
angy:=90;
Objetcylindre5("r=0.25","h=14.85");
nbobj:=5;
DessineFusion;
TraceAxesD(15,15,15);
finespace;
end