mgc:

# Extracting MGC or MGC-LSP coefficients from raw audio

mkdir -p mgc

for raw in raw/cmu_us_arctic_slt_*.raw; do \

        base=`basename ${raw} .raw`; \

        min=`${X2X} +sf ${raw} | ${MINMAX} | ${X2X} +fa | head -n 1`; \

        max=`${X2X} +sf ${raw} | ${MINMAX} | ${X2X} +fa | tail -n 1`; \

        if [ -s ${raw} -a ${min} -gt -32768 -a ${max} -lt 32767 ]; then \

            ${X2X} +sf ${raw} > tmp; \

            if [ 0       -eq 0 ]; then \

                echo "Extracting MGC coefficients from ${raw}"; \

                c:/usr/local/SPTK/bin/frame -l ${FRAMELEN}    -p ${FRAMESHIFT}  tmp | \

                c:/usr/local/SPTK/bin/window -l ${FRAMELEN}    -L ${FFTLEN}      -w 1  -n 1   | \

                c:/usr/local/SPTK/bin/mcep -a ${FREQWARP}    -m ${MGCORDER}    -l ${FFTLEN}      -e 1.0E-08 > mgc/${base}.mgc; \

            else \

                echo "Extracting MGC-LSP coefficients from ${raw}"; \

                SAMPKHZ=`expr ${SAMPFREQ}    / 1000`; \

                if [ 1      -eq 1 ]; then \

                    GAINOPT="-l"; \

                fi; \

                c:/usr/local/SPTK/bin/frame -l ${FRAMELEN}    -p ${FRAMESHIFT}  tmp | \

                c:/usr/local/SPTK/bin/window -l ${FRAMELEN}    -L ${FFTLEN}      -w 1  -n 1   | \

                c:/usr/local/SPTK/bin/mcep -a ${FREQWARP}    -c 0       -m ${MGCORDER}    -l ${FFTLEN}      -e 1.0E-08 -o 4 | \

                c:/usr/local/SPTK/bin/lpc2lsp -m ${MGCORDER}    -s ${SAMPKHZ} ${GAINOPT} -n ${FFTLEN}      -p 8 -d 1.0E-08 > mgc/${base}.mgc; \

            fi; \

            if [ -n "`c:/usr/local/SPTK/bin/nan mgc/${base}.mgc`" ]; then \

                echo " Failed to extract MGC coefficients from ${raw}"; \

                rm -f mgc/${base}.mgc; \

            fi; \

        fi; \

    done

  

// jkGetF0.c

  for (i = 0; i < fnum; i++) {

      switch (otype) {

      case 1:                   /* f0 */

          fwrite(tmp + i, sizeof(float), 1, stdout); // иногда записывает 5 байтов вместо 4

  

          break;

      case 2:                   /* log(f0) */

          if (tmp[i] != 0.0 ) {

              tmp[i] = (float)log(tmp[i]);

          } else {

              tmp[i] = -1.0E10;

          }

          fwrite(tmp + i, sizeof(float), 1, stdout); // иногда записывает 5 байтов вместо 4

          break;

      default:                  /* pitch */

          if (tmp[i] != 0.0) {

              tmp[i] = sample_freq / tmp[i];

          }

          fwrite(tmp + i, sizeof(float), 1, stdout); // иногда записывает 5 байтов вместо 4

          break;

      }

  }

// jkGetF0.c

 

    hOut = GetStdHandle (STD_OUTPUT_HANDLE  );

    if (hOut == INVALID_HANDLE_VALUE)

        return 0;

 

 

  for (i = 0; i < fnum; i++) {

      switch (otype) {

      case 1:                   /* f0 */

          //fwrite(tmp + i, sizeof(float), 1, stdout); // иногда записывает 5 байтов вместо 4

          WriteFile (hOut, tmp + i, sizeof(float), &RW, NULL); //ok

          break;

      case 2:                   /* log(f0) */

          if (tmp[i] != 0.0 ) {

                            //printf("%f \n", (float)tmp[i]);

              tmp[i] = (float)log(tmp[i]);

                            //printf(" %f \n", (float)tmp[i]);

          } else {

              tmp[i] = -1.0E10;

          }

          //fwrite(tmp + i, sizeof(float), 1, stdout); // иногда записывает 5 байтов вместо 4

          WriteFile (hOut, tmp + i, sizeof(float), &RW, NULL);

          break;

      default:                  /* pitch */

          if (tmp[i] != 0.0) {

              tmp[i] = sample_freq / tmp[i];

          }

          //fwrite(tmp + i, sizeof(float), 1, stdout); // иногда записывает 5 байтов вместо 4

          WriteFile (hOut, tmp + i, sizeof(float), &RW, NULL);

          break;

      }

  }

//swipe.c

#else

    for (i = 0; i < p.x; i++) {

       switch(otype) {

          case 1:      /* f0 */

             fwritef(&p.v[i], sizeof(p.v[i]), 1, stdout);

             break;

          case 2:      /* log(f0) */

             if (p.v[i] != 0.0)

                p.v[i] = log(p.v[i]);

             else

                p.v[i] = -1.0E10;

             fwritef(&p.v[i], sizeof(p.v[i]), 1, stdout);

             break;

          default:     /* pitch */

             if (p.v[i] != 0.0)

                p.v[i] = samplerate / p.v[i];

             fwritef(&p.v[i], sizeof(p.v[i]), 1, stdout);

             break;

       }

    }

    freev(p);

