import solids;
size(7.5cm,0);
currentprojection=perspective((45,45,20));

draw((4,0,8)--(-4,0,8)^^(0,4,8)--(0,-4,8),dashed+darkgray);
draw("$x$",O--X,Arrow3);draw(O--3X);
draw("$y$",O--Y,Arrow3);draw(O--3Y);
draw("$z$",O--Z,Arrow3);draw(O--13Z);

path3 gene=(0,2,3)..(0,3,3.5)..(0,4,4.5)..(0,4.5,6)
              ..(0,4,8)..(0,1,10)..(0,2,12);
revolution vase=revolution(c=(0,0,0),gene, axis=Z, -70, 270);
draw(surface(vase),palegreen+opacity(.4));
draw(vase,m=10,frontpen=.8bp+blue,backpen=.6bp+paleblue,longitudinalpen=nullpen);
skeleton s;
vase.transverse(s,reltime(vase.g,0.5));
draw(s.transverse.back,1bp+yellow+linetype("8 8",8));
draw(s.transverse.front,1bp+yellow);                               
                               
draw((0,2,3)--(0,-2,3)^^(2,0,3)--(-2,0,3),dashed+gray);
draw((0,2,12)--(0,-2,12)^^(2,0,12)--(-2,0,12),gray);

draw (gene,1bp+green);
draw ((2,0,12)..(0,2,12)..(-2,0,12)..(0,-2,12)..cycle,.4bp+red,Arrow3);

dot(Label("$a$",align=SE),(0,0,3));
dot(Label("$z$",align=SE),(0,0,8),red);
dot(Label("$b$",align=NE),(0,0,12));
draw("$r(z)$",(0,0,8)--(4,0,8),red,Arrow3);

import solids;
size(7.5cm,0);
currentprojection=perspective((45,45,20));

draw("$x$",O--X,Arrow3);draw(O--3X);
draw("$y$",O--Y,Arrow3);draw(O--3Y);
draw("$z$",O--Z,Arrow3);draw(O--13Z);

path3 gene=(0,1,2.5)--(0,1,5)--(0,4,4.5)..(0,1,7)
              --(0,3.5,6.5)..(0,1,9)--(0,3,8.5)
              ..(0,1,11)--(0,2.5,10.5)..(0,0,13);
revolution vase=revolution(c=(0,0,0),gene, axis=Z, 0, 360);
draw(surface(vase),palegreen+opacity(.8));
/* 
skeleton s;
vase.transverse(s,reltime(vase.g,0.5));
draw(s.transverse.back,1bp+yellow+linetype("8 8",8));
draw(s.transverse.front,1bp+yellow);                               
                               
draw((0,2,3)--(0,-2,3)^^(2,0,3)--(-2,0,3),dashed+gray);
draw((0,2,12)--(0,-2,12)^^(2,0,12)--(-2,0,12),gray);

draw (gene,1bp+green);
draw ((2,0,12)..(0,2,12)..(-2,0,12)..(0,-2,12)..cycle,.4bp+red,Arrow3);

dot(Label("$a$",align=SE),(0,0,3));
dot(Label("$z$",align=SE),(0,0,8),red);
dot(Label("$b$",align=NE),(0,0,12));
draw("$r(z)$",(0,0,8)--(4,0,8),red,Arrow3); */