iam (Formant); Formant_formula (me, GET_REAL (L"left Time range"), GET_REAL (L"right Time range"), GET_INTEGER (L"left Formant range"), GET_INTEGER (L"right Formant range"), interpreter, expression); } END /******************** Formant & Spectrogram ********************************************/ FORM (Formant_and_Spectrogram_to_IntensityTier, L"Formant & Spectrogram: To IntensityTier", L"Formant & Spectrogram: To IntensityTier...") NATURAL (L"Formant number", L"1") OK DO Formant me = FIRST (Formant); long iformant = GET_INTEGER (L"Formant number"); Spectrogram thee = FIRST (Spectrogram); autoIntensityTier him = Formant_and_Spectrogram_to_IntensityTier (me, thee, iformant); praat_new (him.transfer(), my name, L"_", Melder_integer (GET_INTEGER (L"Formant number"))); END /********************LFCC ********************************************/ DIRECT (LFCC_help) Melder_help (L"LFCC"); END FORM (LFCC_to_LPC, L"LFCC: To LPC", L"LFCC: To LPC...") INTEGER (L"Number of coefficients", L"0") OK DO long ncof = GET_INTEGER (L"Number of coefficients");
iam (Formant); Formant_formula (me, GET_REAL (U"left Time range"), GET_REAL (U"right Time range"), GET_INTEGER (U"left Formant range"), GET_INTEGER (U"right Formant range"), interpreter, expression); } END /******************** Formant & Spectrogram ************************************/ FORM (Formant_and_Spectrogram_to_IntensityTier, U"Formant & Spectrogram: To IntensityTier", U"Formant & Spectrogram: To IntensityTier...") NATURAL (U"Formant number", U"1") OK DO Formant me = FIRST (Formant); long iformant = GET_INTEGER (U"Formant number"); Spectrogram thee = FIRST (Spectrogram); autoIntensityTier him = Formant_and_Spectrogram_to_IntensityTier (me, thee, iformant); praat_new (him.transfer(), my name, U"_", GET_INTEGER (U"Formant number")); END /********************LFCC ********************************************/ DIRECT (LFCC_help) Melder_help (U"LFCC"); END FORM (LFCC_to_LPC, U"LFCC: To LPC", U"LFCC: To LPC...") INTEGER (U"Number of coefficients", U"0") OK DO long ncof = GET_INTEGER (U"Number of coefficients"); if (ncof < 0) {