|
"I want the mean pitch of every interval that has a non-empty label on tier 5."
if numberOfSelected ("Sound") <> 1 or numberOfSelected ("TextGrid") <> 1
exitScript: "Please select a Sound and a TextGrid first."
endif
sound = selected ("Sound")
textgrid = selected ("TextGrid")
writeInfoLine: "Result:"
selectObject: sound
pitch = To Pitch: 0.0, 75, 600
selectObject: textgrid
n = Get number of intervals: 5
for i to n
tekst$ = Get label of interval: 5, i
if tekst$ <> ""
t1 = Get starting point: 5, i
t2 = Get end point: 5, i
selectObject: pitch
f0 = Get mean: t1, t2, "Hertz"
appendInfoLine: fixed$ (t1, 3), " ", fixed$ (t2, 3), " ", round (f0), " ", tekst$
selectObject: textgrid
endif
endfor
selectObject: sound, textgrid
© ppgb 20201229