カクテルグラスの形状を生成する曲面の式を登録します。
//**********************************************************************************
#macro Surface_func(Su,Sv,Func_no)
#switch(Func_no)
#case( 3)
#local Rp=0.8*(abs(pow(Sv,0.7)-1)+abs(pow(Sv,0.7)-pow(4,0.7))-1.5);
#local F=10*< Rp*cos(Su), Sv, Rp*sin(Sv) >;
#break
#end F
#end
//**********************************************************************************