Mercurial > hg > octave-lojdl
changeset 3471:a0aef47b4b4d
[project @ 2000-01-22 23:10:42 by jwe]
author | jwe |
---|---|
date | Sat, 22 Jan 2000 23:10:43 +0000 |
parents | b3a16793a390 |
children | 9c509e1cbf49 |
files | scripts/ChangeLog scripts/audio/loadaudio.m scripts/audio/playaudio.m scripts/audio/saveaudio.m |
diffstat | 4 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,9 @@ +2000-01-22 Michael Reifenberger <mike@Plaut.de> + + * audio/saveaudio.m: Also accept files with .ul extension. + * audio/loadaudio.m: Ditto. + * audio/playaudio.m: Ditto. + 2000-01-19 John W. Eaton <jwe@bevo.che.wisc.edu> * statistics/distributions/beta_cdf.m: Texinfoize doc string.
--- a/scripts/audio/loadaudio.m +++ b/scripts/audio/loadaudio.m @@ -62,7 +62,8 @@ else [X, c] = fread (num, inf, "short"); endif - elseif (strcmp (ext, "mu") || strcmp (ext, "au") || strcmp (ext, "snd")) + elseif (strcmp (ext, "mu") || strcmp (ext, "au") + || strcmp (ext, "snd") || strcmp(ext, "ul")) [Y, c] = fread (num, inf, "uchar"); ## remove file header m = max (find (Y(1:64) == 0));
--- a/scripts/audio/playaudio.m +++ b/scripts/audio/playaudio.m @@ -65,7 +65,8 @@ endif if (strcmp (ext, "lin") || strcmp (ext, "raw")) system (sprintf ("cat %s > /dev/dsp", name)); - elseif (strcmp (ext, "mu") || strcmp (ext, "au") || strcmp (ext, "snd")) + elseif (strcmp (ext, "mu") || strcmp (ext, "au") + || strcmp (ext, "snd") || strcmp (ext, "ul")) system (sprintf ("cat %s > /dev/audio", name)); else error ("playaudio does not support given extension");
--- a/scripts/audio/saveaudio.m +++ b/scripts/audio/saveaudio.m @@ -75,7 +75,8 @@ else c = fwrite (num, X, "short"); endif - elseif (strcmp (ext, "mu") || strcmp (ext, "au") || strcmp (ext, "snd")) + elseif (strcmp (ext, "mu") || strcmp (ext, "au") + || strcmp (ext, "snd") || strcmp (ext, "ul")) Y = lin2mu (X); c = fwrite (num, Y, "uchar"); else