-- Tora
-- Koutaro Miki, Hosei University, 1st year
-- box {<-23, -23, -23>, <23, 23, 23>}
tora(x[3], a[1])
{ 
  array vertex[3];
  array xt[3];
  array center[3];
  array radius[1];
  array theta[1];
  array axis[3];
  array angle[1];
  array s[1];
  
  pi = 3.14159;
  degree_to_radian = pi / 180.0;
  
  center = [-14, -17.0, -2.5];
  radius = [10.0];
  theta  = [260.0];
  axis   = [1.0, 0.0, 0.0];
  angle  = [-90.0];
  s      = [0.23];
  xt[1] = x[1];
  xt[2] = x[2];
  xt[3] = x[3];
  tmp = hfRotate3DY(xt, -40 * degree_to_radian);
  tt = hfConvArc(xt, center, radius, theta, axis, angle, s, 0.5);
 
center = [5.5,0,9.5];
  radius = [5.0];
  theta  = [180];
  axis   = [0.0, 0.0, 1.0];
  angle  = [0.0];
  s      = [0.49];
  xt[1] = x[1];
  xt[2] = x[2];
  xt[3] = x[3];
  eyer = hfConvArc(xt, center, radius, theta, axis, angle, s, 0.5);

center = [-5.5,0,9.5];
  radius = [5.0];
  theta  = [180];
  axis   = [0.0, 0.0, 1.0];
  angle  = [0.0];
  s      = [0.49];
  xt[1] = x[1];
  xt[2] = x[2];
  xt[3] = x[3];
  eyel = hfConvArc(xt, center, radius, theta, axis, angle, s, 0.5);

vertex=[-10,5,3];
my_model = hfBlock(x,vertex,20,10,5);

center = [0,0,0];
face=hfEllipsoid(x,center,10,9,8);

center = [6,6,0];
earL=hfSphere(x,center,4);

center = [6,5,4];
hL=hfEllipsoid(x,center,4,4,6);

center = [-6,6,0];
earR=hfSphere(x,center,4);

center = [-6,5,4];
hR=hfEllipsoid(x,center,4,4,6);

center = [0,-10,-4];
body=hfEllipsoid(x,center,10,9,11);

center = [-7,-12,-6];
fl=hfEllipsoid(x,center,8,8,8);

center = [7,-12,-6];
fr=hfEllipsoid(x,center,8,8,8);

center = [-8,-17,-2];
fl2=hfEllipsoid(x,center,2,2,7);

center = [8,-17,-2];
fr2=hfEllipsoid(x,center,2,2,7);

center = [-10,-17,-2];
fl3=hfEllipsoid(x,center,2,2,7);

center = [10,-17,-2];
fr3=hfEllipsoid(x,center,2,2,7);

center = [-12,-17,-2];
fl4=hfEllipsoid(x,center,2,2,7);

center = [12,-17,-2];
fr4=hfEllipsoid(x,center,2,2,7);

center = [5,-12,2];
arR=hfEllipsoid(x,center,4,7,4);

center = [-5,-12,2];
arL=hfEllipsoid(x,center,4,7,4);

center = [-5.5,-17,3];
afl1=hfEllipsoid(x,center,1.5,2,5);

center = [5.5,-17,3];
afr1=hfEllipsoid(x,center,1.5,2,5);

center = [-4,-17,3];
afl2=hfEllipsoid(x,center,1.5,2,5);

center = [4,-17,3];
afr2=hfEllipsoid(x,center,1.5,2,5);

center = [-2.5,-17,3];
afl3=hfEllipsoid(x,center,1.5,2,5);

center = [2.5,-17,3];
afr3=hfEllipsoid(x,center,1.5,2,5);

center = [0,-1,6.5];
n=hfEllipsoid(x,center,2,2,3);

center = [3,-2,6];
nr=hfEllipsoid(x,center,5,2.5,3);

center = [-3,-2,6];
nl=hfEllipsoid(x,center,5,2.5,3);

center = [0,-4,5.5];
m=hfEllipsoid(x,center,3,3,3);

center = [3.7,-6,7];
kvr=hfEllipsoid(x,center,1.35,6,1.35);

center = [-3.7,-6,7];
kvl=hfEllipsoid(x,center,1.35,6,1.35);

tora = earL|earR\my_model\hL\hR|kvr|kvl|face|body|fl|fr|fl2|fr2|fl3|fr3|fl4|fr4|arR|arL|afl1|afr1|afl2|afr2|afl3|afr3|n|nr|nl|m|tt|eyer|eyel;

}