Warp,
  Thanks a million.
Les

Warp wrote:

> #declare ObjectsAmount = 100;
> #declare MinX = -20;
> #declare MaxX = 20;
> #declare MinZ = -20;
> #declare MaxZ = 20;
> 
> #declare S = seed(0);
> #declare Ind = 0;
> #while(Ind < ObjectsAmount)
>   object
>   { MyObject
>     translate <MinX+rand(S)*(MaxX-MinX), 0, MinZ+rand(S)*(MaxZ-MinZ)>
>   }
>   #declare Ind = Ind+1;
> #end

Post a reply to this message