> blob{threshold#macro _(C,W)sphere{20*<C,W,10>,16,1pigment{rgb 9}}#end.7_(-5,0
> )_(5,1)_(5,0)_(3,0)_(1,0)_(1,1)#local I=5;#while(I)_(I,-1)#local I=I-1;_(-I-1
> ,1)_(-I-1,-1)#end}

blob#macro L(I)#if(I)_(-1I)_(1,-I)_(-1,-I)L(I-1)#end#end{threshold#macro _(W,
C)sphere{20*<C,W,10>16,1pigment{rgb 9}}#end.7_(0,-5)_(1,5)_(0,5)_(0,3)_(0,1)_
(1,1)L(5)}


-- 
#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