function hcursor = plotline(hcursor,haxis,f1,maxtoplot,mintoplot,lnst,lnco)
%
%  Name:   plotline
%
%  Usage:  hcursor = plotline(hcursor,haxis,f1,maxtoplot,mintoplot,lnst,lnco)
%
%  This draws the cursor line in the frequency domain plot.
% 
%  Version SWD960626
%
%  Author(s): Phillip Cornwell, cornwell@lanl.gov
%	modified by Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%               ESA-EA
%
%  Copyright (c) 1996, The Regents of the University
%       of California. (See top level of code for
%       full copyright statement.)
%

%
% Delete the old cursor positions
%

if ishandle(hcursor), delete(hcursor), end

% Set the new cursor coordinates

axes(haxis)
hcursor(1) =line([f1,f1],[mintoplot,maxtoplot]);
set(hcursor(1),'Color',lnco)
set(hcursor(1),'linestyle',lnst)



% write the frequency value

name1=[num2str(f1),' Hz: '];
hcursor(2)=text(f1,maxtoplot*.92,name1);
set(hcursor(2),'FontSize',10)

