Mercurial > octave-nkf
diff scripts/audio/saveaudio.m @ 2325:b5568c31ee2c
[project @ 1996-07-15 22:20:21 by jwe]
author | jwe |
---|---|
date | Mon, 15 Jul 1996 22:20:21 +0000 |
parents | 5ca126254d15 |
children | 8b262e771614 |
line wrap: on
line diff
--- a/scripts/audio/saveaudio.m Mon Jul 15 21:29:24 1996 +0000 +++ b/scripts/audio/saveaudio.m Mon Jul 15 22:20:21 1996 +0000 @@ -21,7 +21,7 @@ ## ## Saves a vector X of audio data in the file "name.ext". ## The format of the audio file is determined by ext which has to be -## written without an inital "."; default value for ext is "lin". +## written without an inital "."; default value for ext is "lin". ## ## Currently, the following audio formats are supported: ## *) mu-law files with extension "mu", "au" or "snd" @@ -34,7 +34,7 @@ ## Adapted-By: jwe function saveaudio (name, X, ext, bit) - + if (nargin < 2 || nargin > 4) usage ("saveaudio (X, name [, ext [, bit]])"); endif @@ -61,7 +61,7 @@ num = fopen ([name, ".", ext], "w"); - if (strcmp (ext, "lin") || strcmp (ext, "raw")) + if (strcmp (ext, "lin") || strcmp (ext, "raw")) if (bit == 8) ld = max (abs (X)); if (ld > 127) # convert 16 to 8 bit @@ -86,5 +86,5 @@ endif fclose (num); - + endfunction