ピーマンの形状となる曲面の式を登録します。
//**********************************************************************************
#macro Surface_function(Su,Sv,Fn)
#switch(Fn)
#case(2) #local Rr=0.5+3*sin(Sv)+sin(6*Su)/6;
#local F=Rr*< sin(Sv)*cos(Su), cos(Sv), sin(Sv)*sin(Su) >;
#break
#end F
#end
//**********************************************************************************