source: issm/oecreview/Archive/24307-24683/ISSM-24436-24437.diff@ 24684

Index: ../trunk-jpl/src/m/plot/legendd.m
===================================================================
--- ../trunk-jpl/src/m/plot/legendd.m   (nonexistent)
+++ ../trunk-jpl/src/m/plot/legendd.m   (revision 24437)
@@ -0,0 +1,27 @@
+function legendd(varargin)
+
+       options=pairoptions(varargin{:});
+
+       %retrieve arguments: 
+       x=getfieldvalue(options,'x',0); 
+       y=getfieldvalue(options,'y',0);
+       w=getfieldvalue(options,'w',1);
+       h=getfieldvalue(options,'h',1);
+       facecolor=getfieldvalue(options,'FaceColor','w');
+       edgecolor=getfieldvalue(options,'EdgeColor','k');
+       strings=getfieldvalue(options,'strings',{});
+       colors=getfieldvalue(options,'colors',{});
+       fontsize=getfieldvalue(options,'FontSize',12);
+       linewidth=getfieldvalue(options,'LineWidth',2);
+
+       hold on;
+       rectangle('Position',[x,y,w,h],'FaceColor',facecolor,'EdgeColor',edgecolor);
+       
+       nl=length(strings);
+       for i=1:nl,
+               l=line([x+w/6 x+w/3],[y+(nl+1-i)*h/(nl+1) y+(nl+1-i)*h/(nl+1)]);
+               set(l,'Color',colors{i});
+               set(l,'LineWidth',linewidth);
+               text(x+1.3*w/3,y+(nl+1-i)*h/(nl+1),strings{i},'FontSize',fontsize);
+       end
+