// Last edited on 2005-01-06 00:22:19 by stolfi
// Processed by remove-cam-lights

background{ color rgb <0, 1.0, 0.0 > }

#declare raio = 2.000;

#declare tinta_A =
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 1.00, 0.0, 0.8 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare esferas =
 union{
  #declare m = 0;
 #while(m<8)
  sphere{ 0.4*<m,m,m>, 0.1 texture{tinta_A}}
  #declare m = m+2;
 #end
}

#declare cilindro =
cylinder {
 0.3*<0,0,0>,
 <2.4,2.4,2.4>
 0.02
 texture{tinta_B}
 }

#declare circulos =
union{
 #declare p=1.15;
 #declare s=0.8;
 #while (p<4.6)
  torus {p, 0.01 texture{tinta_B} rotate 90*x translate<0,0,s>}
  #declare p = p + 1.15;
  #declare s = s + 0.8;
 #end
}

  union {
 object{cilindro}
 object{esferas}
 object{circulos}
 #declare n=40;
 #while(n<360)
 object{esferas rotate n*z}
 object{cilindro rotate n*z}
 #declare n = n+40;
 #end
    }

#include "camlight.inc"
camlight(<0,0,2.5>,<8,4,-0.5>,1.00,z,1.0)