Mercurial > octave-nkf

comparison scripts/audio/loadaudio.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents a1dbe9d80eee
children d1978e7364ad
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
62 X = Y - 127; 62 X = Y - 127;
63 else 63 else
64 [X, c] = fread (num, inf, "short"); 64 [X, c] = fread (num, inf, "short");
65 endif 65 endif
66 elseif (strcmp (ext, "mu") || strcmp (ext, "au") 66 elseif (strcmp (ext, "mu") || strcmp (ext, "au")
67 || strcmp (ext, "snd") || strcmp(ext, "ul")) 67 || strcmp (ext, "snd") || strcmp(ext, "ul"))
68 [Y, c] = fread (num, inf, "uchar"); 68 [Y, c] = fread (num, inf, "uchar");
69 ## remove file header 69 ## remove file header
70 m = find (Y(1:64) == 0, 1, "last"); 70 m = find (Y(1:64) == 0, 1, "last");
71 if (! isempty (m)) 71 if (! isempty (m))
72 Y(1:m) = []; 72 Y(1:m) = [];