Thanks. I will post the code shortly.
Cheers!
Chip Shults
My robotics, space and CGI web page - http://home.cfl.rr.com/aichip
#macro B(a,b)sphere{<a,b,13>.5pigment{agate}finish{phong.3}}#end#macro N(a,c)
#local k=1;#while(k<7)#if(mod(c,2))B(k,a)B(-k,-a)#end#local c=int(c/2);#local
k=k+1;#end#end light_source{0rgb 1}N(1,61)N(0,37)N(-1,55)N(-2,4)N(-3,4)N(3,1)
