diff options
Diffstat (limited to 'modules/sound/macros/sound.sci')
| -rwxr-xr-x | modules/sound/macros/sound.sci | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/modules/sound/macros/sound.sci b/modules/sound/macros/sound.sci new file mode 100755 index 000000000..eab057500 --- /dev/null +++ b/modules/sound/macros/sound.sci @@ -0,0 +1,44 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ???? - INRIA - Scilab +// Copyright (C) ???? - ENPC +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +function []=sound(y,fs,bits,aplay) + //SOUND Play vector as sound. + // SOUND(Y,FS) sends the signal in vector Y (with sample frequency + // FS) out to the speaker on platforms that support sound. Values in + // Y are assumed to be in the range -1.0 <= y <= 1.0. Values outside + // that range are clipped. Stereo sounds are played, on platforms + // that support it, when Y is an N-by-2 matrix. + // + // SOUND(Y) plays the sound at the default sample rate of 22050 Hz. + // + // SOUND(Y,FS,BITS) plays the sound using BITS bits/sample if + // possible. Most platforms support BITS=8 or 16. + // + // See also SOUNDSC. + [nargout,nargin] = argn(0) + if nargin<1 then + error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"),"sound",1)); + end + if nargin<2 then + fs = 22050; + end + if nargin<3 then + bits = 16; + end + if nargin < 4 aplay="aplay"; end + // Make sure y is in the range +/- 1 + y = max(-1,min(y,1)); + // Make sure that there's one column + // per channel. + if length(size(y)) > 2 then + error(msprintf(gettext("%s: An error occurred: %s\n"),"sound",gettext("Requires 2-D values only."))); + end + playsnd(y,fs,bits,aplay); +endfunction |