Wayne Fluharty <wfl### [at] worldnetattnet> wrote:
> light_source{0 1}#default{pigment{rgb 1-y}}#declare W=3;#macro F(
> L,U)box{<W,L-.5,6><W+.1,U-.5,7>}#end#macro H(A,R,T,Y)F(R,Y)box{<A
> ,W-.5,6><T,(W-.4),7>}#declare W=W-1;#end H(-2,0,.1,0)H(-1,-1,2.1
> ,2.1)F(-2,-1)H(-1,0,0,2)H(-2,-1,-1,3)H(0,-2,2,1)H(-1,0,1,3)//Flu

  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


-- 
#macro M(A,N,D,L)plane{-z,-9pigment{mandel L*9translate N color_map{[0rgb x]
[1rgb 9]}scale<D,D*3D>*1e3}rotate y*A*8}#end M(-3<1.206434.28623>70,7)M(
-1<.7438.1795>1,20)M(1<.77595.13699>30,20)M(3<.75923.07145>80,99)// - Warp -

Post a reply to this message