GSPI - Load the 'glockenspiel' test signal.

Program code:

function s=gspi()

%   AUTHOR : Peter Soendergaard

if nargin>0
  error('This function does not take input arguments.')
end;

% Load audio signal
if isoctave
  s = auload([caspbasepath,'signals',filesep,'gspi.au']);
else
  s = wavread([caspbasepath,'signals',filesep,'gspi.wav']);
end;