5)蛇口の管

 CSGにより、蛇口の管の形状を造ります。
 //**********************************************************************************
  #declare Faucet =
  union {
   object {
   torus { T_r,T_w sturm rotate -90*x }
   clipped_by { plane { x, 0 } rotate -90*z }
   clipped_by { plane { x, 0 } rotate 0*z }
   translate T_r*x }
   cylinder { < T_r, T_r, 0 >,< T_r*5, T_r, 0 >,T_w }
   object {
   torus { T_r,T_w sturm rotate -90*x }
   clipped_by { plane { x, 0 } rotate 90*z }
   clipped_by { plane { x, 0 } rotate 180*z }
   translate < T_r*5, T_r*2, 0 > }
   torus { T_w,T_w/2 sturm translate < T_r*6, T_r*2, 0 > }
   cylinder { < T_r*6, T_r*2, 0 >,< T_r*6, T_r*3, 0 >,T_w }
   pigment { color rgb < 0.922, 0.921, 0.918 > }
   finish { metallic ambient 0.25 diffuse 0.65 reflection 0.45
              brilliance 6 phong 1 phong_size 100 }
  }
 //**********************************************************************************
 色を透過しないため、union により各部分の形状を結合しています。