## This script measures and extracts time points and F0 values that
## will be used in SoundForge to synthetically manipulate F0 contours,
## creating pre-laryngealized, post-laryngealized, and mid-laryngealized
## versions of words with intervocalic resonants

clearinfo

## The first thing the script does is get the length of the resonant 
## (from Tier 1) as well as the beginning, middle, and end points of the resonant

rbeg = Get begin of selection
rend = Get end of selection
rdur = Get selection length
rmid = rbeg + rdur/2
idur = rdur*10/100
prebeg = rbeg-idur
preend = rbeg+idur
midbeg = rmid-idur
midend = rmid+idur
postbeg = rend-idur
postend = rend+idur

sound$ = selected$ ("Sound")

printline 'rdur:3' 'tab$' 'rbeg:3' 'tab$' 'rend:3' 'tab$' 'rmid:3' 'tab$' 'idur:3' 'tab$' 

## The second thing the script does is create a new tier in the textgrid, and create 
## intervals corresponding to the intervals of the sound file that will be manipulated 
## to get pre-, post-, and mid- glottalization effects. It keeps track of the beginning, 
## middle, and endpoints of each interval it creates, and measures F0 at the beginning
## of each interval (to be used to create F0 dip)

Add interval tier... 2 formanipulations

## The script then moves the cursor to the start of each intended interval and 
## puts in an interval at that spot.

Move cursor to... prebeg
prepitch = Get pitch
##calculate 10% pitch reduction value
prepitchnew = prepitch*90/100
## This next command converts Hz into Cents for SoundForge (100 cents = 1 semitone)
prepitchnewcents = (1200/ln(2))*ln(prepitchnew/prepitch)
Add on tier 2
Move cursor to... preend
Add on tier 2

printline prebeg = 'prebeg:3' 'tab$'
printline preend = 'preend:3' 'tab$'
printline premid = 'rbeg:3' 'tab$'
printline prepitch = 'prepitch:3' 'tab$'
printline prepitchnew = 'prepitchnew:3' 'tab$'
printline prepitchadnewcents = 'prepitchnewcents:15' 'tab$' 

Move cursor to... midbeg
midpitch = Get pitch
midpitchnew = midpitch*90/100
midpitchnewcents =(1200/ln(2))*ln(midpitchnew/midpitch)
Add on tier 2
Move cursor to... midend
Add on tier 2

printline midbeg = 'midbeg:3' 'tab$'
printline midend = 'midend:3' 'tab$'
printline midmid = 'rmid:3' 'tab$'
printline midpitch = 'midpitch:3' 'tab$'
printline midpitchnew = 'midpitchnew:3' 'tab$'
printline midpitchnewcents = 'midpitchnewcents:15' 'tab$' 

Move cursor to... postbeg
postpitch = Get pitch
postpitchnew = postpitch*90/100
postpitchnewcents = (1200/ln(2))*ln(postpitchnew/postpitch)

Add on tier 2
Move cursor to... postend
Add on tier 2

printline postbeg = 'postbeg:3' 'tab$'
printline postend = 'postend:3' 'tab$'
printline postmid = 'rend:3' 'tab$'
printline postpitch = 'postpitch:3' 'tab$'
printline postpitchnew = 'postpitchnew:3' 'tab$'
printline postpitchnewcents = 'postpitchnewcents:15' 'tab$' 

fileappend Stimuli_measurements.xls 'sound$' 'tab$' 'prebeg:3' 'tab$' 'rbeg:3' 'tab$' 'preend:3' 'tab$' 'prepitch:3' 'tab$' 'prepitchnew:3' 'tab$' 'prepitchnewcents:15' 'tab$' 'midbeg:3' 'tab$' 'rmid:3' 'tab$' 'midend:3' 'tab$' 'midpitch:3' 'tab$' 'midpitchnew:3' 'tab$' 'midpitchnewcents:15' 'tab$' 'postbeg:3' 'tab$' 'rend:3' 'tab$' 'postend:3' 'tab$' 'postpitch:3' 'tab$' 'postpitchnew:3' 'tab$' 'postpitchnewcents:15' 'tab$'
fileappend Stimuli_measurements.xls 'newline$'