function d=dbuchiInfissi(p)

global HFONDAMENTA;            
global HPRIMOPIANO;            
global HSECONDOPIANO;          
global HSOFFITTI;              
global HTETTO;                 
global PROFONDITA;             
global LARGHEZZA;              
global SPESSOREMURIPORTANTI;   
global ORDINATATRAMEZZA5;
global SPESSORETRAMEZZE;
global ASCISSATRAMEZZA3;
global ORDINATATRAMEZZA7;
global LARGHEZZASCALA;
global ASCISSAPORTONE;
global LARGHEZZAPORTONE;
global ALTEZZAPORTONE;

d=dcube(p,PROFONDITA-SPESSOREMURIPORTANTI,PROFONDITA,ASCISSAPORTONE,ASCISSAPORTONE+LARGHEZZAPORTONE,0,ALTEZZAPORTONE);

function d=dcube(p,x1,x2,y1,y2,z1,z2) % Cubo
[a b]=size(p);
d=-min(min(min(min(min(-y1*ones(a,1)+p(:,2),y2*ones(a,1)-p(:,2)),-x1*ones(a,1)+p(:,1)),x2*ones(a,1)-p(:,1)),-z1*ones(a,1)+p(:,3)),z2*ones(a,1)-p(:,3));