Mark Weyer <wey### [at] informatikuni-freiburgde> wrote:
> #local R=1;light_source{-5R}#macro A(B,V)#while(B-1)#if(V>=B)#local
> V=V-B;sphere{<3-ln(B)R+R 6>.4pigment{rgb<0R 1>+(x-z)*ln(B)/5}}#end#local
> B=B/2;#end#end#local Z=seed(20267520);#while(R>0)A(256rand(Z)*600)#local
> R=R-.4;#end//TMelly

  The same principles which I used in the previous one can be applied
to this one as well and save some characters:

light_source{-5,1}#macro A(B,V,R,Z)#if(B-1)#if(V>=B)#local V=V-B;sphere
{<3-ln(B)R+R 6>.4pigment{rgb<0R 1>+(x-z)*ln(B)/5}}#end A(B/2V,R,Z)#else
#if(R>.2)A(256rand(Z)*600R-.4Z)#end#end#end A(1,0,1.4seed(20267520))


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