coquillage

Exemple de surface en forme de coquillage, l'export est un eps converti en jpg (bouton snapshot dans la version 1.94-beta-2):

Code:


[
view(-3.1,3.1,-3.2,3),Marges(0,0,0,0), size(12,1), background(full,darkgray),
theta:=167*deg, phi:=-109*deg,

a:=2, m:=0.1, k:=3, b:=a*abs(exp(m*pi)-1)/(exp(m*pi)+1)*(1+2*k),

stock:=GetSurface( [(a+b*cos(v))*exp((m+i)*u), (k*a+b*sin(v))*exp(m*u)],
                  -30+5*i, -pi+pi*i, 150+35*i),

transformbox3d(rectangle3d(stock),1),
DrawSmoothFacet(stock, [color:=steelblue])
]