曲面を生成するマクロを呼び出し、グラスの形状を定義します。
//**********************************************************************************
#local W_glass = Smooth_surface2(<-pi,pi,pi/12>,<-0.32*pi,pi,pi/12>,2)
//**********************************************************************************
