レモンとなる曲面の式を #case文の8に登録します。
//**********************************************************************************
#macro Surface_function(Ut,Vt,Func_no)
#switch(Func_no)
#case(8) #local Rr=max(3*0.85,3*abs(cos(Vt)));
#local F=Rr*< sin(Vt)*cos(Ut), cos(Vt), sin(Vt)*sin(Ut) >; //lemon
#break
#end F
#end
//**********************************************************************************
マクロの入力パラメータ Func_no に8を指定することにより、この曲面の式を呼び出すことができます。