滑らかな曲面を描画するためのマクロです。
//**********************************************************************************
#macro Smooth_surface2(V1,V2,Fn)
mesh {
#local V=V2.x; #while(V < V2.y)
#local U=V1.x; #while(U < V1.y)
#local N=Nvector(U, V, Fn);
#local Pd11=N[0]; #local Nv11=N[1];
#local N=Nvector(U, V+V2.z, Fn);
#local Pd12=N[0]; #local Nv12=N[1];
#local N=Nvector(U+V1.z, V+V2.z, Fn);
#local Pd22=N[0]; #local Nv22=N[1];
#local N=Nvector(U+V1.z, V, Fn);
#local Pd21=N[0]; #local Nv21=N[1];
smooth_triangle { Pd11,Nv11, Pd12,Nv12, Pd22,Nv22 }
smooth_triangle { Pd11,Nv11, Pd22,Nv22, Pd21,Nv21 }
#local U=U+V1.z; #end
#local V=V+V2.z; #end
}
#end
//**********************************************************************************
