%% Breathesonings
%% describes whether the person is happy or feeling normal
%% objectdescription1([0,0,1,2,arc],[[0,0,1,2,arc,happy],[0,0,1,2,closed-arc,laughing]],Emotion)
objectdescription1([X,Y,StartAngle,EndAngle,ArcType],ObjectDescriptions,Emotion) :-
	member([X,Y,StartAngle,EndAngle,ArcType,Emotion],ObjectDescriptions).
%%objectdescription2([[1,0],[0,1],[1,1],[2,1],[1,2]],[[1,0,r],[0,1,r],[1,1,r],[2,1,r],[1,2,r],[0,0,n],[2,0,n],[0,2,n],[2,2,n]]).
objectdescription2([],_ColouredCoords,_Colour).
objectdescription2(Coords1,ColouredCoords1,Colour) :-
	Coords1=[Coord | Coords2], Coord=[X, Y],
	member(ColouredCoord,ColouredCoords1),
	delete(ColouredCoords1,ColouredCoord,ColouredCoords2), 
	ColouredCoord=[X, Y, Colour],
	objectdescription2(Coords2,ColouredCoords2,Colour).

%% Breathesonings objection  apple falls off stand
%% leave([[0,1,0,vertical-line],[0,1,point]],[[[0,1,0,vertical-line],[0,1,point]],[[2,3,0,vertical-line],[2,3,point]]],Positive).
%% leave([[Y1,Y2,X,vertical-line],[X,Y,point]],Shapes,Positive)
leave(Shapes1,Shapes2,Positive) :-
	member(Shapes1,Shapes2), Positive=0.