Fichier ex31.mp (figure 1) — Modifié le 5 Août 2008 à 21 h 12

ex31.mp (figure 1)
Source

%k3dsurf Hurricane

input mp-solid

invnormale:=-1;

%14''
figureespace(-10u,-10u,10u,10u);
Initialisation(1500,0,10,15);
incolor:=gris;
arcenciel:=true;
draw Sparam("(1*(2*ch(v/2)*cos(u)*cos((2.1*(2*ch(v/2)*sin(u)*sin((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)+2*(v)*cos((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367))+13.1947)*2*pi*1.5/26.3894)-2.1*(2*ch(v/2)*sin(u)*cos((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)-2*(v)*sin((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367))*sin((2.1*(2*ch(v/2)*sin(u)*sin((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)+2*(v)*cos((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367))+13.1947)*2*pi*1.5/26.3894)),1*(2*ch(v/2)*cos(u)*sin((2.1*(2*ch(v/2)*sin(u)*sin((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)+2*(v)*cos((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367))+13.1947)*2*pi*1.5/26.3894)+2.1*(2*ch(v/2)*sin(u)*cos((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)-2*(v)*sin((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367))*cos((2.1*(2*ch(v/2)*sin(u)*sin((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)+2*(v)*cos((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367))+13.1947)*2*pi*1.5/26.3894)),2.1*(2*ch(v/2)*sin(u)*sin((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)+2*(v)*cos((2*ch(v/2)*cos(u)+5.01836)*2*pi*0/10.0367)))",-pi,pi,0.12566,-pi,pi,0.12566);
finespace;
end