#include "rand.inc" // random functions
// 'Reorientate_Trans' needs:
#include "transforms.inc"
#declare Random_1 = seed (23528);
//-----------------------------------------
union{
 #local Nr = 0;     // start
 #local EndNr = 150; // end
 #while (Nr < EndNr)

 // differ a bit form spherical position:
 #local RandScale=(1+0.1*rand(Random_1));
 #local Position =
   RandScale * VRand_On_Sphere(Random_1);

 union{ // inner union
  cone{<0,0,0>>, 0.02, Position, 0.01
    texture{
      pigment{ color rgb<0.75,0.5,0.3>}
      normal { bumps 0.5 scale 0.05}
      finish { phong 1 }
    } // end of texture
  } //---------------
  sphere{<0,0,0>, 0.1  //, 1.5
          scale<1,0.5,1>// y orientated
   // turn in direction to Position:
    Reorient_Trans(<0,1,0>, Position )
    translate Position // move to Position
    texture{
      pigment{ color rgb<1,0.15,0>}
      normal { bumps 0.5 scale 0.05 }
      finish { phong 1 }
    } // end of texture
  } //---------------
 } // end inner union

 #local Nr = Nr + 1;  // next Nr
 #end // --------------- end of loop
 translate<0,1.25,0>
} // end of union
//-----------------------------------------