function soundsc(varargin)
%SOUNDSC Autoscale and play vector as sound.
%   SOUNDSC(Y,...) is the same as SOUND(Y,...) except the data is
%   scaled so that the sound is played as loud as possible without
%   clipping.  The mean of the data is removed.
%
%   SOUNDSC(Y,...,SLIM) where SLIM = [SLOW SHIGH] linearly scales
%   values in Y in the range [SLOW, SHIGH] to [-1, 1].  Values
%   outside this range are not clipped.  By default, SLIM is
%   [MIN(Y) MAX(Y)].
%
%   See also SOUND, WAVPLAY, WAVRECORD.

%   Copyright 1984-2002 The MathWorks, Inc.
%   $Revision: 1.1 $  $Date: 2004/02/19 04:17:52 $

% Determine if user entered SLIM vector:
%

if nargin<1, error('Not enough input arguments.'); end
user_scale = (nargin>1) & isequal(size(varargin{end}),[1 2]);

% Determine scaling vector, SLIM:
%
x = varargin{1};
xmin = min(x(:));
xmax = max(x(:));
if user_scale,
    slim = varargin{end};
    varargin = varargin(1:end-1);  % remove SLIM from arg list
else
    slim = [xmin xmax];
end

% Scale the data so that the limits in
% SLIM are scaled to the range [-1 +1]
%
dx=diff(slim);
if dx==0,
    % Protect against divide-by-zero errors:
    varargin{1} = zeros(size(varargin{1}));
else
	varargin{1} = (x-slim(1))/dx*2-1;
end

% Play the scaled sequence:
wavwrite(varargin{:},'test.wav');
sound2(varargin{:})

% [EOF] soundsc.m
