Script for analysing pitch with a TextGrid

"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
`

### Links to this page

- Scripting examples