// Reursive / Spheres Structure '99.02 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1 global_settings { assumed_gamma 2.2 } camera { location <3,5,-10> angle 12 look_at <0, 0.1, 0> } light_source {<50, 100, -50> color rgb <1,1,1> } #declare Nx=6; #declare Data = array [Nx][2] { {90,-90},{90,0},{0,270},{90,90},{0,-90},{90,180} } #declare Unit = sphere { <0,0,0> 1 } #declare J=0; #while (J <6) #declare Unit = #declare Sc =1/(1+1/cos(asin(1/sqrt(3)))); union { object { Unit scale Sc translate y*(1-Sc)} object { Unit scale Sc translate y*(1-Sc) rotate x*2*(90-asin(1/sqrt(3))/pi*180)} object { Unit scale Sc translate y*(1-Sc) rotate x*2*(90-asin(1/sqrt(3))/pi*180) rotate y*120 } object { Unit scale Sc translate y*(1-Sc) rotate x*2*(90-asin(1/sqrt(3))/pi*180) rotate y*-120 } object { Unit pigment{ color rgbt <1,1,0,0.95> } finish { ambient 0.8 reflection 0.2 diffuse 0.3 phong 0.3 specular 1 brilliance 1.5 } no_shadow } #declare J=J+1; #end background { color rgb<0.5,0,0> }