-- Ant
-- box x:-15,25; y:-13,13; z:-16,16.
-- Katsuro Masato
-- Hosei university, 1st year
ant(x[3],a[1])
{
	array s[2],s2[3],xt[3],cen1[3],cen2[3],cen3[3],cen4[3];
	array vectex[9],vectex2[9],vectex3[12],vectex4[12],vectex5[12],vectex6[12],vectex7[12],vectex8[12];
	
	--体
	cen1 = [0,0,0];
	body = hfSphere(x,cen1,5.2);
	
	--足
	s2 = [2.2,2.2,2.2];
	vectex3 = [0,-2,4.8, 0,5.2,7.8, 0,-6.2,10.8, 0,-6.2,14.8];
	asi = hfConvCurve(x,vectex3,s2,0.1);
	
	vectex4 = [0,-2,-4.8, 0,5.2,-7.8, 0,-6.2,-10.8, 0,-6.2,-14.8];
	asi2 = hfConvCurve(x,vectex4,s2,0.1);
	
	vectex5 = [1,-2,4.8, 3,5.2,7.8, 5.8,-6.2,10.8, 7.8,-6.2,14.8];
	asi3 = hfConvCurve(x,vectex5,s2,0.1);
	
	vectex6 = [1,-2,-4.8, 3,5.2,-7.8, 5.8,-6.2,-10.8, 7.8,-6.2,-14.8];
	asi4 = hfConvCurve(x,vectex6,s2,0.1);
	
	vectex7 = [-1,-2,4.8, -3,5.2,7.8, -5.8,-6.2,10.8, -7.8,-6.2,14.8];
	asi5 = hfConvCurve(x,vectex7,s2,0.1);
	
	vectex8 = [-1,-2,-4.8, -3,5.2,-7.8, -5.8,-6.2,-10.8, -7.8,-6.2,-14.8];
	asi6 = hfConvCurve(x,vectex8,s2,0.1);
	
	--しっぽ
	sippo = 5.5^2 - (((x[1]-14)/2)^2 + x[2]^2 + x[3]^2);

	--め
	cen2 = [-7.5,6.5,4];
	eye1 = hfSphere(x,cen2,1.4);
	cen3 = [-7.5,6.5,-4];
	eye2 = hfSphere(x,cen3,1.4);

	--頭
	cen4 = [-9,5,0];
	xt[1] = x[1];
	xt[2] = x[2];
	xt[3] = x[3];
	tmp = hfTaperX(xt,-14,-4,0.5,1.0);
	head = hfSphere(xt,cen4,5.5);
        
	--触覚
	s = [2.4,2.4];
	vectex = [-7.5,7,2.5, -9,12,3, -13,9,5];
	syokak = hfConvCurve(x,vectex,s,0.1);
	
	vectex2 = [-7.5,7,-2.5, -9,12,-3, -13,9,-5];
	syokak2 = hfConvCurve(x,vectex2,s,0.1);
	
	head2 = head | eye1 | eye2 | syokak | syokak2;

	ant = head2 | body | sippo | asi | asi2| asi3 | asi4 | asi5 | asi6;
}