Bah - word-wrap settings... try again.

#macro G(D,E,F)#declare I=array[3]{D,E,F}#declare B=0;triangle{#while(B<3)#declare
C=1;#declare H=strlen(str(I[B],0,0));#while(C<=H)A[val(substr(str(I[B],0,0),C,1))]
+#declare C=C+1;#end<-5,-2,9>#declare B=B+1;#end}#end#declare A=array[7]{x*1,x*2,x
*4,y*1,y*2,y*4,z*1}light_source{-A[1]-A[2]-z*9 rgb 1}union{G(105,10,146)G(105,246,
10)G(105,56,146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb 1}}//TM

Post a reply to this message