global_settings{max_trace_level 25}

camera{location<0,5,-8> look_at 0}
light_source{<0,10,-100> rgb 1}

light_source{< 200,220, 200> blue 1}
light_source{<-200,220, 200> red 1}
light_source{< 200,220,-200> rgb<1,1,0>}
light_source{<-200,220,-200> green 1}


#default {finish{ambient .35 diffuse .25  specular .5 roughness .001}}

#include "metals.inc"

#declare Set1 =
union{
  cone { y*0,.6,y*1.5,0 texture { T_Brass_5E}}
sphere { y*1.75,.25 pigment{blue 1 filter 1}interior {ior 1.2}}
sphere { x*-1.5,.4 texture { T_Copper_3C}}
sphere { x* 1.5,.4 texture { T_Copper_3C}}
translate 2*y}

#declare Set2=
  union{
   #declare a=0;
    #while (a<12)
     object{Set1 rotate z*a*30}
    #declare a=a+1;
   #end }


#declare Tor =
union{
#declare a=0;
  #while (a<192)
    object{Set2 scale .25 rotate z*a*3.75/2 translate x*3 rotate y*a*3.75/2}
  #declare a=a+1;
#end  scale 1}


object{Tor}

plane { y,-2
  texture{T_Chrome_5E}
 normal{ripples 1 scale .5 frequency 10 turbulence .15}
}