camera 
{
   location  <-5, 1, -50>
   look_at   <0, 0.0,  0.0>
}


light_source 
{
  
   <0, 5, -5>
   color rgb <1, 1, 1>
  
}

light_source 
{
  
   <-5, 1, -5>
   color rgb <1, 1, 1>
  
}


light_source 
{
  
   <5, 1, -5>
   color rgb <1, 1, 1>
  
}

light_source 
{
  
   <0, 5, -50>
   color rgb <1, 1, 1>
  
}

light_source 
{
  
   <-5, 1, -50>
   color rgb <1, 1, 1>
  
}




plane 
{ 
   y, -1.0
   pigment{color rgb <0, 1, 0>}

}

#declare Tetrahedron =
intersection {
plane {-y,1}
plane {-z,1 rotate <19.47, 0, 0>}
plane {-z,1 rotate <19.47, -120, 0>}
plane {-z,1 rotate <19.47, 120, 0>}
pigment{color rgb <1, 0,0>}
}

#declare Tetrahedrfm =
merge {
intersection {
object { Tetrahedron }
merge {
plane {z,1.4 rotate <35.263, 180, 0>inverse}
plane {z,1.4 rotate <35.263, -60, 0> inverse}
plane {z,1.4 rotate <35.263, 60, 0> inverse}
plane {-z,1.4 rotate <35.263, 180, 0>inverse}
plane {-z,1.4 rotate <35.263, -60, 0> inverse}
plane {-z,1.4 rotate <35.263, 60, 0> inverse}
        pigment{color rgb <0, 1, 1>}
}
}
}                        

#declare Radius = 3.00;
#declare N_rev  = 3;//NumberOFrevolution
#declare N_p_rev=50;//ElementsPERrev.
#declare H_p_rev=5;//Heightdiff./rev.
#declare H = H_p_rev/N_p_rev;
//-----------------------------------
#declare Nr = 0;              //start
#declare EndNr = N_rev*N_p_rev;// end
#while (Nr < EndNr)
object{Tetrahedrfm
       translate<Radius,Nr*H,8>
       rotate<0,Nr*360/N_p_rev,0>}
 #declare Nr = Nr+1;  // next Nr
#end // ------------ end of loop -----