Reece H. Dunn
9 years ago
3 changed files with 558 additions and 604 deletions
+ 1
- 2
Makefile.am
View File
| src/compiledata.cpp \ | src/compiledata.cpp \ | ||||
| src/espeakedit.cpp \ | src/espeakedit.cpp \ | ||||
| src/prosodydisplay.cpp \ | src/prosodydisplay.cpp \ | ||||
| src/spect.cpp \ | |||||
| src/spectseq.cpp | |||||
| src/spect.cpp | |||||
| if OPT_KLATT | if OPT_KLATT | ||||
| common_FLAGS += -DINCLUDE_KLATT | common_FLAGS += -DINCLUDE_KLATT |
+ 557
- 0
src/spect.cpp
View File
| #include "wx/datstrm.h" | #include "wx/datstrm.h" | ||||
| #ifdef INCLUDE_KLATT | |||||
| extern "C" void SetSynth_Klatt(int length, int modn, frame_t *fr1, frame_t *fr2, voice_t *v, int control); | |||||
| #endif | |||||
| extern "C" void SetSynth(int length, int modn, frame_t *fr1, frame_t *fr2, voice_t *v); | |||||
| extern "C" int PeaksToHarmspect(wavegen_peaks_t *peaks, int pitch, int *htab, int control); | extern "C" int PeaksToHarmspect(wavegen_peaks_t *peaks, int pitch, int *htab, int control); | ||||
| extern unsigned char pk_shape1[]; | extern unsigned char pk_shape1[]; | ||||
| extern int pk_select; | extern int pk_select; | ||||
| extern char voice_name[]; | extern char voice_name[]; | ||||
| static int frame_width; | |||||
| int pk_select; | |||||
| #define DRAWPEAKWIDTH 2000 | #define DRAWPEAKWIDTH 2000 | ||||
| #define PEAKSHAPEW 256 | #define PEAKSHAPEW 256 | ||||
| static int default_klt_bw[N_PEAKS] = | static int default_klt_bw[N_PEAKS] = | ||||
| {89,90,140,260,260,260,500,500,500}; | {89,90,140,260,260,260,500,500,500}; | ||||
| float polint(float xa[],float ya[],int n,float x) | |||||
| {//============================================== | |||||
| // General polinomial interpolation routine, xa[1...n] ya[1...n] | |||||
| int i,m,ns=1; | |||||
| float den,dif,dift,ho,hp,w; | |||||
| float y; // result | |||||
| float c[9],d[9]; | |||||
| dif=fabs(x-xa[1]); | |||||
| for(i=1;i<=n;i++){ | |||||
| if((dift=fabs(x-xa[i])) < dif) { | |||||
| ns=i; | |||||
| dif=dift; | |||||
| } | |||||
| c[i]=ya[i]; | |||||
| d[i]=ya[i]; | |||||
| } | |||||
| y=ya[ns--]; | |||||
| for(m=1;m<n;m++) { | |||||
| for(i=1;i<=n-m;i++) { | |||||
| ho=xa[i]-x; | |||||
| hp=xa[i+m]-x; | |||||
| w=c[i+1]-d[i]; | |||||
| if((den=ho-hp) == 0.0) | |||||
| { | |||||
| // fprintf(stderr,"Error in routine 'polint'"); | |||||
| return(ya[2]); // two input xa are identical | |||||
| } | |||||
| den=w/den; | |||||
| d[i]=hp*den; | |||||
| c[i]=ho*den; | |||||
| } | |||||
| y += ((2*ns < (n-m) ? c[ns+1] : d[ns--])); | |||||
| } | |||||
| return(y); | |||||
| } // end of polint | |||||
| static void PeaksZero(peak_t *sp, peak_t *zero) | |||||
| {//===================================== | |||||
| int pk; | |||||
| memcpy(zero,sp,sizeof(peak_t)*N_PEAKS); | |||||
| for(pk=0; pk<N_PEAKS; pk++) | |||||
| zero[pk].pkheight = 0; | |||||
| } // end of PeaksZero | |||||
| SpectFrame::SpectFrame(SpectFrame *copy) | SpectFrame::SpectFrame(SpectFrame *copy) | ||||
| {//===================================== | {//===================================== | ||||
| peaks[pk].pkright = 0; | peaks[pk].pkright = 0; | ||||
| } | } | ||||
| } | } | ||||
| SpectSeq::SpectSeq(int n) | |||||
| {//====================== | |||||
| numframes = n; | |||||
| if(n > 0) | |||||
| frames = new SpectFrame* [n]; | |||||
| else | |||||
| frames = NULL; | |||||
| pk_select = 1; | |||||
| grid = 1; | |||||
| duration = 0; | |||||
| pitch1 = 0; | |||||
| pitch2 = 0; | |||||
| bass_reduction = 0; | |||||
| max_x = 3000; | |||||
| max_y = 1; | |||||
| file_format = 0; | |||||
| } | |||||
| SpectSeq::~SpectSeq() | |||||
| {//================== | |||||
| int ix; | |||||
| if(frames != NULL) | |||||
| { | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix] != NULL) | |||||
| delete frames[ix]; | |||||
| } | |||||
| delete frames; | |||||
| } | |||||
| } | |||||
| void SpectSeq::SelectAll(int yes) | |||||
| {//============================== | |||||
| // select of deselect all frames in the sequence | |||||
| int ix; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| frames[ix]->selected = yes; | |||||
| } | |||||
| int SpectSeq::CountSelected() | |||||
| {//========================== | |||||
| int ix; | |||||
| int count=0; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->selected) | |||||
| count++; | |||||
| } | |||||
| return(count); | |||||
| } // end of SpectSeq::CountSelected | |||||
| void SpectSeq::DeleteSelected() | |||||
| {//============================ | |||||
| int ix; | |||||
| int count=0; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->selected) | |||||
| { | |||||
| count++; | |||||
| } | |||||
| else | |||||
| if(count > 0) | |||||
| { | |||||
| *frames[ix-count] = *frames[ix]; | |||||
| } | |||||
| } | |||||
| numframes = numframes - count; | |||||
| } // end of SpectSeq::DeleteSelected | |||||
| void SpectSeq::SetFrameLengths() | |||||
| {//============================= | |||||
| int frame; | |||||
| for(frame=0; frame<numframes; frame++) | |||||
| { | |||||
| if(frames[frame]->keyframe) | |||||
| frames[frame]->length = GetFrameLength(frame,1,NULL); | |||||
| else | |||||
| frames[frame]->length = 0; | |||||
| } | |||||
| } // end of SetFrameLengths | |||||
| float SpectSeq::GetFrameLength(int frame, int plus, int *original) | |||||
| {//=============================================================== | |||||
| int ix; | |||||
| float adjust=0; | |||||
| if(frame >= numframes-1) return(0); | |||||
| // include the adjustment for this frame ? | |||||
| if(plus) adjust = frames[frame]->length_adjust; | |||||
| for(ix=frame+1; ix<numframes-1; ix++) | |||||
| { | |||||
| if(frames[ix]->keyframe) break; // reached next keyframe | |||||
| adjust += frames[ix]->length_adjust; | |||||
| } | |||||
| if(original != NULL) | |||||
| *original = int((frames[ix]->time - frames[frame]->time) * 1000.0 + 0.5); | |||||
| return ((frames[ix]->time - frames[frame]->time) * 1000.0 + adjust); | |||||
| } | |||||
| float SpectSeq::GetKeyedLength() | |||||
| {//============================= | |||||
| int ix; | |||||
| int first; | |||||
| int last=0; | |||||
| float adjust=0; | |||||
| first = -1; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->keyframe) | |||||
| { | |||||
| last = ix; | |||||
| if(first == -1) first = ix; | |||||
| } | |||||
| } | |||||
| if(first == -1) | |||||
| return(0); // no keyframes | |||||
| for(ix=first; ix<last; ix++) | |||||
| adjust += frames[ix]->length_adjust; | |||||
| return((frames[last]->time - frames[first]->time) * 1000 + adjust); | |||||
| } | |||||
| void SpectSeq::Load2(wxInputStream& stream, int import, int n) | |||||
| {//=========================================================== | |||||
| // continuation of load/import | |||||
| int ix; | |||||
| wxString string; | |||||
| float time_offset; | |||||
| float time_acc=0; | |||||
| int set_max_y=0; | |||||
| if(n==0) return; | |||||
| if(frames != NULL) delete frames; | |||||
| frames = new SpectFrame* [n]; | |||||
| numframes = 0; | |||||
| max_x = 3000; | |||||
| if(max_y == 0) | |||||
| { | |||||
| set_max_y = 1; | |||||
| max_y = 1; | |||||
| } | |||||
| for(ix = 0; ix < n; ix++) | |||||
| { | |||||
| SpectFrame *frame = new SpectFrame; | |||||
| if(import==1) | |||||
| { | |||||
| if(frame->Import(stream) != 0) | |||||
| { | |||||
| delete frame; | |||||
| break; | |||||
| } | |||||
| } | |||||
| else | |||||
| if(import==2) | |||||
| { | |||||
| if(frame->ImportSPC2(stream,time_acc) != 0) | |||||
| { | |||||
| delete frame; | |||||
| break; | |||||
| } | |||||
| } | |||||
| else | |||||
| { | |||||
| if(frame->Load(stream, file_format) != 0) | |||||
| { | |||||
| delete frame; | |||||
| break; | |||||
| } | |||||
| } | |||||
| frames[numframes++] = frame; | |||||
| if(set_max_y && (frame->max_y > max_y)) | |||||
| max_y = frame->max_y; | |||||
| if(frame->nx * frame->dx > max_x) max_x = int(frame->nx * frame->dx); | |||||
| } | |||||
| max_x = 9000; // disable auto-xscaling | |||||
| frame_width = int((FRAME_WIDTH*max_x)/MAX_DISPLAY_FREQ); | |||||
| if(frame_width > FRAME_WIDTH) frame_width = FRAME_WIDTH; | |||||
| // start times from zero | |||||
| time_offset = frames[0]->time; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| frames[ix]->time -= time_offset; | |||||
| pitch1 = pitchenv.pitch1; | |||||
| pitch2 = pitchenv.pitch2; | |||||
| duration = int(frames[numframes-1]->time * 1000); | |||||
| if(max_y < 400) | |||||
| max_y = 200; | |||||
| else | |||||
| max_y = 29000; // disable auto height scaling | |||||
| } // end of SpectSeq::Load2 | |||||
| int SpectSeq::Import(wxInputStream& stream) | |||||
| {//======================================== | |||||
| // Import data from Pratt analysis | |||||
| int n = 0; | |||||
| wxTextInputStream text_stream(stream); | |||||
| name = _T(""); | |||||
| text_stream >> n; | |||||
| amplitude = 100; | |||||
| max_y = 0; | |||||
| Load2(stream,1,n); | |||||
| return(0); | |||||
| } // end of SpectSeq::Import | |||||
| int SPC2_size_cycle(CYCLE *cy) | |||||
| /****************************/ | |||||
| /* Find number of bytes in cycle record */ | |||||
| { | |||||
| int i; | |||||
| i = 44 + cy->n_harm; | |||||
| if(cy->flags & 1) | |||||
| { | |||||
| i += 4; /* label */ | |||||
| } | |||||
| return(i); | |||||
| } /* end of size_cycle */ | |||||
| int SpectSeq::ImportSPC2(wxInputStream & stream) | |||||
| {//============================================= | |||||
| // load an spectrum with an old "SPC2" format | |||||
| int n_cycles = 0; | |||||
| int x; | |||||
| CYCLE cy; | |||||
| /* count number of cycles */ | |||||
| while(!stream.Eof()) | |||||
| { | |||||
| stream.TellI(); | |||||
| stream.Read(&cy,44); | |||||
| stream.TellI(); | |||||
| if(stream.Eof()) break; | |||||
| n_cycles++; | |||||
| x = SPC2_size_cycle(&cy) - 44; | |||||
| stream.SeekI(x,wxFromCurrent); | |||||
| } | |||||
| if(n_cycles == 0) return(0); | |||||
| name = _T(""); | |||||
| amplitude = 100; | |||||
| max_y = 0; | |||||
| stream.SeekI(4); // rewind and skip header | |||||
| Load2(stream,2,n_cycles); | |||||
| return(0); | |||||
| } | |||||
| int SpectSeq::Load(wxInputStream & stream) | |||||
| {//======================================= | |||||
| int n; | |||||
| int ix; | |||||
| unsigned int id1, id2; | |||||
| wxDataInputStream s(stream); | |||||
| id1 = s.Read32(); | |||||
| id2 = s.Read32(); | |||||
| if(id1 == FILEID1_SPC2) | |||||
| { | |||||
| stream.SeekI(4); | |||||
| return(ImportSPC2(stream)); | |||||
| } | |||||
| else | |||||
| if((id1 == FILEID1_SPECTSEQ) && (id2 == FILEID2_SPECTSEQ)) | |||||
| { | |||||
| file_format = 0; // eSpeak formants | |||||
| } | |||||
| else | |||||
| if((id1 == FILEID1_SPECTSEQ) && (id2 == FILEID2_SPECTSEK)) | |||||
| { | |||||
| file_format = 1; // formants for Klatt synthesizer | |||||
| } | |||||
| else | |||||
| if((id1 == FILEID1_SPECTSEQ) && (id2 == FILEID2_SPECTSQ2)) | |||||
| { | |||||
| file_format = 2; // formants for Klatt synthesizer | |||||
| } | |||||
| else | |||||
| { | |||||
| // Praat analysis data | |||||
| stream.SeekI(0); | |||||
| return(Import(stream)); | |||||
| } | |||||
| name = s.ReadString(); | |||||
| n = s.Read16(); | |||||
| amplitude = s.Read16(); | |||||
| max_y = s.Read16(); | |||||
| s.Read16(); | |||||
| Load2(stream,0,n); | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->keyframe) | |||||
| frames[ix]->length_adjust = frames[ix]->length - GetFrameLength(ix,0,NULL); | |||||
| } | |||||
| return(0); | |||||
| } // end of SpectSeq::Load | |||||
| void SpectSeq::InterpolatePeak(int peak) | |||||
| {//===================================== | |||||
| int f, f1=0, f2; | |||||
| peak_t *p, *p1=NULL, *p2; | |||||
| double t1=0, t2; | |||||
| double interval; | |||||
| double ratio; | |||||
| int first = 1; | |||||
| for(f2=0; f2 < numframes; f2++) | |||||
| { | |||||
| if(frames[f2]->keyframe) | |||||
| { | |||||
| t2 = frames[f2]->time; | |||||
| p2 = &frames[f2]->peaks[peak]; | |||||
| if(first) | |||||
| first = 0; | |||||
| else | |||||
| { | |||||
| interval = t2 - t1; | |||||
| for(f=f1+1; f<f2; f++) | |||||
| { | |||||
| p = &frames[f]->peaks[peak]; | |||||
| ratio = (frames[f]->time - t1)/interval; | |||||
| p->pkfreq = p1->pkfreq + int((p2->pkfreq - p1->pkfreq)*ratio); | |||||
| p->pkheight=p1->pkheight+int((p2->pkheight-p1->pkheight)*ratio); | |||||
| p->pkwidth = p1->pkwidth + int((p2->pkwidth - p1->pkwidth)*ratio); | |||||
| p->pkright =p1->pkright + int((p2->pkright - p2->pkright)*ratio); | |||||
| } | |||||
| } | |||||
| f1 = f2; | |||||
| t1 = t2; | |||||
| p1 = p2; | |||||
| } | |||||
| } | |||||
| } // end of SpectSeq::InterpolatePeak | |||||
| void SpectSeq::InterpolatePeaks(int control) | |||||
| {//========================================= | |||||
| // 0=turn off 1=turn on | |||||
| int f, peak; | |||||
| if(control==1) | |||||
| { | |||||
| for(peak=0; peak<N_PEAKS; peak++) | |||||
| { | |||||
| InterpolatePeak(peak); | |||||
| } | |||||
| } | |||||
| else | |||||
| { | |||||
| for(f=0; f<numframes; f++) | |||||
| { | |||||
| if(frames[f]->keyframe == 0) | |||||
| frames[f]->ZeroPeaks(); | |||||
| } | |||||
| } | |||||
| } // end of SpectSeq::InterpolatePeaks | |||||
| void SpectSeq::CopyDown(int frame, int direction) | |||||
| {//============================================== | |||||
| // Copy peaks down from next earlier/later keyframe | |||||
| int f1; | |||||
| for(f1=frame+direction; f1>=0 && f1<numframes; f1 += direction) | |||||
| { | |||||
| if(frames[f1]->keyframe) | |||||
| { | |||||
| memcpy(frames[frame]->peaks, frames[f1]->peaks, sizeof(frames[frame]->peaks)); | |||||
| memcpy(frames[frame]->klatt_param, frames[f1]->klatt_param, sizeof(frames[frame]->klatt_param)); | |||||
| break; | |||||
| } | |||||
| } | |||||
| } // end of CopyDown | |||||
| void PeaksToFrame(SpectFrame *sp1, peak_t *pks, frame_t *fr) | |||||
| {//========================================================= | |||||
| int ix; | |||||
| int x; | |||||
| fr->frflags = FRFLAG_KLATT; | |||||
| for(ix=0; ix < 8; ix++) | |||||
| { | |||||
| if(ix < 7) | |||||
| { | |||||
| fr->ffreq[ix] = pks[ix].pkfreq; | |||||
| fr->klatt_ap[ix] = pks[ix].klt_ap; | |||||
| fr->klatt_bp[ix] = pks[ix].klt_bp/2; | |||||
| } | |||||
| if(ix < 4) | |||||
| fr->bw[ix] = pks[ix].klt_bw/2; | |||||
| fr->fheight[ix] = pks[ix].pkheight >> 6; | |||||
| if(ix < 6) | |||||
| { | |||||
| if((x = (pks[ix].pkwidth >> 2)) > 255) | |||||
| x = 255; | |||||
| fr->fwidth[ix] = x; | |||||
| if(ix < 3) | |||||
| { | |||||
| if((x = (pks[ix].pkright >> 2)) > 255) | |||||
| x = 255; | |||||
| fr->fright[ix] = x; | |||||
| } | |||||
| } | |||||
| } | |||||
| for(ix=0; ix<N_KLATTP; ix++) | |||||
| { | |||||
| fr->klattp[ix] = sp1->klatt_param[ix]; | |||||
| } | |||||
| fr->klattp[KLATT_FNZ] = sp1->klatt_param[KLATT_FNZ]/2; | |||||
| if(fr->fheight[1] == 0) | |||||
| { | |||||
| fr->klattp[KLATT_AV] -= 10; // fade in/out | |||||
| } | |||||
| } | |||||
| static void SetSynth_mS(int length_mS, SpectFrame *sp1, SpectFrame *sp2, peak_t *pks1, peak_t *pks2, int control) | |||||
| {//============================================================================================================== | |||||
| static frame_t fr1, fr2; | |||||
| PeaksToFrame(sp1,pks1,&fr1); | |||||
| PeaksToFrame(sp2,pks2,&fr2); | |||||
| if(voice->klattv[0]) | |||||
| { | |||||
| #ifdef INCLUDE_KLATT | |||||
| SetSynth_Klatt((length_mS * samplerate) / 1000, 0, &fr1, &fr2, voice, control); // convert mS to samples | |||||
| #endif | |||||
| } | |||||
| else | |||||
| { | |||||
| SetSynth((length_mS * samplerate) / 1000, 0, &fr1, &fr2, voice); // convert mS to samples | |||||
| } | |||||
| }; | |||||
| void SpectFrame::MakeHtab(int numh, int *htab, int pitch) | |||||
| {//====================================================== | |||||
| // interpolate the spectrum to give a harmonic table for | |||||
| // the given pitch (Hz<<12) | |||||
| } // end of SpectFrame::MakeHtab |
+ 0
- 602
src/spectseq.cpp
View File
| /*************************************************************************** | |||||
| * Copyright (C) 2005 to 2007 by Jonathan Duddington * | |||||
| * email: [email protected] * | |||||
| * Copyright (C) 2013-2015 Reece H. Dunn * | |||||
| * * | |||||
| * This program is free software; you can redistribute it and/or modify * | |||||
| * it under the terms of the GNU General Public License as published by * | |||||
| * the Free Software Foundation; either version 3 of the License, or * | |||||
| * (at your option) any later version. * | |||||
| * * | |||||
| * This program is distributed in the hope that it will be useful, * | |||||
| * but WITHOUT ANY WARRANTY; without even the implied warranty of * | |||||
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * | |||||
| * GNU General Public License for more details. * | |||||
| * * | |||||
| * You should have received a copy of the GNU General Public License * | |||||
| * along with this program; if not, write see: * | |||||
| * <http://www.gnu.org/licenses/>. * | |||||
| ***************************************************************************/ | |||||
| #include "wx/wx.h" | |||||
| #include <math.h> | |||||
| #include "speak_lib.h" | |||||
| #include "speech.h" | |||||
| #include "phoneme.h" | |||||
| #include "synthesize.h" | |||||
| #include "voice.h" | |||||
| #include "spect.h" | |||||
| #include "wx/txtstrm.h" | |||||
| #include "wx/datstrm.h" | |||||
| #define MAX_HARMONIC 400 // 400 * 50Hz = 20 kHz, more than enough | |||||
| #ifdef INCLUDE_KLATT | |||||
| extern "C" void SetSynth_Klatt(int length, int modn, frame_t *fr1, frame_t *fr2, voice_t *v, int control); | |||||
| extern "C" int Wavegen_Klatt(int resume); | |||||
| extern void KlattReset(int control); | |||||
| #endif | |||||
| extern "C" void SetSynth(int length, int modn, frame_t *fr1, frame_t *fr2, voice_t *v); | |||||
| extern "C" int Wavegen(); | |||||
| extern void CloseWaveFile2(); | |||||
| extern FILE *f_wave; | |||||
| static int frame_width; | |||||
| int pk_select; | |||||
| wxBrush CREAM_BRUSH(wxColour(255,253,245),wxSOLID); | |||||
| wxPen BORDER_PEN(wxColour(255,240,0),4,wxSOLID); | |||||
| wxPen VLIGHT_GREY_PEN(wxColour(230,230,230),1,wxSOLID); | |||||
| float polint(float xa[],float ya[],int n,float x) | |||||
| {//============================================== | |||||
| // General polinomial interpolation routine, xa[1...n] ya[1...n] | |||||
| int i,m,ns=1; | |||||
| float den,dif,dift,ho,hp,w; | |||||
| float y; // result | |||||
| float c[9],d[9]; | |||||
| dif=fabs(x-xa[1]); | |||||
| for(i=1;i<=n;i++){ | |||||
| if((dift=fabs(x-xa[i])) < dif) { | |||||
| ns=i; | |||||
| dif=dift; | |||||
| } | |||||
| c[i]=ya[i]; | |||||
| d[i]=ya[i]; | |||||
| } | |||||
| y=ya[ns--]; | |||||
| for(m=1;m<n;m++) { | |||||
| for(i=1;i<=n-m;i++) { | |||||
| ho=xa[i]-x; | |||||
| hp=xa[i+m]-x; | |||||
| w=c[i+1]-d[i]; | |||||
| if((den=ho-hp) == 0.0) | |||||
| { | |||||
| // fprintf(stderr,"Error in routine 'polint'"); | |||||
| return(ya[2]); // two input xa are identical | |||||
| } | |||||
| den=w/den; | |||||
| d[i]=hp*den; | |||||
| c[i]=ho*den; | |||||
| } | |||||
| y += ((2*ns < (n-m) ? c[ns+1] : d[ns--])); | |||||
| } | |||||
| return(y); | |||||
| } // end of polint | |||||
| static void PeaksZero(peak_t *sp, peak_t *zero) | |||||
| {//===================================== | |||||
| int pk; | |||||
| memcpy(zero,sp,sizeof(peak_t)*N_PEAKS); | |||||
| for(pk=0; pk<N_PEAKS; pk++) | |||||
| zero[pk].pkheight = 0; | |||||
| } // end of PeaksZero | |||||
| SpectSeq::SpectSeq(int n) | |||||
| {//====================== | |||||
| numframes = n; | |||||
| if(n > 0) | |||||
| frames = new SpectFrame* [n]; | |||||
| else | |||||
| frames = NULL; | |||||
| pk_select = 1; | |||||
| grid = 1; | |||||
| duration = 0; | |||||
| pitch1 = 0; | |||||
| pitch2 = 0; | |||||
| bass_reduction = 0; | |||||
| max_x = 3000; | |||||
| max_y = 1; | |||||
| file_format = 0; | |||||
| } | |||||
| SpectSeq::~SpectSeq() | |||||
| {//================== | |||||
| int ix; | |||||
| if(frames != NULL) | |||||
| { | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix] != NULL) | |||||
| delete frames[ix]; | |||||
| } | |||||
| delete frames; | |||||
| } | |||||
| } | |||||
| void SpectSeq::SelectAll(int yes) | |||||
| {//============================== | |||||
| // select of deselect all frames in the sequence | |||||
| int ix; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| frames[ix]->selected = yes; | |||||
| } | |||||
| int SpectSeq::CountSelected() | |||||
| {//========================== | |||||
| int ix; | |||||
| int count=0; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->selected) | |||||
| count++; | |||||
| } | |||||
| return(count); | |||||
| } // end of SpectSeq::CountSelected | |||||
| void SpectSeq::DeleteSelected() | |||||
| {//============================ | |||||
| int ix; | |||||
| int count=0; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->selected) | |||||
| { | |||||
| count++; | |||||
| } | |||||
| else | |||||
| if(count > 0) | |||||
| { | |||||
| *frames[ix-count] = *frames[ix]; | |||||
| } | |||||
| } | |||||
| numframes = numframes - count; | |||||
| } // end of SpectSeq::DeleteSelected | |||||
| void SpectSeq::SetFrameLengths() | |||||
| {//============================= | |||||
| int frame; | |||||
| for(frame=0; frame<numframes; frame++) | |||||
| { | |||||
| if(frames[frame]->keyframe) | |||||
| frames[frame]->length = GetFrameLength(frame,1,NULL); | |||||
| else | |||||
| frames[frame]->length = 0; | |||||
| } | |||||
| } // end of SetFrameLengths | |||||
| float SpectSeq::GetFrameLength(int frame, int plus, int *original) | |||||
| {//=============================================================== | |||||
| int ix; | |||||
| float adjust=0; | |||||
| if(frame >= numframes-1) return(0); | |||||
| // include the adjustment for this frame ? | |||||
| if(plus) adjust = frames[frame]->length_adjust; | |||||
| for(ix=frame+1; ix<numframes-1; ix++) | |||||
| { | |||||
| if(frames[ix]->keyframe) break; // reached next keyframe | |||||
| adjust += frames[ix]->length_adjust; | |||||
| } | |||||
| if(original != NULL) | |||||
| *original = int((frames[ix]->time - frames[frame]->time) * 1000.0 + 0.5); | |||||
| return ((frames[ix]->time - frames[frame]->time) * 1000.0 + adjust); | |||||
| } | |||||
| float SpectSeq::GetKeyedLength() | |||||
| {//============================= | |||||
| int ix; | |||||
| int first; | |||||
| int last=0; | |||||
| float adjust=0; | |||||
| first = -1; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->keyframe) | |||||
| { | |||||
| last = ix; | |||||
| if(first == -1) first = ix; | |||||
| } | |||||
| } | |||||
| if(first == -1) | |||||
| return(0); // no keyframes | |||||
| for(ix=first; ix<last; ix++) | |||||
| adjust += frames[ix]->length_adjust; | |||||
| return((frames[last]->time - frames[first]->time) * 1000 + adjust); | |||||
| } | |||||
| void SpectSeq::Load2(wxInputStream& stream, int import, int n) | |||||
| {//=========================================================== | |||||
| // continuation of load/import | |||||
| int ix; | |||||
| wxString string; | |||||
| float time_offset; | |||||
| float time_acc=0; | |||||
| int set_max_y=0; | |||||
| if(n==0) return; | |||||
| if(frames != NULL) delete frames; | |||||
| frames = new SpectFrame* [n]; | |||||
| numframes = 0; | |||||
| max_x = 3000; | |||||
| if(max_y == 0) | |||||
| { | |||||
| set_max_y = 1; | |||||
| max_y = 1; | |||||
| } | |||||
| for(ix = 0; ix < n; ix++) | |||||
| { | |||||
| SpectFrame *frame = new SpectFrame; | |||||
| if(import==1) | |||||
| { | |||||
| if(frame->Import(stream) != 0) | |||||
| { | |||||
| delete frame; | |||||
| break; | |||||
| } | |||||
| } | |||||
| else | |||||
| if(import==2) | |||||
| { | |||||
| if(frame->ImportSPC2(stream,time_acc) != 0) | |||||
| { | |||||
| delete frame; | |||||
| break; | |||||
| } | |||||
| } | |||||
| else | |||||
| { | |||||
| if(frame->Load(stream, file_format) != 0) | |||||
| { | |||||
| delete frame; | |||||
| break; | |||||
| } | |||||
| } | |||||
| frames[numframes++] = frame; | |||||
| if(set_max_y && (frame->max_y > max_y)) | |||||
| max_y = frame->max_y; | |||||
| if(frame->nx * frame->dx > max_x) max_x = int(frame->nx * frame->dx); | |||||
| } | |||||
| max_x = 9000; // disable auto-xscaling | |||||
| frame_width = int((FRAME_WIDTH*max_x)/MAX_DISPLAY_FREQ); | |||||
| if(frame_width > FRAME_WIDTH) frame_width = FRAME_WIDTH; | |||||
| // start times from zero | |||||
| time_offset = frames[0]->time; | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| frames[ix]->time -= time_offset; | |||||
| pitch1 = pitchenv.pitch1; | |||||
| pitch2 = pitchenv.pitch2; | |||||
| duration = int(frames[numframes-1]->time * 1000); | |||||
| if(max_y < 400) | |||||
| max_y = 200; | |||||
| else | |||||
| max_y = 29000; // disable auto height scaling | |||||
| } // end of SpectSeq::Load2 | |||||
| int SpectSeq::Import(wxInputStream& stream) | |||||
| {//======================================== | |||||
| // Import data from Pratt analysis | |||||
| int n = 0; | |||||
| wxTextInputStream text_stream(stream); | |||||
| name = _T(""); | |||||
| text_stream >> n; | |||||
| amplitude = 100; | |||||
| max_y = 0; | |||||
| Load2(stream,1,n); | |||||
| return(0); | |||||
| } // end of SpectSeq::Import | |||||
| int SPC2_size_cycle(CYCLE *cy) | |||||
| /****************************/ | |||||
| /* Find number of bytes in cycle record */ | |||||
| { | |||||
| int i; | |||||
| i = 44 + cy->n_harm; | |||||
| if(cy->flags & 1) | |||||
| { | |||||
| i += 4; /* label */ | |||||
| } | |||||
| return(i); | |||||
| } /* end of size_cycle */ | |||||
| int SpectSeq::ImportSPC2(wxInputStream & stream) | |||||
| {//============================================= | |||||
| // load an spectrum with an old "SPC2" format | |||||
| int n_cycles = 0; | |||||
| int x; | |||||
| CYCLE cy; | |||||
| /* count number of cycles */ | |||||
| while(!stream.Eof()) | |||||
| { | |||||
| stream.TellI(); | |||||
| stream.Read(&cy,44); | |||||
| stream.TellI(); | |||||
| if(stream.Eof()) break; | |||||
| n_cycles++; | |||||
| x = SPC2_size_cycle(&cy) - 44; | |||||
| stream.SeekI(x,wxFromCurrent); | |||||
| } | |||||
| if(n_cycles == 0) return(0); | |||||
| name = _T(""); | |||||
| amplitude = 100; | |||||
| max_y = 0; | |||||
| stream.SeekI(4); // rewind and skip header | |||||
| Load2(stream,2,n_cycles); | |||||
| return(0); | |||||
| } | |||||
| int SpectSeq::Load(wxInputStream & stream) | |||||
| {//======================================= | |||||
| int n; | |||||
| int ix; | |||||
| unsigned int id1, id2; | |||||
| wxDataInputStream s(stream); | |||||
| id1 = s.Read32(); | |||||
| id2 = s.Read32(); | |||||
| if(id1 == FILEID1_SPC2) | |||||
| { | |||||
| stream.SeekI(4); | |||||
| return(ImportSPC2(stream)); | |||||
| } | |||||
| else | |||||
| if((id1 == FILEID1_SPECTSEQ) && (id2 == FILEID2_SPECTSEQ)) | |||||
| { | |||||
| file_format = 0; // eSpeak formants | |||||
| } | |||||
| else | |||||
| if((id1 == FILEID1_SPECTSEQ) && (id2 == FILEID2_SPECTSEK)) | |||||
| { | |||||
| file_format = 1; // formants for Klatt synthesizer | |||||
| } | |||||
| else | |||||
| if((id1 == FILEID1_SPECTSEQ) && (id2 == FILEID2_SPECTSQ2)) | |||||
| { | |||||
| file_format = 2; // formants for Klatt synthesizer | |||||
| } | |||||
| else | |||||
| { | |||||
| // Praat analysis data | |||||
| stream.SeekI(0); | |||||
| return(Import(stream)); | |||||
| } | |||||
| name = s.ReadString(); | |||||
| n = s.Read16(); | |||||
| amplitude = s.Read16(); | |||||
| max_y = s.Read16(); | |||||
| s.Read16(); | |||||
| Load2(stream,0,n); | |||||
| for(ix=0; ix<numframes; ix++) | |||||
| { | |||||
| if(frames[ix]->keyframe) | |||||
| frames[ix]->length_adjust = frames[ix]->length - GetFrameLength(ix,0,NULL); | |||||
| } | |||||
| return(0); | |||||
| } // end of SpectSeq::Load | |||||
| void SpectSeq::InterpolatePeak(int peak) | |||||
| {//===================================== | |||||
| int f, f1=0, f2; | |||||
| peak_t *p, *p1=NULL, *p2; | |||||
| double t1=0, t2; | |||||
| double interval; | |||||
| double ratio; | |||||
| int first = 1; | |||||
| for(f2=0; f2 < numframes; f2++) | |||||
| { | |||||
| if(frames[f2]->keyframe) | |||||
| { | |||||
| t2 = frames[f2]->time; | |||||
| p2 = &frames[f2]->peaks[peak]; | |||||
| if(first) | |||||
| first = 0; | |||||
| else | |||||
| { | |||||
| interval = t2 - t1; | |||||
| for(f=f1+1; f<f2; f++) | |||||
| { | |||||
| p = &frames[f]->peaks[peak]; | |||||
| ratio = (frames[f]->time - t1)/interval; | |||||
| p->pkfreq = p1->pkfreq + int((p2->pkfreq - p1->pkfreq)*ratio); | |||||
| p->pkheight=p1->pkheight+int((p2->pkheight-p1->pkheight)*ratio); | |||||
| p->pkwidth = p1->pkwidth + int((p2->pkwidth - p1->pkwidth)*ratio); | |||||
| p->pkright =p1->pkright + int((p2->pkright - p2->pkright)*ratio); | |||||
| } | |||||
| } | |||||
| f1 = f2; | |||||
| t1 = t2; | |||||
| p1 = p2; | |||||
| } | |||||
| } | |||||
| } // end of SpectSeq::InterpolatePeak | |||||
| void SpectSeq::InterpolatePeaks(int control) | |||||
| {//========================================= | |||||
| // 0=turn off 1=turn on | |||||
| int f, peak; | |||||
| if(control==1) | |||||
| { | |||||
| for(peak=0; peak<N_PEAKS; peak++) | |||||
| { | |||||
| InterpolatePeak(peak); | |||||
| } | |||||
| } | |||||
| else | |||||
| { | |||||
| for(f=0; f<numframes; f++) | |||||
| { | |||||
| if(frames[f]->keyframe == 0) | |||||
| frames[f]->ZeroPeaks(); | |||||
| } | |||||
| } | |||||
| } // end of SpectSeq::InterpolatePeaks | |||||
| void SpectSeq::CopyDown(int frame, int direction) | |||||
| {//============================================== | |||||
| // Copy peaks down from next earlier/later keyframe | |||||
| int f1; | |||||
| for(f1=frame+direction; f1>=0 && f1<numframes; f1 += direction) | |||||
| { | |||||
| if(frames[f1]->keyframe) | |||||
| { | |||||
| memcpy(frames[frame]->peaks, frames[f1]->peaks, sizeof(frames[frame]->peaks)); | |||||
| memcpy(frames[frame]->klatt_param, frames[f1]->klatt_param, sizeof(frames[frame]->klatt_param)); | |||||
| break; | |||||
| } | |||||
| } | |||||
| } // end of CopyDown | |||||
| void PeaksToFrame(SpectFrame *sp1, peak_t *pks, frame_t *fr) | |||||
| {//========================================================= | |||||
| int ix; | |||||
| int x; | |||||
| fr->frflags = FRFLAG_KLATT; | |||||
| for(ix=0; ix < 8; ix++) | |||||
| { | |||||
| if(ix < 7) | |||||
| { | |||||
| fr->ffreq[ix] = pks[ix].pkfreq; | |||||
| fr->klatt_ap[ix] = pks[ix].klt_ap; | |||||
| fr->klatt_bp[ix] = pks[ix].klt_bp/2; | |||||
| } | |||||
| if(ix < 4) | |||||
| fr->bw[ix] = pks[ix].klt_bw/2; | |||||
| fr->fheight[ix] = pks[ix].pkheight >> 6; | |||||
| if(ix < 6) | |||||
| { | |||||
| if((x = (pks[ix].pkwidth >> 2)) > 255) | |||||
| x = 255; | |||||
| fr->fwidth[ix] = x; | |||||
| if(ix < 3) | |||||
| { | |||||
| if((x = (pks[ix].pkright >> 2)) > 255) | |||||
| x = 255; | |||||
| fr->fright[ix] = x; | |||||
| } | |||||
| } | |||||
| } | |||||
| for(ix=0; ix<N_KLATTP; ix++) | |||||
| { | |||||
| fr->klattp[ix] = sp1->klatt_param[ix]; | |||||
| } | |||||
| fr->klattp[KLATT_FNZ] = sp1->klatt_param[KLATT_FNZ]/2; | |||||
| if(fr->fheight[1] == 0) | |||||
| { | |||||
| fr->klattp[KLATT_AV] -= 10; // fade in/out | |||||
| } | |||||
| } | |||||
| static void SetSynth_mS(int length_mS, SpectFrame *sp1, SpectFrame *sp2, peak_t *pks1, peak_t *pks2, int control) | |||||
| {//============================================================================================================== | |||||
| static frame_t fr1, fr2; | |||||
| PeaksToFrame(sp1,pks1,&fr1); | |||||
| PeaksToFrame(sp2,pks2,&fr2); | |||||
| if(voice->klattv[0]) | |||||
| { | |||||
| #ifdef INCLUDE_KLATT | |||||
| SetSynth_Klatt((length_mS * samplerate) / 1000, 0, &fr1, &fr2, voice, control); // convert mS to samples | |||||
| #endif | |||||
| } | |||||
| else | |||||
| { | |||||
| SetSynth((length_mS * samplerate) / 1000, 0, &fr1, &fr2, voice); // convert mS to samples | |||||
| } | |||||
| }; | |||||
| void SpectFrame::MakeHtab(int numh, int *htab, int pitch) | |||||
| {//====================================================== | |||||
| // interpolate the spectrum to give a harmonic table for | |||||
| // the given pitch (Hz<<12) | |||||
| } // end of SpectFrame::MakeHtab |
Loading…