7)椅子と床

 椅子と床の描画をします。
 //**********************************************************************************
  union {
   plane { y,0 pigment { Pc } translate (-Us*Ls+2)*y }
   object { Long_seg clipped_by { plane { -y,0 } translate (-Us*Ls+2)*y } }
   box { <-10+2,-0.7,-6> <10-2,0.7,6> translate (Us-2.5)*y }
   cylinder {-10*x 10*x, 1/2 translate <0,Us-2.5,-6+2.5> }
   object { Short_seg clipped_by { plane { -y,0 } translate (-Us*Ls+2)*y } }
   cylinder {(-10-2)*x (-10+3)*x, 1/2 }
   cylinder {(10-3)*x (10+2)*x, 1/2 }
  pigment { P_wood } scale 3.2 rotate <-15,-36,0> translate -20*y }
 //**********************************************************************************