#macro p(s,c,d)#local b=s/2;#if(d=0)difference{box{1,y-1}plane{x-y,-.1}plane{-x-y,-.1}plane{z-y,-.1}plane{-z-y,-.1}translate c-y finish{reflection{1 .4}}}#else p(b,c+y*b,d-1)p(b,c+(x-z)*b,d-1)p(b,c+(y-1)*b,d-1)#end#end p(4,8*z,5)sky_sphere{pigment{agate}}