1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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
|
