Mercurial > hg > octave-nkf
comparison scripts/audio/saveaudio.m @ 2312:204cc7db6f4a
[project @ 1996-07-11 21:20:36 by jwe]
author | jwe |
---|---|
date | Thu, 11 Jul 1996 21:20:36 +0000 |
parents | 2b5788792cad |
children | 5ca126254d15 |
comparison
equal
deleted
inserted
replaced
2311:2b5788792cad | 2312:204cc7db6f4a |
---|---|
27 ## *) mu-law files with extension "mu", "au" or "snd" | 27 ## *) mu-law files with extension "mu", "au" or "snd" |
28 ## *) linearly encoded files with extension "lin" or "raw" | 28 ## *) linearly encoded files with extension "lin" or "raw" |
29 ## If the data is saved linearly, the bit argument decides whether an | 29 ## If the data is saved linearly, the bit argument decides whether an |
30 ## 8-bit (default) or a 16-bit format is used. | 30 ## 8-bit (default) or a 16-bit format is used. |
31 | 31 |
32 ## Author: AW <Andreas.Weingessel@ci.tuwien.ac.at> | |
33 ## Created: 5 September 1994 | |
34 ## Adapted-By: jwe | |
35 | |
32 function saveaudio (name, X, ext, bit) | 36 function saveaudio (name, X, ext, bit) |
33 | 37 |
34 ## Written by AW (Andreas.Weingessel@ci.tuwien.ac.at) on Sep 5, 1994 | |
35 ## Last modified by AW on Oct 29, 1994 | |
36 ## Copyright Dept of Probability Theory and Statistics TU Wien | |
37 | |
38 if (nargin < 2 || nargin > 4) | 38 if (nargin < 2 || nargin > 4) |
39 usage ("saveaudio (X, name [, ext [, bit]])"); | 39 usage ("saveaudio (X, name [, ext [, bit]])"); |
40 endif | 40 endif |
41 | 41 |
42 if (nargin == 2) | 42 if (nargin == 2) |