面の変形

　clock の値により変形した面を生成します。
//**********************************************************************************
　　　入力　V0：＜未使用、面の頂点数、データ配列の大きさ＞
　　　　　　　 Pv：変形するデータが格納された配列名
　　　　　　　 V1：＜移動の比率、最終フレーム番号、clockの値＞
　　　出力　clockの値に対する面の生成
//**********************************************************************************
　#macro Midpt_mesh2(V0,Pv,V1)
　 #local Tn=V0.y; #local Pmax=V0.z;
　 #local Pm=Midpt_set(Pmax,Pv,V1);
　 #switch(Tn)
　 #case (3)
　　#local Pn=0; #while (Pn } }
　　#local Pn=Pn+Tn; #end
　 #break
　 #case (4)
　　#local Pn=0; #while (Pn, <0,3,2> } }
　　#local Pn=Pn+Tn; #end
　 #break
　 #end
　#end
//**********************************************************************************
　面の頂点数が４なので、#case (4)を使用して面を生成します。