blob: 904ee4905aaee79ac61c0eea20ce37480d69dcc0 (
plain)
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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2005 - INRIA - Allan CORNET
//
// 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 [] = wavwrite(y,Fs,nbits,wavefile)
lhs = argn(1);
rhs = argn(2);
Fs_pref = 22050;
nbits_pref = 16;
// Parse inputs:
if ( (rhs < 2)| (rhs > 4) ) then
error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"wavwrite",2,3));
elseif ( rhs < 3 ) then
wavefile = Fs;
Fs = Fs_pref;
nbits = nbits_pref;
elseif ( rhs < 4 ) then
wavefile = nbits;
nbits = nbits_pref;
end
savewave(wavefile,y,Fs,nbits);
endfunction
// ==========================================================================
|
