４）曲線の変形

　二次近似の曲線を変形させます。
//**********************************************************************************
入力　Lw：曲線の線の太さとなる半径
　　 V1：媒介変数の範囲 ＜始点、終点、刻み幅＞
　　 V2：接線の傾きを求める為の値 ＜媒介変数の増加分、追加の接線傾斜角＞
　　 V3：＜移動の比率、最終フレーム番号、clockの値＞
　　 Fn：式の登録番号
//**********************************************************************************
　#macro Midpt_curveline(Lw,V1,V2,V3,Fn)
　 #local Sp=V1.x; #local Ep=V1.y; #local Ap=V1.z;
　 #local Ox0=0; #local Oz0=0;
　 #local Ms=Differ_coefficient(,Fn);
　 #local Me=Differ_coefficient(,Fn+1);
　 #local M1=Midpt_pos(V3,,);
　 #local Vps=Curve_function(Sp,Fn);
　 #local Vpe=Curve_function(Sp,Fn+1);
　 #local P1=Midpt_pos(V3,Vps,Vpe);
　 #while(Sp < Ep)
　 #local Vps=Curve_function(Sp+Ap,Fn);
　 #local Vpe=Curve_function(Sp+Ap,Fn+1);
　 #local P2=Midpt_pos(V3,Vps,Vpe);
　 #if(Sp=V1.x) Beginning_center(M1.x,P1.x,P1.z,P2.x,P2.z,Ox0,Oz0) #end
　 Curve_element(Lw,P1.x,P1.z,P2.x,P2.z,Ox0,Oz0)
　 #local P1=P2;
　 #local Sp=Sp+Ap; #end
　#end
//**********************************************************************************