外向き法線方向に物体を配置するための式を登録します。
//**********************************************************************************
#macro Surface_function(Su,Sv,Func_no)
#switch(Func_no)
#case(0)
#local F=30*< cos(Sv)*cos(Su), sin(Sv), cos(Sv)*sin(Su) >;
#break
#end F
#end
//**********************************************************************************