-- ex1-1.hf

my_model( x[3], a[1], s[3])
{
 array xt[3];
 array xi[3];
 array xj[3];
 array xk[3];

 soukou = 1- (x[1]/10)^2 -(x[2]/8)^2 -(x[3]/6)^2;
 temp = hfA_Color3(soukou,s,1,0,0);
 limSO = x[2];

 sya = 1- (x[1]/8)^2 -(x[2]/3)^2 -(x[3]/4)^2;
 temp = hfA_Color3(sya,s,0.1,0.1,0.1);
 limSY = -x[2];

tai_L1 = 5- x[1]^2 -(x[2]+3)^2;
 temp1 = hfA_Color3(tai_L1,s,0,0,0);
 lim1 = x[3] -4;
 lim2 = -x[3] + 6.5;
 limT1 = lim1 & lim2;

tai_L2 = 5- x[1]^2 -(x[2]+3)^2;
 temp2 = hfA_Color3(tai_L2,s,0,0,0);
 lim3 = x[3] + 6.5;
 lim4 = -x[3] -4; 
 limT2 = lim3 & lim4;

tai_L3 = 5- (x[1]-5)^2 -(x[2]+3)^2;
 temp3 = hfA_Color3(tai_L3,s,0,0,0);
 lim5 = x[3] + 6.5;
 lim6 = -x[3] -4; 
 limT3 = lim5 & lim6;

tai_L4 = 5- (x[1]+5)^2 -(x[2]+3)^2;
 temp4 = hfA_Color3(tai_L4,s,0,0,0);
 lim7 = x[3] -4;
 lim8 = -x[3] + 6.5;
 limT4 = lim7 & lim8;

tai_L5 = 5- (x[1]+5)^2 -(x[2]+3)^2;
 temp5 = hfA_Color3(tai_L5,s,0,0,0);
 lim9 = x[3] + 6.5;
 lim10 = -x[3] -4; 
 limT5 = lim9 & lim10;

tai_L6 = 5- (x[1]-5)^2 -(x[2]+3)^2;
 temp6 = hfA_Color3(tai_L6,s,0,0,0);
 lim11 = x[3] -4;
 lim12= -x[3] + 6.5;
 limT6 = lim11 & lim12;

kyu1 = 2 - x[1]^2 -(x[2]+3)^2 -(x[3]-6)^2;
tempkyu1 = hfA_Color3(kyu1,s,1,0,0);

kyu2 = 2 - x[1]^2 -(x[2]+3)^2 -(x[3]+6)^2;
tempkyu2 = hfA_Color3(kyu2,s,1,0,0);

kyu3 = 2 - (x[1]-5)^2 -(x[2]+3)^2 -(x[3]-6)^2;
tempkyu3 = hfA_Color3(kyu3,s,1,0,0);

kyu4 = 2 - (x[1]-5)^2 -(x[2]+3)^2 -(x[3]+6)^2;
tempkyu4 = hfA_Color3(kyu4,s,1,0,0);

kyu5 = 2 - (x[1]+5)^2 -(x[2]+3)^2 -(x[3]-6)^2;
tempkyu5 = hfA_Color3(kyu5,s,1,0,0);

kyu6 = 2 - (x[1]+5)^2 -(x[2]+3)^2 -(x[3]+6)^2;
tempkyu6 = hfA_Color3(kyu6,s,1,0,0);

--kanpan = 1- ((x[1]+2.5)/7)^2 -((x[2]-3)/5)^2 -(x[3]/5)^2;
kanpan = 1- (x[1]/9.75)^2 -((x[2]-1)/8)^2 -(x[3]/5)^2; 
temp = hfA_Color3(kanpan,s,0.94,0.82,0.56);
 lim000 = x[2];

medama1 = 1 - (x[1]-8)^2 -(x[2]-1)^2 -(x[3]-3)^2;
 temp = hfA_Color3(medama1,s,1,1,0);
 
medama2 = 1 - (x[1]-8)^2 -(x[2]-1)^2 -(x[3]+3)^2;
 temp = hfA_Color3(medama2,s,1,1,0);

medama3 = 4 - (x[1]-6)^2 -(x[2]-3.75)^2 -(x[3]-1.5)^2;
 temp = hfA_Color3(medama3,s,1,0.5,0);

medama4 = 4 - (x[1]-6)^2 -(x[2]-3.75)^2 -(x[3]+1.5)^2;
 temp = hfA_Color3(medama4,s,1,0.5,0);

taihou = 8 - (x[1])^2 -(x[2]-7)^2 -(x[3])^2;
temp = hfA_Color3(taihou,s,1,0,0);

xt[1] = x[1];
xt[2] = x[2];
xt[3] = x[3];

xi[1] = x[1];
xi[2] = x[2];
xi[3] = x[3];

xj[1] = x[1];
xj[2] = x[2];
xj[3] = x[3];

xk[1] = x[1];
xk[2] = x[2];
xk[3] = x[3];

tmp = hfRotate3DY(xt, 45.0 * 3.141592 / 180);

sirin_1 = 2 - (xt[1]+8.5)^2 -(xt[2])^2;
 temp7 = hfA_Color3(sirin_1,s,0.6,0,0);
 lim13 = xt[3] + 6;
 lim14 = -xt[3] + 2; 
 limT7 = lim13 & lim14;

temp = hfShift3D(xi,0,0,-9.5);
tmp0 = hfRotate3DY(xi, 45.0 * 3.141592 / 180);

sirin_2 = 2 - (xi[2])^2 -(xi[3]+2)^2;
 temp7 = hfA_Color3(sirin_1,s,1,0,0);
 lim15 = xi[1] + 12.5;
 lim16 = -xi[1] - 4.5; 
 limT8 = lim15 & lim16;
 
temp = hfShift3D(xj,15,0,-10);
tmp = hfRotate3DY(xj, 45.0 * 3.141592 / 180);

sirin_3 = 2 - (xj[1]+8.5)^2 -(xj[2])^2;
 temp7 = hfA_Color3(sirin_3,s,1,0,0);
 lim17 = xj[3] + 6;
 lim18 = -xj[3] + 2; 
 limT9 = lim17 & lim18;

temp = hfShift3D(xk,15,0,0);
tmp0 = hfRotate3DY(xk, 45.0 * 3.141592 / 180);

sirin_4 = 2 - (xk[2])^2 -(xk[3]+2)^2;
 temp7 = hfA_Color3(sirin_4,s,1,0,0);
 lim19 = xk[1] + 12.5;
 lim20 = -xk[1] - 4.5;  
 limT10 = lim19 & lim20;

taiho = 1 - (x[1]/3)^2 - (x[2]-8)^2 - (x[3]/2)^2;

my_model = (soukou & limSO)|(kanpan&lim000)|(sya&limSY)|(tai_L1 & limT1)|(tai_L2 & limT2)|(tai_L3 & limT3)|(tai_L4 & limT4)|(tai_L5 & limT5)|(tai_L6 & limT6)|kyu1|kyu2|kyu3|kyu4|kyu5|kyu6|(sirin_1&limT7)|(sirin_2&limT8)|(sirin_3&limT9)|(sirin_4&limT10)|medama1|medama2|medama3|medama4|taihou;
--my_model = (soukou & limSO)|medama1|medama2|medama3|medama4|taihou;
}