式から円弧により平面曲線を描画するマクロです。
//**********************************************************************************
#macro Curved_line(Lr,Bp,Ep,Ap,Mx,Func_type)
#local Px0=0; #local Pz0=0; #local Ox0=0; #local Oz0=0;
#local Sp=Bp; #while( Sp < Ep ) // while start
Curve_function(Sp, Px0,Pz0,Func_type) #local Px1=Px0; #local Pz1=Pz0;
Curve_function(Sp+Ap,Px0,Pz0,Func_type) #local Px2=Px0; #local Pz2=Pz0;
#if(Sp=Bp) Beginning_center(Mx,Px1,Pz1,Px2,Pz2,Ox0,Oz0) #end
Curve_element(Lr,Px1,Pz1,Px2,Pz2,Ox0,Oz0)
#local Sp=Sp+Ap; #end
#end
//**********************************************************************************