変形する物体に対する対応点の移動位置を求めます。
//**********************************************************************************
入力 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
//**********************************************************************************
例) 1枚目のフレーム