曲面で柿の形状を生成するための式を登録します。
//**********************************************************************************
#macro Surface_function(Su,Sv,Fn)
#switch(Fn)
#case(3) #local Rr=10*cos(sqrt(Sv));
#local F=Rr*< sin(Sv)*cos(Su), 1.2*cos(Sv), sin(Sv)*sin(Su) >;
#break
#end F
#end
//**********************************************************************************