デザイン化された雲の描画

 定義したデータにより、二次近似曲線を用いて、デザイン化された雲の形状を描画します。
 //**********************************************************************************
  #local Lr=3; #local Sc=3;
  #local Curveobj = union { Contact_line(Lr/2/Sc, 4, 8)
                pigment { Cv2 } rotate -90*x scale Sc }
  union {
   object { Curveobj translate < 20, -20, 50 > }
   object { Curveobj translate < 80, -20, 50 > }
  translate <10,12,0> }
 //**********************************************************************************