#macro M(N,C)#if(N>0)pigment{checker M(N-sin(N)C)M(N-.7C)scale.6}#else pigment{cells color_map{[.5rgbt.5*C+.3][1rgb C]}}#end#end union{box{1,-1M(2.6,1)}box{-.9.9M(2y)}rotate 30translate z*4}light_source{-5rgb 3 area_light x,y,9,9}cone{-z*9,9z*99,9M(1z)}