# 5.12_abadag_shapes.draw
#
# Praat script that creates figure 5.16 of
#    Boersma (1998): Functional Phonology, section 5.12.
# http://fonsg3.hum.uva.nl/paul/
#
# Run this after 5.12_abadag.make

Erase all

select Artword ba
plus Artword da
plus Artword ga
To Art (slice)... 0.5

Viewport... 0 2 0 2
select Speaker speaker
plus Art ba
Fill inner contour
Draw
Text special... 0.07 Centre -0.05 Half Times 14 0 [ab:]

Viewport... 2 4 0 2
select Speaker speaker
plus Art da
Fill inner contour
Draw
Text special... 0.07 Centre -0.05 Half Times 14 0 [ad:]

Viewport... 4 6 0 2
select Speaker speaker
plus Art ga
Fill inner contour
Draw
Text special... 0.07 Centre -0.05 Half Times 14 0 [ag:]

Viewport... 0.3 5.9 0.2 1.9