>   This didn't quite preserve your fancy variable naming, but at least it's
> a bit shorter:
> 
> light_source{0,1}#macro H(A,R,T,Y,W)box{<W,R-.5,6><W+.1Y-.5,7>}box{<A,W-.5,
> 6><T,W-.4,7>}#end union{H(-2,0,.1,0,3)H(-1,-1,2.1,2.1,2)H(9,-2,9,-1,1)H(-1,
> 0,0,2,1)H(-2,-1,-1,3,0)H(0,-2,2,1,-1)H(-1,0,1,3,-2)pigment{rgb 1-y}}//Flu

Shorter still:

light_source{0,1}#macro H(A,R,T,Y,W)box{<W,-R-.5,6><W+.1Y-.5,7>}box{<-A,W-.5
6><T,W-.4,7>}#end union{H(2,0,.1,0,3)H(1,1,2.1,2.1,2)H(-9,2,9,-1,1)H(1,0,0,2
1)H(2,1,-1,3,0)H(0,2,2,1,-1)H(1,0,1,3,-2)pigment{rgb 1-y}}//Flu


-- 
merge{#local i=-11;#while(i<11)#local
i=i+.1;sphere{<i*(i*i*(.05-i*i*(4e-7*i*i+3e-4))-3)10*sin(i)30>.5}#end
pigment{rgbt 1}interior{media{emission x}}hollow}//  Mark Weyer

Post a reply to this message