ecco-godae/climatology/label_edges.m

function []=label_edges(nf,mg,r_or_l);

if strcmp(r_or_l,'local')
 for i=1:4
  ls=mg(nf).adj(i).localStart;
  le=mg(nf).adj(i).localEnd;
  xmid=ls(1)+[(le(1)-ls(1)+1)/2];
  ymid=ls(2)+[(le(2)-ls(2)+1)/2];
  ts=sprintf('%d:%d',nf,i);
  text(xmid,ymid,ts);
 end
end

if strcmp(r_or_l,'remote')
 for i=1:length(mg)
  for a=1:length(mg(i).adj)
   if mg(i).adj(a).remoteFacet == nf
    ls=mg(i).adj(a).remoteStart;
    le=mg(i).adj(a).remoteEnd;
    xmid=ls(1)+[(le(1)-ls(1)+1)/2];
    ymid=ls(2)+[(le(2)-ls(2)+1)/2];
    ts=sprintf('%d:%d',i,a);
    text(xmid,ymid,ts);
    fprintf(1,'(%d,%d) to (%d,%d) ==> (%d,%d) %s\n',...
      ls(1),ls(2),...
      le(1),le(2),...
      xmid,ymid,ts);
   end
  end
 end
end

return
1	heimbach	1.1	function []=label_edges(nf,mg,r_or_l);
2
3			if strcmp(r_or_l,'local')
4			for i=1:4
5			ls=mg(nf).adj(i).localStart;
6			le=mg(nf).adj(i).localEnd;
7			xmid=ls(1)+[(le(1)-ls(1)+1)/2];
8			ymid=ls(2)+[(le(2)-ls(2)+1)/2];
9			ts=sprintf('%d:%d',nf,i);
10			text(xmid,ymid,ts);
11			end
12			end
13
14			if strcmp(r_or_l,'remote')
15			for i=1:length(mg)
16			for a=1:length(mg(i).adj)
17			if mg(i).adj(a).remoteFacet == nf
18			ls=mg(i).adj(a).remoteStart;
19			le=mg(i).adj(a).remoteEnd;
20			xmid=ls(1)+[(le(1)-ls(1)+1)/2];
21			ymid=ls(2)+[(le(2)-ls(2)+1)/2];
22			ts=sprintf('%d:%d',i,a);
23			text(xmid,ymid,ts);
24			fprintf(1,'(%d,%d) to (%d,%d) ==> (%d,%d) %s\n',...
25			ls(1),ls(2),...
26			le(1),le(2),...
27			xmid,ymid,ts);
28			end
29			end
30			end
31			end
32
33			return