function scalingfactor = plotwaveletcoords(w)
% FUNCTION:    plotwaveletcoords           part of DPWT Toolbox
%
% SYNOPSIS:    SCALINGFACTOR = plotwaveletcoords(W)
%
% DESCRIPTION: Plots wavelet coordinates in coordinate vector
%              W in a useful visual format. SCALINGFACTOR 
%              is the maximum of the  absolute values of W.
%              MARKTYPE and LINETYPE determine 
%              coordinate marks and quality of horizontal
%              lines on the plot. 
% 
% EXAMPLE:     p = 5;
%              w = 0.5-rand(2^p,1);
%              scalingfactor = plotwaveletcoords(w);
%

% AUTHOR: Neil Getz
% DATE: 5-11-92

if ( nargin ~= 1),
  help plotwaveletcoords;
  return;
end;

if( ~validwavcoords(w) ),
  error('Length of arg1 must be integer power of 2.');
else,
  [x,y ] = plotlevelgrid( log(length(w))/log(2));
  scalingfactor = max(abs(w));
  normw = 0.5*w/scalingfactor;
  for i = 1:length(x),
    h=line( [x(i) x(i)], [y(i) (y(i)+normw(i))] );
	set(h,'Color','r');
  end;
end;