#include "colors.inc"
#include "glass.inc"
                                                                                                   
camera {perspective location <0,0,-15> look_at<0,0,0>  rotate 1.9*y  }  // 18  -sqrt(xc*xc+yc*yc+zc*zc)/30 

light_source { <-5,18,-10>*10 color White     shadowless  } 
light_source { <-10, -20,-10>*10 color White }
light_source { <10,10,-10>*10 color rgb <1,0,0>*0.3  shadowless}
background{Gray } //  SkyBlue*1.2} //
 
#declare T=array[24][6]
{{<1,1,3>,<0,1,2>,<1,0,2>,<1,1,1>,<1,-1,1>,<2,0,1>},{<-1,1,3>,<-1,0,2>,<0,1,2>,<-1,1,1>,<1,1,1>,<0,2,1>},
{<-1,-1,3>,<0,-1,2>,<-1,0,2>,<-1,-1,1>,<-1,1,1>,<-2,0,1>},{<1,-1,3>,<1,0,2>,<0,-1,2>,<1,-1,1>,<-1,-1,1>,<0,-2,1>},
{<1,-3,1>,<0,-2,1>,<1,-2,0>,<1,-1,1>,<1,-1,-1>,<2,-1,0>},{<-1,-3,1>,<-1,-2,0>,<0,-2,1>,<-1,-1,1>,<1,-1,1>,<0,-1,2>},
{<-1,-3,-1>,<0,-2,-1>,<-1,-2,0>,<-1,-1,-1>,<-1,-1,1>,<-2,-1,0>},{<1,-3,-1>,<1,-2,0>,<0,-2,-1>,<1,-1,-1>,<-1,-1,-1>,<0,-1,-2>},
{<1,-1,-3>,<0,-1,-2>,<1,0,-2>,<1,-1,-1>,<1,1,-1>,<2,0,-1>},{<-1,-1,-3>,<-1,0,-2>,<0,-1,-2>,<-1,-1,-1>,<1,-1,-1>,<0,-2,-1>},
{<-1,1,-3>,<0,1,-2>,<-1,0,-2>,<-1,1,-1>,<-1,-1,-1>,<-2,0,-1>},{<1,1,-3>,<1,0,-2>,<0,1,-2>,<1,1,-1>,<-1,1,-1>,<0,2,-1>},
{<1,3,-1>,<0,2,-1>,<1,2,0>,<1,1,-1>,<1,1,1>,<2,1,0>},{<-1,3,-1>,<-1,2,0>,<0,2,-1>,<-1,1,-1>,<1,1,-1>,<0,1,-2>},
{<-1,3,1>,<0,2,1>,<-1,2,0>,<-1,1,1>,<-1,1,-1>,<-2,1,0>},{<1,3,1>,<1,2,0>,<0,2,1>,<1,1,1>,<-1,1,1>,<0,1,2>},
{<3,1,-1>,<2,1,0>,<2,0,-1>,<1,1,-1>,<1,-1,-1>,<1,0,-2>},{<3,1,1>,<2,0,1>,<2,1,0>,<1,1,1>,<1,1,-1>,<1,2,0>},
{<3,-1,1>,<2,-1,0>,<2,0,1>,<1,-1,1>,<1,1,1>,<1,0,2>},{<3,-1,-1>,<2,0,-1>,<2,-1,0>,<1,-1,-1>,<1,-1,1>,<1,-2,0>},
{<-3,-1,-1>,<-2,-1,0>,<-2,0,-1>,<-1,-1,-1>,<-1,1,-1>,<-1,0,-2>},{<-3,-1,1>,<-2,0,1>,<-2,-1,0>,<-1,-1,1>,<-1,-1,-1>,<-1,-2,0>},
{<-3,1,1>,<-2,1,0>,<-2,0,1>,<-1,1,1>,<-1,-1,1>,<-1,0,2>},{<-3,1,-1>,<-2,0,-1>,<-2,1,0>,<-1,1,-1>,<-1,1,1>,<-1,2,0>}}

union{  #declare ro=0.015;

#declare n=18;
       
union{   
        #declare cp=0;
        #while (cp<24)       
               cylinder{T[cp][0],T[cp][1],ro  } 
               //cylinder{T[cp][3],T[cp][5],ropigment{Blue} }
               #declare ci=0;
               #while(ci<n+1)
                        cylinder{T[cp][0]+ci/n*(T[cp][1]-T[cp][0]),T[cp][2]+ci/n*(T[cp][3]-T[cp][2]),ro }
                        cylinder{T[cp][2]+ci/n*(T[cp][4]-T[cp][2]),T[cp][3]+ci/n*(T[cp][5]-T[cp][3]),ro }
                        #declare ci=ci+1;
               #end
               #declare cp=cp+1;
       #end
               
               
                pigment{Gold*1}
                finish { specular 0.4 ambient 0.5 diffuse 0.2 reflection 0.1  }  
         } 
 /*     
 #declare eps=0.02; 
   intersection{box{<-1,-3,-1>,<1,3,1>} 
                box{<-1+eps,-3-eps,-1+eps>,<1-eps,3+eps,1-eps>  inverse}
                 texture{T_Glass3 pigment{ Magenta*1.1 transmit 0.85 }}
                 interior{I_Glass4} }
   intersection{box{<-3,-1,-1>,<3,1,1> } box{<-3-eps,-1+eps,-1+eps>,<3+eps,1-eps,1-eps>   inverse}
                texture{T_Glass3 pigment{ Yellow*1.1 transmit 0.85  }}
                interior{I_Glass4} }  
   intersection{box{<-1,-1,-3>,<1,1,3> } box{<-1+eps,-1+eps,-3-eps>,<1-eps,1-eps,3+eps>   inverse}
                 texture{T_Glass3 pigment{ Cyan*1.1 transmit 0.85  }}
                  interior{I_Glass4} }   */
 rotate <56,20,60>
 scale 2
  }