Diagnostics/DiagUtility/draw_coast.m

function [L] = draw_coast(fac)

%load('/home/jmc/matlab/MATLAB/m_coasts.mat');
load('/u/u2/jmc/MATLAB/m_coasts.mat');

  X=ncst(:,1); Y=ncst(:,2);
  for i=1:length(k)-1,
    xl=X(k(i)+1:k(i+1)-1);
    fk=finite(xl);
    if any(fk),
      yl=Y(k(i)+1:k(i+1)-1);
      nx=length(xl);     
      L(i)=line(fac*xl,fac*yl);
     end
  end
 set(L,'Color',[0 0 0],'LineWidth',2);
% set(L,'LineStyle','-'); 
return
1	function [L] = draw_coast(fac)
2
3	%load('/home/jmc/matlab/MATLAB/m_coasts.mat');
4	load('/u/u2/jmc/MATLAB/m_coasts.mat');
5
6	X=ncst(:,1); Y=ncst(:,2);
7	for i=1:length(k)-1,
8	xl=X(k(i)+1:k(i+1)-1);
9	fk=finite(xl);
10	if any(fk),
11	yl=Y(k(i)+1:k(i+1)-1);
12	nx=length(xl);
13	L(i)=line(facxl,facyl);
14	end
15	end
16	set(L,'Color',[0 0 0],'LineWidth',2);
17	% set(L,'LineStyle','-');
18	return