登録した曲面の式から、帽子の形状を描画します。
//**********************************************************************************
#macro Curved_surface4(V1,V2,Func_no)
mesh {
#local V=V2.x; #while( V < V2.y )
#local U=V1.x; #while( U < V1.y )
#local Pd11=Surface_func(U-V1.z/2, V-V2.z/2, Func_no);
#local Pd12=Surface_func(U-V1.z/2, V+V2.z/2, Func_no);
#local Pd22=Surface_func(U+V1.z/2, V+V2.z/2, Func_no);
#local Pd21=Surface_func(U+V1.z/2, V-V2.z/2, Func_no);
#local Pd00=Surface_func(U, V, Func_no);
triangle { Pd11, Pd12, Pd00 }
triangle { Pd12, Pd22, Pd00 }
triangle { Pd22, Pd21, Pd00 }
triangle { Pd21, Pd11, Pd00 }
#local U=U+V1.z; #end
#local V=V+V2.z; #end
}
#end
//**********************************************************************************
