function res = f_4connessi(p,q,V,im)

% p=[xp,yp]
% q=[xq,yq]
% V -> sotto-insieme di livelli di grigio
% im -> immagine a L livelli di grigio

flag_p=find(V==im(p(1),p(2))); flag_q=find(V==im(q(1),q(2)));
if(size(flag_p,2)==0 || size(flag_q,2)==0), res=0; return; end;
if((abs(q(1)-p(1)) + abs(q(2)-p(2)))==1), 
    res=1; 
else 
    res=0; 
end 

return