# 5.04_phonate_micro.draw
#
# Praat script that creates figure 5.7 of
#    Boersma (1998): Functional Phonology, section 5.5.
# http://fonsg3.hum.uva.nl/paul/
#
# Expects the file 5.04_phonate.data in the same directory;
# that file can be created by 5.04_phonate.make
#
Read from file... 5.04_phonate.data
Erase all
Times
10

right = 6.25

# Zoom in on both glottal widths.

Viewport... 0 right 0 2.25
Text top... no Phonation: width of lower glottis (dotted) and upper glottis (solid)
Text left... yes Width (mm)
Text bottom... yes Time (ms)
select Sound width36
Dotted line
Draw... 0.16 0.174 -0.0002 0.0005 no
Plain line
select Sound width37
Draw... 0.16 0.174 -0.0002 0.0005 no
Draw inner box
Marks bottom every... 0.001 1 yes yes yes
One mark left... -0.0002 no yes no -0.2
One mark left... 0 yes yes yes
One mark left... 0.0005 no yes no 0.5
Viewport... 0 6 0 2.25
Viewport text... Right Half 0 (a)

# Velocity.

Viewport... 0 right 2.25 4.5
Text top... no Velocity in lower glottis (dotted) and upper glottis (solid)
Text left... yes Velocity (m/s)
Text bottom... yes Time (ms)
select Sound velocity36
Dotted line
Draw... 0.16 0.174 -4.0 40.0 no
Plain line
select Sound velocity37
Draw... 0.16 0.174 -4.0 40.0 no
Draw inner box
Marks bottom every... 0.001 1 yes yes yes
Marks left... 2 yes yes yes
One mark left... 0.0 yes yes yes
One mark left... 10.0 yes yes yes
One mark right... 10.0 no no no %%v__crit
Viewport... 0 6 2.25 4.5
Viewport text... Right Half 0 (b)

# Glottal pressure.

Viewport... 0 right 4.5 6.75
Text top... no Pressure in lower glottis (dotted) and upper glottis (solid)
Text left... yes Pressure (Pa)
Text bottom... yes Time (ms)
select Sound pressure36
Dotted line
Draw... 0.16 0.174 -1000 3000 0
Plain line
select Sound pressure37
Draw... 0.16 0.174 -1000 3000 0
Draw inner box
Marks bottom every... 0.001 1 yes yes yes
Marks left every... 1 1000 yes yes yes
Viewport... 0 6 4.5 6.75
Viewport text... Right Half 0 (c)

# Subglottal pressure.

Viewport... 0 right 6.75 9
Text top... no Phonation: subglottal pressure (dotted) and supraglottal pressure (solid)
Text left... yes Pressure (Pa)
Text bottom... yes Time (ms)
select Sound pressure35
Dotted line
Draw... 0.16 0.174 -500 1000 no
Plain line
select Sound pressure38
Draw... 0.16 0.174 -500 1000 no
Draw inner box
Marks bottom every... 0.001 1 yes yes yes
Marks left every... 1 500 yes yes yes
Viewport... 0 6 6.75 9
Viewport text... Right Half 0 (d)

Viewport... 0 6 0.15 9