植木鉢の形状

 植木鉢の形状を定義します。
//**********************************************************************************
  #local Cv1=< 0.000, 0.374, 1.000 >;
  #local Cv2=< 0.200, 0.478, 1.000 >;
  #local Cv3=< 0.400, 0.608, 1.000 >;
  #local Cv4=< 0.869, 0.769, 0.331 >;
  #local Flower_pot =
  union {
   object { Pot_seg
   pigment { agate
          color_map { [ 0.0 color rgb Cv1 ]
                [ 0.9 color rgb Cv2 ]
                [ 0.9 color rgb Cv3 ] } scale 2 }
   finish { specular 1 roughness 0.0001 phong 0.25
               phong_size 75 reflection 0.3 brilliance 2 }
   translate < 0, -4, 0 > }
   box{ < -4, 2.6, -4 >, < 4, 2.8, 4 >
        pigment { color rgb Cv4 } normal { bumps 0.4 scale 0.8 }
  scale < 0.78*1.7, 0.72, 0.59*1.7 > translate -2.2*y }
  }
 //**********************************************************************************