変形する物体に対する対応点の移動位置を求めます。
//**********************************************************************************
入力 Pmax：データ配列の大きさ
Pv：変形するデータが格納された配列
V1：＜移動の比率、最終フレーム番号、clockの値＞
出力 Pm：clockの値に対する対応点の移動位置のデータを格納した配列
//**********************************************************************************
#macro Midpt_set(Pmax,Pv,V1)
#local Pm = array[Pmax]
#local Pn=0; #while (Pn < Pmax)
#if(V1.z=0) #local Pm[Pn]=Pv[0][Pn]; #end
#if(0 < V1.z & V1.z < 1)
#local Pm[Pn]=Pv[1][Pn]-(Pv[1][Pn]-Pv[0][Pn])*pow(1-V1.x,(V1.y-1)*V1.z); #end
#if(V1.z=1) #local Pm[Pn]=Pv[1][Pn]; #end
#local Pn=Pn+1; #end
Pm
#end
//**********************************************************************************
