滑らかな曲面の描画呼び出し

 滑らかな曲面による林檎の形状を定義します。
 //**********************************************************************************
  #local Apple_seg = Smooth_surface2(pi*<-1, 1, 1/24 >,pi*< 0, 0.99, 1/24 >,1)
 //**********************************************************************************