/* --------------------------
Entry: 0027
WWW: 
Title: MTness
Author:    

two irrecoverable hours
---------------------------*/

#macro sl(s)strlen(s)#end
#macro s1(s,j)val(substr(s,j,1))#end
#macro s2(s,j)val(substr(s,j,2))#end
#macro cc(a,b)concat(a,b)#end
#macro mt(s)#local os=""#local i=1;#while(i<sl(s)+1)#switch(s1(s,i))#case(1)#local os=cc(os,"12");#break#else#local os=cc(os,"21");#end#local i=i+1;#end#declare s=os;#end
#macro e(s)#local os = ""#local i=1;#while(i<sl(s))#switch(s2(s,i))#case(12)#local os=cc(os,"0");#break#case(21)#local os=cc(os,"1");#break#else#local os=cc(os,"2");#end#local i=i+1;#end#declare s=os;#end
#macro ly(s)#declare s=texture{checker texture{s rotate 7} texture{s scale .618}}#end
#declare as="1";
#declare tx=texture{pigment{crackle} finish{ambient 1}}
#declare i=0;
#while(i<12)mt(as) ly(tx)#declare i = i + 1;#end e(as)
#declare tr=transform{translate 0}
#declare i = 1;
#while (i < sl(as) + 1)
#declare ss=s1(as,i);
box{0,3 transform{tr}pigment{color rgbft<ss/2,(2-ss)/2,.7,.8,.1>}finish{diffuse 1}}
#declare tr=transform{tr translate -x * .8 #switch(ss)#case(0)rotate 2*x#break#case(1)rotate 2*y#break#else rotate 2*z#end}
#declare i = i + 1;
#end
light_source {<-1000, 1000, 1000>rgb 1 shadowless}
light_source {<500, 1000, 1000>rgb 1 shadowless}
light_source{<0, 0, 50>rgb .75 shadowless}
light_source {<-500, -500, -500>, rgb 1 shadowless}
plane{<-500, -500, -550>, 1000 texture{tx scale 200}}
camera {location <0, 0, 50> look_at <-500, -500, -500>up y right x*image_width/image_height angle 25}