#macro p(a)[gradient x rotate a*90color_map{[0rgb 0][1rgb 3*vrotate(x,90*a)]}]#end#local c=clock;union{box{.01-z,1}cylinder{0,1#macro l(a,b)abs(mod(a*c+b,2)-1)#end.01}pigment{average pigment_map{p(0)p(z)p(-y)}}translate.5*(z-x-y)scale 1.1hollow}light_source{90fade_distance.05fade_power 2looks_like{box{-.05,.05rotate<18,9>*c*40finish{reflection 1}}}translate.5*(z-x-y)}