葉の形状生成

 葉の形状を生成します。
 //**********************************************************************************
  #declare Grass_scale = 3;;
  #declare Ellip_seg =
  object { sphere { < 0, 0, 0 >, Grass_length
   texture { Texture_grass } scale < Grass_scale, Grass_scale/2 , 1 > }
   clipped_by { plane { z, 0 } rotate (Grass_width)*x}
   clipped_by { plane { z, 0 } rotate (180-Grass_width)*x }
   translate < Grass_length*Grass_scale, 0, 0 >
   rotate < 0, 15, Grass_slop >
  }
 //**********************************************************************************