I think you should take a look at Kevin Wamplers sig...

#version unofficial MegaPov 0.6;camera{location-z*8direction z*2look_at 0}
light_source{<-2,5,-2>*1e3 rgb 1}%K=text{ttf"cyrvetic.ttf""KEVIN".25,0
translate-1.5*x scale 1.5}%G=pigment{rgb<.8,.6,.4>}%R=seed(0);#macro B()<rand(
R)-.5,rand(R)-.5,rand(R)-.5>#end#macro A(C)%T=0;%V=<0,1,0>;#while(T<250)%S=0;%
P=B();%U=trace(K,C,P)-C;#while(S<15)%P1=B();%W=trace(K,C,P1)-C;#if(vlength(W)
<vlength(U))%P=P1;%U=trace(K,C,P)-C;#end%S=S+1;#end%V=V+P;%V=V/vlength(V);%D=(
250-T)/1e4;union{cylinder{C,C+V*.03,D}sphere{C,D}triangle{C,C+B()*D*10,C+B()*D
*4 pigment{rgb<0,.7,0>}}pigment{G}no_shadow}%C=C+V*.03;%T=T+1;#end#end%N=0;
#while(N<35)A(<(rand(R)-.5)*3, 0, rand(R)/4>*1.7)%N=N+1;#end  // Kevin Wampler


Nekar
--
#local N=<-20,40,100>;#local K=<20,-40,100>;#local R=seed(0);blob{#while((K-N).
x>0)#local X=N;#local N=N+<rand(R),rand(R),1>/3;#local N=(vlength(N-K)<vlength(
X-K)?N:2*X-N);sphere{<N.y,-N.x,N.z>,1,1 scale .02}sphere{N,1,1 scale.02}sphere{
<-N.x-40,N.y,N.z>1,1 scale.01}sphere{<N.x+40,-N.y,N.z>1,1 scale.01 }#end
pigment{rgbt 1}interior{media{emission <2,4,5>*5}}hollow}// Nekar Xenos
"Tor Olav Kristensen" <tor### [at] hotmailcom> wrote in message
news:3AF08D55.6B22895D@hotmail.com...
>
> The photo below shows the roots of a little
> "bushy" tree I found.
>
> I find this quite fascinating and I wish
> that I could come up with a noisy pattern
> for an iso that would produce such images.
>
> Hope this is not too off-topic.
>
>
> --
> Best regards,
>
> Tor Olav
>
> mailto:tor### [at] hotmailcom
> http://hjem.sol.no/t-o-k/tokpicts.html
> http://www.crosswinds.net/~tok


--------------------------------------------------------------------------------

Post a reply to this message