On Tue, 26 Jun 2007 23:25:52 -0700, Tim Attwood wrote:



> 

> // usage: vector, vector, float, int, float, float, random stream

> // LOC is location of base

> // DIR is direction and magnitude of growth

> // A is the limit for a random angle of each segment

> // N is the number of segments

> // R1 is the base radius

> // R2 is the tip radius

> // rsd is a random stream to use  

> #macro Tentacle(LOC, DIR, A, N, R1, R2, rsd)

>    #local c = 0;

>    #local loc = LOC;

>    #local dir = DIR;

>    blob {

>    #while (c < 1 ) 

>       #local rad = R1*(1-c)+R2*c;

>       #local dx = rand(rsd)*A*2-A;

>       #local dy = rand(rsd)*A*2-A;

>       #local dz = rand(rsd)*A*2-A;         

>       #local dir = vrotate(dir,<dx,dy,dz>);

>       sphere {loc, rad, 1}

>       #ifdef (lastloc) cylinder {lastloc, loc, rad, 1} #end

>       #local lastloc = loc;

>       #local lastrad = rad;      

>       #local loc = loc+dir;   

>       #local c = c+(1/N); 

>    #end

>    }

> #end

> 


I may be missing something obvious here ... but why not use a sphere_sweep?

Post a reply to this message