# lungs.draw # # Praat script that creates figure 2.6 of # Boersma (1998): Functional Phonology. # http://fonsg3.hum.uva.nl/paul/ # Erase all Times 10 Viewport... 0 6 0 3 Line width... 4 Axes... -3 26 -120 120 # subdiv 320 Paint rectangle... 0.6 6 7 -120 120 # subdiv 640 Paint rectangle... 0.55 5 6 -120 120 # subdiv 1250 Paint rectangle... 0.5 4 5 -120 120 # subdiv 2500 Paint rectangle... 0.45 3 4 -120 120 # subdiv 1250 Paint rectangle... 0.4 -3 3 -120 120 Draw line... 26 11 16 11 Draw line... 16 11 16 18 Draw line... 16 18 14 18 Draw line... 14 18 14 12 Draw line... 14 12 12 12 Draw line... 12 12 12 18 Draw line... 12 18 11 18 Draw line... 11 18 11 35 Draw line... 11 35 10 35 Draw line... 10 35 10 70 Draw line... 10 70 9 70 Draw line... 9 70 9 120 Draw line... 9 120 -3 120 Draw line... 26 -11 16 -11 Draw line... 16 -11 16 -18 Draw line... 16 -18 14 -18 Draw line... 14 -18 14 -12 Draw line... 14 -12 12 -12 Draw line... 12 -12 12 -18 Draw line... 12 -18 11 -18 Draw line... 11 -18 11 -35 Draw line... 11 -35 10 -35 Draw line... 10 -35 10 -70 Draw line... 10 -70 9 -70 Draw line... 9 -70 9 -120 Draw line... 9 -120 -3 -120 Draw line... -3 120 -3 -120 Text... 26 Centre 0 Half %%glottis Line width... 1 Draw line... 14 0 16 0 # subdiv 3 Draw line... 13 4 14 4 Draw line... 13 -4 14 -4 # subdiv 5 Draw line... 12 7.2 13 7.2 Draw line... 12 2.4 13 2.4 Draw line... 12 -7.2 13 -7.2 Draw line... 12 -2.4 13 -2.4 Line width... 1 # subdiv 10 for i to 4 y = 3.6 * i Draw line... 11 y 12 y Draw line... 11 -y 12 -y endfor Draw line... 11 0 12 0 #subdiv 20, 40 for i to 9 y = 3.5 * i Draw line... 9 y 11 y Draw line... 9 -y 11 -y endfor Draw line... 7 0 11 0 #subdiv 40 for i from 10 to 19 y = 3.5 * i Draw line... 9 y 10 y Draw line... 9 -y 10 -y endfor #subdiv 80, 160 for i to 39 y = 3 * i Draw line... 7 y 9 y Draw line... 7 -y 9 -y endfor # subdiv 160 for i to 40 y = 3 * i - 1.5 Draw line... 7 y 8 y Draw line... 7 -y 8 -y endfor Viewport... 0.2 5.8 0.3 2.7