円盤による円弧を描画するマクロの開始部分です。
//**********************************************************************************
#macro Curve_element(Lr,Px1,Pz1,Px2,Pz2,Ox0,Oz0)
#local Vx1=Px1;
#if(Px1!=Ox0) #local Vz1= ( (Pz1-Oz0)/(Px1-Ox0) )*(Vx1-Px2)+Pz2; #else
#if(Px1=Px2) #local Vz1=Pz1; #else #local Vz1=1/pow(0.000001,10); #end #end
#local Vx2=Px2;
#if(Pz1!=Oz0) #local Vz2=(-(Px1-Ox0)/(Pz1-Oz0) )*(Vx2-Px1)+Pz1; #else
#if(Px1=Px2) #local Vz2=Pz2; #else #local Vz2=1/pow(0.000001,10); #end #end
//----------------------------------------------------------------------------------