# 3.07.turbulence.draw
#
# Praat script that creates figure 3.7 of
#    Boersma (1998): Functional Phonology.
# http://fonsg3.hum.uva.nl/paul/
#
Erase all
Times
12

Viewport... 0 5 0 2
Axes... 0 100 0 100
Line width... 4
Draw line... 0 70 40 70
Draw line... 40 70 40 100
Draw line... 40 100 100 100
Draw line... 0 30 40 30
Draw line... 40 30 40 0
Draw line... 40 0 100 0
Text... 20 Centre 50 Half %A_1
Text... 70 Centre 50 Half %A_2
Line width... 2
Paint circle... 0 38 50 1
Draw arrow... 38 50 48 50
Text... 48 Left 50 Half %v_1_%r
Create Sound... jet 38 48 30 66+((x-38)/4)^2
Draw... 0 100 0 100 no
Formula... 100 - self
Draw... 0 100 0 100 no
Formula... (self-50)/2 + 50
Draw... 0 100 0 100 no
Formula... 100 - self
Draw... 0 100 0 100 no
Viewport... 0.5 4.5 0.3 1.8
Text bottom... yes %x \->
Remove
Line width... 1