花の形状

 花の形状を定義します。
 //**********************************************************************************
  #local Cv1=< 1.000, 0.600, 1.000 >;
  #local Cv2=< 0.858, 0.858, 0.342 >;
  #local Cv3=< 0.242, 0.958, 0.242 >;
  #local Petal_seg =
  difference {
   sphere { < 0, 0, 0 >, 4 }
   sphere { < 0, 0, 0 >, 8 translate < 3, 3, 0 > }
   pigment { color rgb Cv1 }
   finish { specular 0.2 roughness 0.0002 reflection 0.2 }
  }
  #local Petal_obj =
  union {
   sphere { < 0, 0, 0 >, 1.6
    pigment { color rgb Cv1 } scale < 1, 0.5, 1 > translate (-4+1.6/2-1.6/4)*y }
   object { Petal_seg rotate 360*0/5*y }
   object { Petal_seg rotate 360*1/5*y }
   object { Petal_seg rotate 360*2/5*y }
   object { Petal_seg rotate 360*3/5*y }
   object { Petal_seg rotate 360*4/5*y }
   cone { < 0, -1, 0 >,1,< 0, -4, 0 >,0.5
         pigment { color rgb Cv2 } normal { bumps 0.6 scale 0.3 } }
   object { Torus_seg pigment { color rgb Cv3 }
         scale 0.5 rotate 180*z translate < (1.5+2)/2, -4, 0 > }
  rotate -90*z }
 //**********************************************************************************