-- Aizu chair model of 1993
-- bounding box [-12,12]
-- Translated from Fortran 6.1.2002, A. Pasko
aizu_chair(x[3],a[1])
{
Xt = x[1];
Y = x[2];
Z = x[3];
-- Seat
	SUP1 = 1-((Xt-0.)/6.)^4-((Y+3.)/2.)^4-((Z-0.)/6.)^4;
-- Back
	SUP2 = 1-((Xt-0.)/4.)^4-((Y-5.5)/5.5)^4-((Z+5.)/1.5)^4;
	SS= SUP1 | SUP2;
-- Dent
	SUP2 =1-((Xt-0.0)/6.0)^4-((Y-6.5)/7.8)^2-((Z-1.3)/5.15)^2;
 	SS= hfBlendInt(SS,-SUP2,-0.1,3.,1.);
-- Arms
	SUP5 = 1-((Xt-6.5)/0.5)^4-((Y+0.)/1.2)^4-((Z-0.)/4.)^4;
	SUP6 = 1-((Xt+6.5)/0.5)^4-((Y+0.)/1.2)^4-((Z-0.)/4.)^4;
      DER = SUP5 | SUP6;
	CVS = 1-((Y+0.)/0.8)^2-((Z-0.)/3.5)^2;
      DER = DER & (-CVS);
	SS = SS | DER;
-- Elbow-rests
	SUP5 = 1-((Xt-6.5)/1.)^4-((Y-1.6)/0.4)^4-((Z-0.)/5.5)^2;
	SS = SS | SUP5;
	SUP5 = 1-((Xt+6.5)/1.)^4-((Y-1.6)/0.4)^4-((Z-0.)/5.5)^2;
	SS = SS | SUP5;
-- Arm stands
	SUP5 = 1-((Xt-0.)/6.5)^6-((Y+5.)/0.3)^6-((Z-0.)/0.5)^6;
	SS = SS | SUP5;
	SUP5 = 1-((Xt-6.5)/0.25)^6-((Y+3.)/2.0)^6-((Z-0.)/0.5)^6;
	SS = SS | SUP5;
	SUP5 = 1-((Xt+6.5)/0.25)^6-((Y+3.)/2.0)^6-((Z-0.)/0.5)^6;
	SS = SS | SUP5;
-- Stand of the back
	SUP34 =1-((Xt-0.0)/0.8)^4-((Y-4.)/5.8)^4-((Z+5.)/0.5)^4;
      SS = SS | SUP34;
-- Leg
	CYL9 = 1-((Xt+0.)/0.5)^2-((Z-0.)/0.5)^2;
	CYL9 = (CYL9 & (Y+9.)) & (-4.-Y);
	SS = SS | CYL9;
-- Cross stand
	YK = -8.5;
	CYL10 = 1-((Xt+0.)/0.5)^2-((Y-YK)/0.5)^2;
	CYL10 = (CYL10 & (Z+7.)) & (7.-Z);
	SS = SS | CYL10;
	CYL11 =1-((Y-YK)/0.5)^2-((Z+0.0)/0.5)^2;
	CYL11 = (CYL11 & (Xt+7.)) & (7.-Xt);
	SS = SS | CYL11;
-- Wheels
	YK = -9.4;
	RK = 0.6;
	SK = 0.4;
	SUP12 = 1-((Xt-7.0)/RK)^2-((Y-YK)/RK)^2-((Z-0.)/SK)^6;
	SS = SS | SUP12;
	SUP13 = 1-((Xt-0.0)/SK)^6-((Y-YK)/RK)^2-((Z+7.)/RK)^2;
	SS = SS | SUP13;
	SUP14 = 1-((Xt+7.0)/SK)^6-((Y-YK)/RK)^2-((Z+0.)/RK)^2;
	SS = SS | SUP14;
	SUP15 =1-((Xt-0.0)/RK)^2-((Y-YK)/RK)^2-((Z-7.)/SK)^6;
	aizu_chair = SS | SUP15;
}