/* ChopWave: return wave chopped to st and end. end = 0 means all */
Wave ChopWave(Wave srcW, HTime start, HTime end, HTime sampRate)
{
Wave tgtW;
HTime length; /* HTime length of file */
long stSamp, endSamp, nSamps;
short *data;
data = GetWaveDirect(srcW,&nSamps);
length = nSamps * sampRate;
if(start >= length)
HError(1030,"ChopWave: Source too short to get data from %.0f",start);
ClampStEn(length,&start,&end);
if(trace & T_SEGMENT)
printf("ChopWave: Extracting data %.0f to %.0f\n",start,end);
stSamp = (long) (start/sampRate);
endSamp = (long) (end/sampRate);
nSamps = endSamp - stSamp;
if(nSamps <= 0)
HError(1030,"ChopWave: Truncation options result in zero-length file");
tgtW = OpenWaveOutput(&cStack,&sampRate,nSamps);
PutWaveSample(tgtW,nSamps,data + stSamp);
CloseWaveInput(srcW);
if(chopF && labF) ChopLabs(tr,start,end);
return(tgtW);
}
/* OpenWaveFile: open source wave file and extract portion if indicated */
HTime OpenWaveFile(char *src)
{
Wave w, cw;
long nSamps;
short *data;
if((w = OpenWaveInput(&iStack,src,srcFF,0,0,&srcSampRate))==NULL)
HError(1013,"OpenWaveFile: OpenWaveInput failed");
srcPK = WAVEFORM;
tgtSampRate = srcSampRate;
cw = (chopF)?ChopWave(w,st,en,srcSampRate) : w;
data = GetWaveDirect(cw,&nSamps);
wv = OpenWaveOutput(&oStack, &srcSampRate, nSamps);
PutWaveSample(wv,nSamps,data);
CloseWaveInput(cw);
return(nSamps*srcSampRate);
}
/* AppendWave: append the src file to global wave wv */
HTime AppendWave(char *src)
{
Wave w, cw;
HTime period=0.0;
long nSamps;
short *data;
if((w = OpenWaveInput(&iStack,src, srcFF, 0, 0, &period))==NULL)
HError(1013,"AppendWave: OpenWaveInput failed");
if(trace & T_KINDS )
printf("Appending file %s format: %s [WAVEFORM]\n",src,
Format2Str(WaveFormat(w)));
if(period != srcSampRate)
HError(1032,"AppendWave: Input file %s has inconsistent sampling rate",src);
cw = (chopF)? ChopWave(w,st,en,srcSampRate) : w;
data = GetWaveDirect(cw,&nSamps);
PutWaveSample(wv,nSamps,data);
CloseWaveInput(cw);
return(nSamps*period);
}
int main(int argc, char *argv[])
{
char *s,*fn;
cst_voice *voice; // synthesis voice
cst_utterance *utt; // current utterance
cst_wave *cstwave; // synthesised wave
Wave w; // HTK wave
short *p;
HTime sampPeriod = 625.0;
int n;
MemHeap mem;
AudioOut a;
try {
if (InitHTK(argc,argv,version)<SUCCESS){
ReportErrors("Main",0); exit(-1);
}
if (NumArgs() !=2) {
printf("SFliteTest synthstring file\n"); exit(0);
}
CreateHeap(&mem,"heap",MSTAK,1,0.0,10000,100000);
s = GetStrArg();
fn = GetStrArg();
printf("Synth: %s -> %s\n",s,fn);
// initialise Edinburgh cst lib
cst_regex_init();
// setup the voice
voice = register_cmu_us_kal16(NULL);
// convert text to waveform
utt = flite_synth_text(s,voice);
if (utt==NULL) {
HRError(12001,"SFliteTest: cant synthesise %s\n",s);
throw ATK_Error(12001);
}
cstwave = utt_wave(utt);
p = cstwave->samples; n = cstwave->num_samples;
w = OpenWaveOutput(&mem,&sampPeriod,n);
printf("%d samples created\n",n);
PutWaveSample(w,n,p);
if (CloseWaveOutput(w,WAV,fn)<SUCCESS){
ReportErrors("Main",0); exit(-1);
}
// explore structure
const cst_item *it, *itlast = NULL;
float x,y;
int i;
string lastword="0"; x = 0;
for (i=1,it = relation_head(utt_relation(utt, "Segment")); it!=NULL; it = item_next(it),i++)
{
printf("Segment %d\n",i);
y = item_feat_float(it,"end");
string ph = string(ffeature_string(it,"p.name"));
string wd = string(ffeature_string(it,"R:SylStructure.parent.parent.name"));
//printf("end = %f ph=%s wd=%s\n",y,ph.c_str(),wd.c_str());
if (wd != lastword){
printf("**** end of %s = %f\n",lastword.c_str(),x);
lastword=wd;
}
x = y;
}
//if (itlast!=NULL) {
// word = string(ffeature_string(itlast,"R:SylStructure.parent.parent.name"));
// idx = text.find(word);
//}
return 0;
}
catch (ATK_Error e){ ReportErrors("ATK",e.i); }
catch (HTK_Error e){ ReportErrors("HTK",e.i); }
return 0;
}
