function null = splay(sigin);
global samprate;

scalefactor = 0.999982;

% Play the real part of sigin on the audio output at the globally
%     defined sample rate.

scale = scalefactor / max(abs(real(sigin)));

sound(real(sigin) * scale, samprate);

% End definition of splay
