ビーカーの形状

 ビーカーの形状を定義します。
 //**********************************************************************************
  #local Beaker =
  merge {
   torus { 40, 1.5 translate 100*y }
   cylinder { 0*y, 100*y, 40 }
   torus { 40-8, 8 }
   disc { < 0, -8, 0 > y, 40-8 }
  }
 //**********************************************************************************