global_settings{max_trace_level 50} //we need a lot of reflections #macro b(loc) sphere{ 0, .01 translate loc pigment{rgb 1} finish{ambient 1} no_image } #end sphere{ .9*z, 1 finish{reflection{.95}} normal{bozo 0.3} } #local r=seed(0); #while(rand(r)<.97) //cheaper than an index b(/2-.25 + z) //random location in a smallish cube in the sphere #end