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	molod	1.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