Peter Popov wrote:

>I got your intentions wrong. This should do what you want, as
>described in your original post.
>
>#declare Pos=array[11]
>
>#declare i=0;
>#while (i<11) #declare Pos[i]=<i,0,0>; #declare i=i+1; #end
>
>#declare i=0;
>#while (i<10)
>  #declare j=i+1;
>  #while (j<11)
>    #declare Pos[i]=
>    vrotate((Pos[j]-Pos[i]),<0,0,10*clock>)+Pos[i];
>    #declare j=j+1;
>  #end
>  #declare i=i+1;
>#end

Sorry but no, ten spheres end up at <10,0.9,0> and one at <10,0,0>.

Ingo

-- 
Photography: http://members.home.nl/ingoogni/
Pov-Ray    : http://members.home.nl/seed7/

Post a reply to this message