小枝の描画

 定義した小枝を木の枝として描画します。
 //**********************************************************************************
  #macro Cross_twig(V_end,Org_size,Twig_length,Tws,Twr,Rt,Tr)
  #local H_end=1;
  #local V_count = 0; #while ( V_count < V_end )
   #if(V_count=0) #local Tv=<0,0,0>;
   #else #local Tv=vrotate(<2*Org_size,Twig_length+2*Org_size,0>,Twr*z)
                     *pow(Tws,V_count-1)+Tv; #end
   #local H_count = 0; #while ( H_count < H_end )
   #local X = sin(H_count*pi/2)*Tv.x;
   #local Y = Tv.y; #local Z = cos(H_count*pi/2)*Tv.x;
   object { Twig_obj scale pow(Tws,V_count) translate < X, Y, Z > rotate Rt translate Tr }
   #local H_count = H_count + 1; #end
   #local H_end=4;
  #local V_count = V_count + 1; #end
  #end
 //**********************************************************************************