function res = f_mconnessi(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;
a=f_4connessi(p,q,V,im);
if(a==1), res=1; return; end;
a=f_8connessi(p,q,V,im);
if(a==0), res=0; return; end;

% p[x,y]  x-1,y-1   x-1,y+1   x+1,y-1  x+1,y+1
r=[p(1),q(2)]; s=[p(2),q(2)];

a1=f_4connessi(p,r,V,im); a2=f_4connessi(r,q,V,im);
if(a1*a2==0),
  a3=f_4connessi(p,s,V,im); a4=f_4connessi(s,q,V,im);
  if(a3*a4==0) res=1;
  else res=0;
  end;
else res=0;
end;
return;