曲線の描画マクロ

 曲線を描画するためのマクロです。
 //**********************************************************************************
  #macro Space_line2(Lr,V1,Fn)
   #local P1=Line_function(V1.x,Fn);
   #local Tp=V1.x; #while( Tp < V1.y )
   #local P2=Line_function(Tp+V1.z,Fn);
   cylinder { P1, P2, Lr } #if( Tp < V1.y-V1.z ) sphere { P2, Lr } #end
   #local P1=P2;
   #local Tp=Tp+V1.z; #end
  #end
 //**********************************************************************************