HQSYN16

??inputDirectory$ = "d:/Tomas/Fonetika/Plzen synteza/probl?my/ml?ne

ek/formanty/wav/";

outputDirectory$ = "d:/Tomas/Fonetika/Plzen synteza/probl?my/ml?ne

ek/formanty/formant/";

fileStrings = Create Strings as file list... list 'inputDirectory$'*.*

numberOfFiles = Get number of strings

for indFile to numberOfFiles

    select fileStrings

    fileNameWav$ = Get string... indFile

    fName$ = left$(fileNameWav$, length(fileNameWav$) - 4)

    fileNameFormant$ = fName$ + ".csv"

    soundID = Read from file... 'inputDirectory$''fileNameWav$'

    formantID = To Formant (burg): 0.005, 6, 6600, 0.025, 50

    formantTrackID = Track: 4, 550, 1650, 2750, 3850, 4950, 1, 1, 1

    tableID = Down to Table: "no", "yes", 6, "yes", 3, "yes", 3, "yes"

    Save as comma-separated file... 'outputDirectory$''fileNameFormant$'

    select soundID

    plus formantID

    plus formantTrackID

    plus tableID

    Remove

endfor

select fileStrings

Remove