begin%Face%

Face_Laugh_1(i, x, y, t) :-	i = 0,
				x > 100,
				x - y > -450,
				y < 650,
				x + y < 1250,
				x < 700,
				2x - y - 2t < 1150,
				y > 0,
				2x + y + 2t > 450,
				t >= 0,
				t <= 20.

Hair(i, x, y, t) :-		i = 501,
				x > 200,
				y < 700,
				x < 600,
				y > 650,
				t >= 0,
				t <= 20.

Hair(i, x, y, t) :-		i = 502,
				1.5x - y > -400,
				x < 200,
				x - y < -450,
				t >= 0,
				t <= 20.

Hair(i, x, y, t) :-		i = 503,
				1.5x + y < 1600,
				x > 600,
				x + y > 1250,
				t >= 0,
				t <= 20.

Ear(i, x, y, t) :-		i = 601,
				x > 50,
				y < 500,
				x < 100,
				3x + y > 600,
				t >= 0,
				t <= 20.

Ear(i, x, y, t) :-		i = 602,
				y < 500,
				x < 750,
				3x - y < 1800,
				x > 700,
				t >= 0,
				t <= 20.

Mouth_Laugh_1(i, x, y, t) :-	i = 1,
				y > 90,
				x - y - 2t < 400,
				0.5x - y - 0.5t > 120,
				t >= 0,
				t <= 20.

Mouth_Laugh_1(i, x, y, t) :-	i = 2,
				0.5x - y - 0.5t < 120,
				y - 0.6t < 140,
				0.5x + y + 0.5t > 280,
				y > 90,
				t >= 0,
				t <= 20.

Mouth_Laugh_1(i, x, y, t) :-	i = 3,
				y > 90,
				x + y + 2t> 400,
				0.5x + y + 0.5t < 280,
				t >= 0,
				t <= 20.

Eye_Laugh_1(i, x, y, t) :-	i = 11,
				y + 0.8t < 450,
				x + y - 0.5t < 1050,
				x - y - 0.5t < 250,
				y - 0.8t > 350,
				x + y + 0.5t > 850,
				x - y + 0.5t > 50,
				t >= 0,
				t <= 20.

Eye_Laugh_1(i, x, y, t) :-	i = 12,
				y + 0.8t < 450,
				x + y - 0.5t < 750,
				x - y - 0.5t < -50,
				y - 0.8t > 350,
				x + y + 0.5t > 550,
				x - y + 0.5t > -250,
				t >= 0,
				t <= 20.

Eye_Brow(i, x, y, t) :-		i = 701,
				x + 0.5t > 175,
				y + 0.5t < 500,
				x - 0.5t < 325,
				y > 475,
				t >= 0,
				t <= 20.

Eye_Brow(i, x, y, t) :-		i = 702,
				x + 0.5t > 475,
				y + 0.5t < 500,
				x - 0.5t < 625,
				y > 475,
				t >= 0,
				t <= 20.

Nose(i, x, y, t) :-		i = 21,
				y > 200,
				2x + y < 1160,
				2x - y > 440,
				t >= 0,
				t <= 20.

Eye_Eye(i, x, y, t) :-		i = 101,
				x > 220,
				x - y > -190,
				y < 430,
				x + y < 690,
				x < 280,
				x - y < -110,
				y > 370,
				x + y > 610,
				t >= 0,
				t <= 20.

Eye_Eye(i, x, y, t) :-		i = 102,
				x > 520,
				x - y > 110,
				y < 430,
				x + y < 990,
				x < 580,
				x - y < 190,
				y > 370,
				x + y > 910,
				t >= 0,
				t <= 20.

Eye_Surprise_1(i, x, y, t) :-	i = 11,
				y - 1.2t < 450,
				x + y - 0.5t < 1050,
				x - y - 0.5t < 250,
				y + 1.2t > 350,
				x + y + 0.5t > 850,
				x - y + 0.5t > 50,
				t >= 0,
				t <= 20.

Eye_Surprise_1(i, x, y, t) :-	i = 12,
				y - 1.2t < 450,
				x + y - 0.5t < 750,
				x - y - 0.5t < -50,
				y + 1.2t > 350,
				x + y + 0.5t > 550,
				x - y + 0.5t > -250,
				t >= 0,
				t <= 20.

end%Face%
