正12面体 - cosmath PovRay

正12面体

まだ頂点の座標は変だけど・・・

 #declare a = 0.1875924;   
 #declare b = 0.3035311;
 #declare c = 0.3568211;
 #declare d = 0.4911235;
 #declare e = 0.5773504;
 #declare f = 0.607062;
 #declare g = 0.7946544;
 #declare h = 0.9341724;  
 #declare i = 0.9822469; 
 
 #declare Pt = array[4][5]
                { {<c,g,-d>,<e,g,a>,<0,g,f>,<-e,g,a>,<-c,g,-d>}  
                  {<e,a,-g>,<h,a,b>,<0,a,i>,<-h,a,b>,<-e,a,-g>}
                  {<h,-a,-b>,<e,-a,g>,<-e,-a,g>,<-h,-a,-b>,<0,-a,-i>}
                 {<e,-g,-a>,<c,-g,d>,<-c,-g,d>,<-e,-g,-a>,<0,-g,-f>}
               }   ;

#declare Cy = 0; 
  #while (Cy <4)   
  #declare Cx = 0; 
  #while (Cx < 5) 
   object{sphere{Pt[Cy][Cx],0.1 pigment{color Green}}} 
  #declare Cx = Cx+1;  
  #end 
 #declare Cy = Cy + 1; 
 #end
                                                     
#declare Cy = 0;
 #while (Cy < 4)
                                                     
 #declare Cx =0;
  #while (Cx < 5) 
  #if ( Cx = 4) 
    object{cylinder{Pt[Cy][4],Pt[Cy][0],0.03 pigment {color Green}} }
  #else
   object{cylinder{Pt[Cy][Cx],Pt[Cy][Cx+1],0.03 pigment {color Green}}} 
   #end
 #declare Cx = Cx + 1;
 #end  

#declare Cy = Cy + 3;
#end 

#declare Cy = 0;
#while (Cy <4)

  #declare Cx=0;
   #while (Cx < 5 )
     object{cylinder{Pt[Cy][Cx],Pt[Cy+1][Cx],0.03 pigment {color Green }}} 
   #declare Cx = Cx + 1;
   #end
  
 #declare Cy = Cy +2 ;
 #end    

#declare Cx =0;
#while (Cx < 5) 
 object{cylinder{Pt[1][Cx],Pt[2][Cx],0.03  pigment{color Green}}}
 
 #if (Cx = 0)
   object{cylinder{Pt[1][Cx],Pt[2][4],0.03 pigment{color Green}}}
 #else 
   object{cylinder{Pt[1][Cx],Pt[2][Cx-1],0.03 pigment{color Green}}}  
 #end
#declare Cx = Cx +1 ;
#end