グラスの形状を生成するための式を登録します。
//**********************************************************************************
#macro Surface_func(Su,Sv,Func_no) // Function
#switch(Func_no)
#case( 2) //wine glass
#local Rp=max(pow(Sv,2)*sin(1/pow(Sv,2)),0.1);
#local F=10*
#break
#end F
#end
//**********************************************************************************
