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	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