#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

-- 
#macro M(A,N,D,L)plane{-z,-9pigment{mandel L*9translate N color_map{[0rgb x]
[1rgb 9]}scale<D,D*3D>*1e3}rotate y*A*8}#end M(-3<1.206434.28623>70,7)M(
-1<.7438.1795>1,20)M(1<.77595.13699>30,20)M(3<.75923.07145>80,99)// - Warp -

Post a reply to this message