Cool! Why didn't I think of that...  :)

Nekar

--
#local N=<-4,8,20>;#local K=<4,-8,20>;#local R=seed(0);union{#while((K-N).x>0)
#local X=N;#local N=N+<rand(R),rand(R),1>/30;#local N=(vlength(N-K)<vlength(X-K
)?N:2*X-N);sphere{<N.y,-N.x,N.z>,.2}sphere{N,.2}sphere{<-N.x-8,N.y,N.z>,.1//-NX
pigment{rgb N}}sphere{<N.x+8,-N.y,N.z>,.1 pigment{rgb N}}#end pigment{rgb 9}}

Post a reply to this message