丸底フラスコの形状

 丸底フラスコの形状を定義します。
 //**********************************************************************************
  #local Frasco =
  merge {
   torus { 12, 1.5 translate 180*y }
   cylinder { 100*y, 180*y, 12 }
   sphere { < 0, 50, 0 > 62 }
  }
 //**********************************************************************************