# 5.12_abadag.make
#
# Praat script that computes the sound, tube widths, air pressures, and air velocities
# for a postvocalic oral closure, as shown in figures 5.16 and 5.17 of
#    Paul Boersma (1998): Functional Phonology, section 5.12.
# http://fonsg3.hum.uva.nl/paul/

proc art_common
   ! Lungs falling from 132 to 120 mm in the first 30 milliseconds
   Set target... 0.00 0.1 Lungs
   Set target... 0.03 0.0 Lungs
   Set target... 10 0.0 Lungs

   ! Adduct vocal folds, and some more to compensate for oral closure.
   Set target... 0 0.5 Interarytenoid
   Set target... 0.1 0.5 Interarytenoid
   Set target... 0.2 0.53 Interarytenoid
   Set target... 1 0.53 Interarytenoid

   ! Raise velum
   Set target... 0 1 LevatorPalatini
   Set target... 1 1 LevatorPalatini

   ! a
   Set target... 0 0.5 Hyoglossus
   Set target... 1 0.5 Hyoglossus
endproc

Create Speaker... speaker Female 2

! ba
Create Artword... ab 0.5
call art_common
Set target... 0.1 0 OrbicularisOris
Set target... 0.2 1 OrbicularisOris
Set target... 10 1 OrbicularisOris
plus Speaker speaker
To Sound... 22050 25 36 37 63 25 41 63 0 0 0
Write to binary file... 5.12_ab.data
Remove

! da
Create Artword... ad 0.5
call art_common
Set target... 0.1 0 UpperTongue
Set target... 0.2 1 UpperTongue
Set target... 10 1 UpperTongue
plus Speaker speaker
To Sound... 22050 25 36 37 59 25 41 59 0 0 0
Write to binary file... 5.12_ad.data
Remove

! ga
Create Artword... ag 0.5
call art_common
Set target... 0.1 0 Styloglossus
Set target... 0.2 1 Styloglossus
Set target... 10 1 Styloglossus
plus Speaker speaker
To Sound... 22050 25 36 37 48 25 41 48 0 0 0
Write to binary file... 5.12_ag.data
Remove