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

Line width... 2
Viewport... 0 5 0 3
Axes... 0 1 -1 1
Draw ellipse... 0 0.2 -0.8 0.8
Create Matrix... halfCircle 0 500 500 1 0.5 1 2 2 1 1 0
Formula... if row=1 then 0.9+sin(pi*x/500)/12 else cos(pi*x/500)/1.5 fi
To Polygon
Draw... 0 1 -1 1
Remove
select Matrix halfCircle
Formula... if row=1 then 1.8-self else self fi
To Polygon
Dotted line
Draw... 0 1 -1 1
Remove
Plain line
select Matrix halfCircle
Remove

Create Sound... curve  0.1 0.9 1000 0
Formula... 0.8+0.23*sin(3*pi*(x-0.1)/0.8)*(x-0.1)-((x-0.1)/0.8)^3*0.133333
Draw... 0 1 -1 1 no
Formula... -self
Draw... 0 1 -1 1 no
Remove

Text... 0.1 Centre 0 Half %A(%x_1,%t)
Text... 0.5 Centre 0 Half %A(%x,%t)
Text... 0.9 Centre 0 Half %A(%x_2,%t)
Text... 0.1 Centre -0.8 Top %x_1(%t)
Text... 0.9 Left -0.666667 Top %x_2(%t)
Text bottom... no \-> %x
Text left... yes \-> %y

Viewport... 0 4.5 0.5 2.8