function []=anno(ax,str,pos)
%	function anno(ax,str,pos)
%	Annotates plot in the corners.
%	  ax= axis limits { ax=axis; }
%	  str= text to be annotated on plot { can be an array of text }.
%	  pos= position {'ll', 'lr', 'ul', 'ur'}

wth=(ax(2)-ax(1));
ht= (ax(4)-ax(3));
lht= ht/40;
lwth= wth /55;

[n lt]=size(str);

if pos == 'll',
  x= ax(1) + wth / 20;
  y= ax(3) + ht / 20;
  ad=+1;
elseif pos == 'ul',
  x= ax(1) + wth / 20;
  y= ax(4) - ht / 20 - lht;
  ad=-1;
elseif pos == 'lr',
  x= ax(2) - wth / 20 -lwth*lt;
  y= ax(3) + ht / 20;
  ad=+1;
elseif pos == 'ur',
  x= ax(2) - wth / 20 -lwth*lt;
  y= ax(4) - ht / 20 - lht;
  ad=-1;
end;

for i=1:n,
  y= y + (ad*lht*1.5*(i-1));
  text(x,y,str(i,:));
end;
