# 5.02_Sigh.draw # # Praat script that creates figure 5.3 of # Paul Boersma (1998): Functional Phonology, section 5.2. # http://fonsg3.hum.uva.nl/paul/ # # Expects the file 5.02_exhale_oral.data in the same directory; # that file can be created by 5.02_Sigh.make # Read from file... 5.02_exhale_oral.data Erase all Times 10 # Lungs Viewport... 0 3 0 1.8 Text top... no Lungs Text left... yes Width (mm) Text bottom... yes Time (ms) select Sound width15 Draw... 0 0.5 0.12 0.14 no Draw inner box Marks bottom every... 0.001 100 yes yes no One mark bottom... 0.03 no yes yes ^^30 Marks left every... 0.001 5 yes yes no ! Draw target lung width. Dotted line Draw line... 0 0.132 0.03 0.120 Plain line Viewport... 3 6 0 1.8 Text top... no Lungs call draw_pressure 15 Viewport text... Right Half 0 (a) # Bronchi Viewport... 0 3 1.8 3.6 Text top... no Bronchi call draw_velocity 27 Viewport... 3 6 1.8 3.6 Text top... no Bronchi call draw_pressure 27 Viewport text... Right Half 0 (b) # Glottis Viewport... 0 3 3.6 5.4 Text top... no Glottis call draw_velocity 36 Viewport... 3 6 3.6 5.4 Text top... no Glottis call draw_pressure 36 Viewport text... Right Half 0 (c) # Oral cavity at uvula Viewport... 0 3 5.4 7.2 Text top... no Mouth at uvula call draw_velocity 52 Viewport... 3 6 5.4 7.2 Text top... no Mouth at uvula call draw_pressure 52 Viewport text... Right Half 0 (d) # Width Viewport... 0 2 7.2 9 Text left... yes Width (mm) Viewport... -0.2 2.2 7.2 9 Text top... no Bronchi call draw_width 27 0.010 0.012 Viewport... 1.9 3.9 7.2 9 Text left... yes Width (mm) Viewport... 1.7 4.1 7.2 9 Text top... no Glottis call draw_width 36 0.004 0.006 One mark right... 0.0050 no yes yes \De%%y__eq Viewport... 4 6 7.2 9 Text left... yes Width (mm) Viewport... 3.8 6.2 7.2 9 Text top... no Mouth at uvula call draw_width 52 0.007 0.009 Viewport... 4 6 7.2 9 Viewport text... Right Half 0 (e) Viewport... 0 6 0.15 9 proc draw_pressure tube Text left... yes Pressure (Pa) Text bottom... yes Time (ms) select Sound pressure'tube' Draw... 0 0.5 -500 500 no Draw inner box Marks bottom every... 0.001 100 yes yes no One mark bottom... 0.03 no yes yes ^^30 Marks left every... 1 500 yes yes yes endproc proc draw_velocity tube Text left... yes Velocity (m/s) Text bottom... yes Time (ms) select Sound velocity'tube' Draw... 0 0.5 0 40 no Draw inner box Marks bottom every... 0.001 100 yes yes no One mark bottom... 0.03 no yes yes ^^30 Marks left every... 1 10 yes yes no One mark right... 10 no no yes %%v__crit endproc proc draw_width tube wmin wmax Text bottom... yes Time (ms) select Sound width'tube' Draw... 0 0.5 'wmin' 'wmax' no Draw inner box One mark bottom... 0.0 no yes no 0 One mark bottom... 0.03 no yes yes One mark bottom... 0.1 no yes no 100 One mark bottom... 0.3 no yes no 300 One mark bottom... 0.5 no yes no 500 Marks left every... 0.001 1 yes yes no endproc