柿の形状

 曲面の式から柿の形状を生成します。
 //**********************************************************************************
  #local Persim_seg = Smooth_surface2(< pi, 3*pi, pi/18 >,< pi, 1.99*pi, pi/24 >,3)
  #local Persimmon_obj =
  union {
   object { Persim_seg texture { T_persim } scale 4 }
   object { Calyx_seg pigment { P_calyx } scale <4,1.32,4> rotate 180*x translate 14.5*y }
   object { Twig_seg pigment { P_twig } rotate 20*z translate <1.5,9,1> }
  }
 //**********************************************************************************