matlab-grid-generator/bin/mykey.m

% key.m
%
% key(linestyle1,label1, [linestyle2,label2,] ...)
%
function [] = key(varargin)
nargs=nargin;
if mod(nargs,2) ~= 0
 sprintf('Error: needs even number of arguments')
 return
end

ax=axis;
dx=1/15*(ax(2)-ax(1));
rm=ax(2)-dx/2;
lm=rm-4*dx;
dy=1/15*(ax(4)-ax(3));
bm=ax(3)+dy/2;
tm=bm+nargs/2*dy;

hold on
patch([lm-1.1*dx rm rm lm-1.1*dx],[tm+dy/2 tm+dy/2 tm-nargs/2*dy tm-nargs/2*dy],'w')
hold off

hold on
for j=1:2:nargs-1;
 y=tm-(j-0.5)*dy/2;
 plot([lm-dx lm-0.1*dx],y*[1 1],varargin{j})
 text(lm,y,varargin{j+1})
end
hold off
1	% key.m
2	%
3	% key(linestyle1,label1, [linestyle2,label2,] ...)
4	%
5	function [] = key(varargin)
6	nargs=nargin;
7	if mod(nargs,2) ~= 0
8	sprintf('Error: needs even number of arguments')
9	return
10	end
11
12	ax=axis;
13	dx=1/15*(ax(2)-ax(1));
14	rm=ax(2)-dx/2;
15	lm=rm-4*dx;
16	dy=1/15*(ax(4)-ax(3));
17	bm=ax(3)+dy/2;
18	tm=bm+nargs/2*dy;
19
20	hold on
21	patch([lm-1.1dx rm rm lm-1.1dx],[tm+dy/2 tm+dy/2 tm-nargs/2dy tm-nargs/2dy],'w')
22	hold off
23
24	hold on
25	for j=1:2:nargs-1;
26	y=tm-(j-0.5)*dy/2;
27	plot([lm-dx lm-0.1dx],y[1 1],varargin{j})
28	text(lm,y,varargin{j+1})
29	end
30	hold off