秒針の形状

 秒針の形状を定義します。
 //**********************************************************************************
  #local Lsec=115;
  #local Sec_hand =
  plane { y, 0 clipped_by {
   union {
   sphere { 0,1.5 scale < 8,1,1 > }
   sphere { 0,3 }
   cone { 0,1.5, Lsec*x,2 }
   cone { Lsec*x,2,(Lsec+10.5)*x,0 } }
   }
  translate 2*y }
 //**********************************************************************************