clock の値に対応した曲線を、基本立体である円錐と球を用いて描画します。
//**********************************************************************************
入力 Lw:基準となる線の太さの半径
V1:媒介変数の範囲 <始点、終点、刻み幅>
V2:線の太さを変化させる値 <始点での比率、終点での比率、0>
V3:曲線を移動させるための値 <移動の比率、最終フレーム番号、clock の値>
Fn:式の登録番号
//**********************************************************************************
#macro Midpt_bioline(Lw,V1,V2,V3,Fn)
#local Ts=V1.x; #local Te=V1.y; #local Ta=V1.z;
#local Ws=V2.x; #local We=V2.y; #local Bh=V2.z;
#local Pv=Line_function(Ts,Fn);
#local Vps=
#local Pv=Line_function(Ts,Fn+1);
#local Vpe=
#local P1=Midpt_pos(V3,Vps,Vpe);
#local R1=Midpt_pos(V3,
#while(Ts
#local Pv=Line_function(Ts+Ta,Fn+1);
#local Vpe=
#local P2=Midpt_pos(V3,Vps,Vpe); #local R2=Midpt_pos(V3,
cone { P1,abs(Lw*R1.x),P2,abs(Lw*R2.x) } sphere { P2,abs(Lw*R2.x) }
#local P1=P2; #local R1=R2;
#local Ts=Ts+Ta; #end
#end
//**********************************************************************************
線の太さを変化させることができる曲線を用いて変形しています。