clearinfo

sound$ = selected$ ("Sound")
textgrid$ = selected$ ("TextGrid")

## This script is used to create the dip in the pre-glottalized resonants

## The first bit gets the points that delineate the interval that will be used in
## the manipulation of pitch:

select TextGrid 'textgrid$'
prebegin = Get starting point... 1 2
preend = prebegin + 0.05

printline 'prebegin' 'tab$' 'preend' 'tab$' 

## The next bit creates a Manipulation object that is used to manipulate the pitch

select Sound 'sound$'
To Manipulation... 0.005 75 350

## The next bit selects the manipulation object and opens it in an Edit window, to 
## complete the manipulation

manipulation$ = selected$ ("Manipulation")
select Manipulation 'manipulation$'
Edit

## This next bit doesn't work - maybe I need to use a different script from within the
## Edit window? to actually manipulate the pitch?
## Can I automate this?? I think the problem is that I'm still running
## the script from outside the Edit window, which means the Select command isn't valid...
## Maybe there's a different command, e.g. Create interval... or something that can be
## used from outside the Edit window??
## Note: this bit of script *does* work when run as a script from within the Edit window,
## so I know the commands are right.

Select... prebegin preend
Multiply pitch frequencies...0.9
Publish resynthesis

printine 'done!'