「正12面体」の編集履歴（バックアップ）一覧はこちら

「正12面体」(2005/08/22 (月) 10:37:30) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

*正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

*正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

#ref(2005082101.jpg)