---------------------------------------------------------------------------
-- Fish
-- Goto Yuichiro
-- m5041110@u-aizu.ac.jp
---------------------------------------------------------------------------

object1(x[3], a[1])
{
  array vertex[24];
  array index[18];
  array s[6];

  vertex = [0, 6, -15, 0, 0, -23, 0, -6, -15, 0, 8, -5, 0, -8, -5, 0, 2, 10, 0, -2, 10, 0, 0, 20];
  index = [1, 2, 3, 3, 1, 4, 4, 3, 5, 5, 4, 6, 6, 5, 7, 7, 6, 8];
  s = [0.5, 0.5, 0.5, 0.5, 0.5, 0.5];

  object1 = hfConvMesh(x, vertex, index, s, 0.3);
}

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

object2(x[3], a[1])
{
  array vertex[36];
  array index[12];
  array s[4];

  vertex = [0, 8, -5, 0, 15, 5, 0, 4, 5, 0, -8, -5, 0, -15, 5, 0, -4, 5, 0, 2, 10, 0, 11, 22, 0, 0, 20, 0, -2, 10, 0, -11, 22, 0, -0, 20];

  index = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12];
  s = [0.5, 0.5, 0.5, 0.5];

  object2 = hfConvMesh(x, vertex, index, s, 0.75);
}

object3(x[3], a[1])
{
  array vertex[18];
  array index[6];
  array s[2];

  vertex = [2, -5, -13, 5, -5, -3, 5, -10, -5, -2, -5, -13, -5, -5, -3, -5, -10, -5];
  index = [1, 2, 3, 4, 5, 6];
  s = [1.0, 1.0];

  object3 = hfConvMesh(x, vertex, index, s, 1.0);
}

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

object4(x[3], a[1])
{
  array vertex[9];
  array index[3];
  array s[1];

  vertex = [0, 7, -14, 0, 0, -21, 0, -7, -14];
  index = [1, 2, 3];
  s = [1.0];

  object4 = hfConvMesh(x, vertex, index, s, 0.5);
}

object5(x[3], a[1])
{
  array begin[27];
  array end[27];
  array s[9];

  begin = [0, 0, -15, 0, -7, -11, 0, -9, -5, 0, -7, 1, 0, -3, 7, 0, 8, -2, 0, 5, 4, 0, 8, -8, 0, 2, 10];
  end = [0, 0, 15, 0, 7, -11, 0, 9, -5, 0, 7, 1, 0, 3, 7, 0, -8, -2, 0, -6, 4, 0, -8, -8, 0, -2, 10];
  s = [1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0];

  object5 = hfConvLine(x, begin, end, s, 1.0);
}

object6(x[3], a[1])
{
  array begin[3];
  array end[3];
  array s[1];

  begin = [5, 0, -17];
  end = [-5, 0, -17];
  s = [1.0];

  object6 = hfConvLine(x, begin, end, s, 0.75);
}

object7(x[3], a[1])
{
  object7 = object4(x, a) | object5(x, a) \ object6(x, a);
}

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

my_model(x[3], a[1])
{
  my_model = object1(x, a) | object2(x, a) | object3(x, a) | object7 (x, a);
}