## 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$'