input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,20,30,20);
arcenciel:=true;
draw SurfZ("4*cos(X++Y)*mexp(-(X++Y)*25)",-15,15,-10,10,60,120);
finespace;
end