曲面の式

　りんごの形状となる曲面の式を、#case文の１に登録します。
　//**********************************************************************************
　　#macro Surface_function(U,V,Func_no)
　　 #switch(Func_no)
　　　#case(1) #local Rr=6*pow(V,1.05);
　　　　　　　#local F=Rr*< sin(V)*cos(U), cos(V), sin(V)*sin(U) >; //apple
　　　#break
　　 #end F
　　#end
　//**********************************************************************************
　Func_no に１を指定することにより、りんごの形状となる曲面の式を、呼び出すことができます。