1 files changed, 33 insertions, 0 deletions
diff --git a/modules/sound/macros/wavwrite.sci b/modules/sound/macros/wavwrite.sci
new file mode 100755
index 000000000..904ee4905
--- /dev/null
+++ b/modules/sound/macros/wavwrite.sci
@@ -0,0 +1,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
+// ==========================================================================