# 5.03_Balloon.make
#
# Praat script that computes the sound, tube widths, air pressures, and air velocities for an inflation,
# as shown in figure 5.5 of
#    Paul Boersma (1998): Functional Phonology, section 5.3.
# http://fonsg3.hum.uva.nl/paul/
#

# The lungs are pressed together while the lips are closed.
# This inflates the cavities.

Create Speaker... speaker Female 2
Create empty Artword... balloon 0.5

! 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

# Close the lips.
Set target... 0.00 0.5 Masseter
Set target... 1000 0.5 Masseter
Set target... 0.00 0.5 OrbicularisOris
Set target... 1000 0.5 OrbicularisOris

# Close the velopharyngeal port.
Set target... 0 1 LevatorPalatini
Set target... 1 1 LevatorPalatini

select Speaker speaker
plus Artword balloon
To Sound... 22050 25   15 60 78   15 60 78   15 60 78

select Speaker speaker
plus Artword balloon
To Sound... 22050 25   52 36 27   52 36 27   52 36 27

select Speaker speaker
plus Artword balloon
Remove

select all
Write to binary file... 5.03_Balloon.data