#endif

}

#include <windows.h>

//...

 

DWORD RW;

HANDLE hOut;

 

//перед этим кодом:

#if 0

int

Get_f0(Sound *sound, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])

{

HTS_engine.с

   HTS_Engine_create_pstream(&engine);  /* generate speech parameter vector sequence */ создать последовательность параметрических векторов речи

   HTS_Engine_create_gstream(&engine);  /* synthesize speech */       синтезировать речь

 

if (wavfp)

      HTS_Engine_save_riff(&engine, wavfp); // сохранить синтезированную речь в файл

 

HTS_PSTREAM.C

/* HTS_PStreamSet_create: parameter generation using GV weight */  создание параметрических векторов

HTS_Boolean HTS_PStreamSet_create(HTS_PStreamSet * pss, HTS_SStreamSet * sss, double *msd_threshold, double *gv_weight)

{

...

}

 

HTS_GSTREAM.C

/* HTS_GStreamSet_create: generate speech */      генерация и вывод речи

/* (stream[0] == spectrum && stream[1] == lf0) */

HTS_Boolean HTS_GStreamSet_create(HTS_GStreamSet * gss, HTS_PStreamSet * pss, int stage, HTS_Boolean use_log_gain, int sampling_rate, int fperiod, double alpha, double beta, HTS_Boolean * stop, double volume, HTS_Audio * audio)

{

...

}

HEADER, Header_Size = 16

+0: /* MSD flag */

    i=0 при msd_flag = FALSE

    i=1 при msd_flag = TRUE

 

+4: /* stream size */

 

+8: /* vector size */

 

+12:/* the number of pdfs */

elena

+0: 0

+4: 1

+8: 75

+12: 273

/* Flite_HTS_Engine_synthesis: speech synthesis */

void Flite_HTS_Engine_synthesis(Flite_HTS_Engine * f, char *txt, FILE * wavfp, FILE * labfp)

{

   int i;

   cst_voice *v = NULL;

   cst_utterance *u = NULL;

   cst_item *s = NULL;

   char **label_data = NULL;

   int label_size = 0;

char *label_d2=NULL;

 

char szln[]={0x0a,0};  

 

   /* text analysis part */

   v = REGISTER_VOX(NULL);

   if (v == NULL)

      return;

   u = flite_synth_text(txt, v);

   if (u == NULL)

      return;

   for (s = relation_head(utt_relation(u, "Segment")); s; s = item_next(s))

      label_size++;

   if (label_size <= 0)

      return;

   label_data = (char **) calloc(label_size, sizeof(char *));

   for (i = 0, s = relation_head(utt_relation(u, "Segment")); s;

        s = item_next(s), i++) {

      label_data[i] = (char *) calloc(MAXBUFLEN, sizeof(char));

      Flite_HTS_Engine_create_label(f, s, label_data[i]);

 

   }

 

   /* save Labels to file _out.lab */

 

   //fwrite((char*)"hhhh", sizeof(char), 4, labfp); //ok

   for (i = 0; i<label_size; i++){

    _asm{

    mov ecx, dword ptr[label_data]

    mov eax, dword ptr [i]

    imul eax,4

    add ecx, eax

    mov eax, [ecx]

    mov dword ptr[label_d2],eax

    }

   fwrite(label_d2, sizeof(char), strlen(label_d2), labfp);

   fwrite(szln, sizeof(char), 1, labfp);

   }

 

   /* speech synthesis part */

   HTS_Engine_load_label_from_string_list(&f->engine, label_data, label_size);

   HTS_Engine_create_sstream(&f->engine);

   HTS_Engine_create_pstream(&f->engine);

   HTS_Engine_create_gstream(&f->engine);

   if (wavfp != NULL)

      HTS_Engine_save_riff(&f->engine, wavfp);

   HTS_Engine_refresh(&f->engine);

 

   for (i = 0; i < label_size; i++)

      free(label_data[i]);

   free(label_data);

 

   delete_utterance(u);

   UNREGISTER_VOX(v);

}

int main(int argc, char **argv)

{

   int i;

   FILE *txtfp = stdin, *wavfp = NULL;

   FILE *labfp = NULL;   /*for labels*/

 ...

 

   /* read command */

   while (--argc) {

...

         case 'o':

            wavfp = Getfp(*++argv, "wb");

            --argc;

            break;

         case 'z':                                         // <------- new

            labfp = Getfp(*++argv, "w");           // <------- new

            --argc;                                       // <------- new

            break;                                        // <------- new  

         case 'h':

            Usage();

            break;

...

 

 /* synthesis */

   if (fgets(buff, INPUT_BUFF_SIZE, txtfp) != NULL && strlen(buff) > 0){

      Flite_HTS_Engine_synthesis(&engine, buff, wavfp, labfp);

   }

 

...

   fclose(labfp);  /*labs*/

 

   return 0;

} //end of func