here is the code:

#macro L(a)
 light_source{
  -y*5
  color -a*30
  fade_power 2
  fade_distance 10
#end

union{
 #declare I=0;
 #while(I<1)
  L(<1-I,.5,I>)
  rotate I*x*180
  rotate I*y*3960
  }
  #declare I=I+1/58;
 #end

 sphere{
  0,4
  pigment{rgbt 1}
  finish{
   specular 0.1
   roughness 1e-3
  }
  clipped_by{ box{-9+9.6*z,9} }
 }
 translate 9*z
}

background{rgb 1}

Post a reply to this message