convolution surface

----------------------------------------------------------

my_model(x[3], a[1])
{
  array vertex[15]; -- 線の頂点の座標
  array S[4];       -- 線のふくらみを決定する値

  vertex = [
    3, -3, 0, --Mの右下の点
    3,  3, 0, --Mの右上の点
    0, -3, 0, --Mの真中の点
   -3,  3, 0, --Mの左上の点
   -3, -3, 0  --Mの左下の点
  ];
  S = [2, 2, 2, 2]; --それぞれの線のふくらみ
 object = hfConvCurve(x, vertex, S, 0.3);

  my_model = object;
}