%% Thinks of an object's structure
%% e.g. brown hair at the top, blue shoes at the bottom and dimensions of a rectangular prism containing a person

%% description_to_colours_and_dimensions([[[blue,shoes,at,bottom,[.15,.30]],
[brown,hair,at,top,[25,25]]],[skin-coloured,body,[.4,.3,1.6]]).
/**
description_to_colours_and_dimensions(Items,Object) :-
	apply_items(Items,Object,[],Object2).

%% 
apply_items([[Colour,Item,around,bottom,[X,Y,Z]]]|Items],Object,Object2,Object3) :-
	
**/

shoe_entry_angle(Height,Length,Angle) :-
	AngleInRadians is atan(Height,Length), Pi is 3.14159, Angle is (180/Pi)*AngleInRadians.