www.pudn.com > LPCToolbox.rar > LOADSOUND.M



function [err,msg] = loadsound(idx)
global Filelist Cs Ap Handle

maxitems = length(Filelist);
if idx > maxitems,
err=1; msg = 'End of file list';
return;
elseif idx < 1,
err=2; msg = 'Beginning of file list';
return;
end

>-------------------------------
> First read in the .RAW file into a temporary variable.
> this ensures that if there is any error, we can back off
> before committing to changes in Cs.

[sndfilename, datfilename, ext] = fixfilename(Filelist{idx});
[snd,Fs,err,msg] = getsound(sndfilename, ext, Ap.defaultFs);
if err ~= 0, return; end

>-------------------------------
> No problems reading the files. Change all the Ap entries
> together, so the info is always consistent.

Cs.sndindex = idx; > index of sound in the given list
Cs.sndfilename = sndfilename;
Cs.datfilename = datfilename;
Cs.Fs = Fs;
Cs.snd = snd;
Cs.framerange = [];
Cs.ncoeffs = 0;
Cs.nframes = 0; > number of analysis frames
Cs.spcgm = []; > this is computed in pksfig_draw
Cs.spcgmx = [];
Cs.spcgmy = [];

err=0; msg='';