function pltrons(m,yr);
%
% routine to plot the Schlitz mooring positions

% if m=0 plot both surface & tripod with numbers & labels
% if m=1 plot just surface         "     "     "   "
% if m=2 plot just surface with no labels
% if m=3 plot stickplots


% yr=1997 or 1999

if nargin<2;
 yr=99;
 disp(['Hardcoded to 19',num2str(yr),' positions']);
end;

if yr==97;
  load ronssta.dat
  dd=ronssta;
  %bigger markersize for 97 case
  ms=70;fs=18;
  %surface mooring markings
  lett=['Y';'B';'C';'D';'E';'L';'A';'I';'F'];
elseif yr==99;
  load rons99.dat
  dd=rons99;
  ms=35;fs=10;
  lett=[' ';'A';' ';'L';' ';'F';' '];
end;

if nargin==0; m=0; end;


% plot tripod sites
if m==0;
  idt=find(dd(:,4)==0); 
  plot(dd(idt,2),dd(idt,1),'r.','markersize',ms)
  hold on;
end;

% plot surface mooring sites
id=find(dd(:,4)==1);
plot(dd(id,2),dd(id,1),'g.','markersize',ms)
hold on;

% post labels
[nr,nc]=size(dd);
if m<2;
  for k=1:nr;
    text(dd(k,2),dd(k,1),...
    [num2str(dd(k,3)),lett(dd(k,3))],...
    'horizontalalignment','center','color','k',...
    'fontsize',fs);
  end;
end;



if m==2;
  plot(dd(:,2),dd(:,1),'.','markersize',20);
end;  


% stickplot option

if m==3;

   % build a matrix of variables of those available jun 97

   % and interp on to same time vector

   ti=163:1/24:168;

   % site2

   % Noticed trouble with the time variable 

   %load f:\moor\moor97\site2D5vel

   %se=interp1(tH(24:length(tH))-729391,eFH,ti);

   %sn=interp1(tH(24:length(tH))-729391,nFH,ti);

   %y=[se' sn'];

   %site6

   load f:\moor\moor97\site6D5vel

   se=interp1(tH-729391,eFH,ti);

   sn=interp1(tH-729391,nFH,ti);

   y=[se' sn'];

   %site7

   load f:\moor\moor97\site7D5vel

   se=interp1(tH-729391,eFH,ti);

   sn=interp1(tH-729391,nFH,ti);

   y=[y se' sn'];

   %site7 @15m

   %load f:\moor\moor97\site7D15vel

   %se=interp1(tH-729391,eFH,ti);

   %sn=interp1(tH-729391,nFH,ti);

   %y=[y se' sn'];

   % load ship data
   load f:\ship\en302\emet_W1_1997
   disp('Converting ships wind speed & dir to oceanographic u &v ...');
   [u,v]=sd2uv(wind_speed_c,wind_dir_c);

   u=-u;v=-v;

   se=interp1(yrday_utc'-1,u,ti);

   sn=interp1(yrday_utc'-1,v,ti);

   y=[y se' sn'];

   y=[y(:,3:4) y(:,1:2) y(:,5:6)];

   stkcombo(97,ti',y,3,3,4,['  5m @ site 7  ';'  5m @ site 6  ';'Ship Wind (m/s)'],30,1);

   title('Schlitz Mooring Records (Detided w/red > 30cm/s)')   

end;   