function play(sample,freq,scaled);

% PURPOSE: Play a MATLAB vector on Linux platforms 
%
% CALL:    play(sample,[freq],[scaled]);
%
% INPUT:   sample : matlab vector variable
%	   freq   : sampling frequency (Hz)  [16000]
%	   scaled : 0 | 1  [1]

% Author: Kris Hermus
% Version: 3.2005.09.22

if nargin<1, error('Not enough input arguments.'); end
if nargin<2, freq = 16000; end
if nargin<3, scaled = 1; end

if (scaled == 1)
  sample = sample / max(abs(sample));
end

%if strcmp(getenv('HOST'),'kaiser')
if isempty(getenv('REMOTEHOST'))
  auwrite(sample,freq,16,'linear','/tmp/sam_tmp.au');
  !/usr/bin/sox /tmp/sam_tmp.au -t ossdsp /dev/dsp
  !\rm /tmp/sam_tmp.au     
else
  auwrite(sample,freq,16,'linear',strcat(getenv('HOME'),'/sam_tmp.au'));
  eval(['!ssh ' strrep(getenv('REMOTEHOST'),'.esat.kuleuven.be','') ' ''/usr/bin/sox $HOME/sam_tmp.au -t ossdsp /dev/dsp'''])
  !\rm $HOME/sam_tmp.au
end