#--------------------------------------------------------------------
#
#   
#

r(x) = (x <= 0.0? -4*x + 0.1 : (x<= 2.0? 0.1: sqrt(  (1.3*(x-2)))))

glass = tube{[0,0,x][x=-0.3:4.5][radius=r(x)][sample=30:30]}

plot glass
