#! Praat script p2/speakers/drawSouthern.praat # Paul Boersma, April 26, 2001 Erase all Times 10 Viewport... 0 2.35 0 1.9 Axes... log2(50) log2(120) -log2(500) -log2(260) call drawPair1 55.7 0.176 331 0.057 103.1 0.125 287 0.085 Bottom sh.p call drawPair1 75.0 0.128 359 0.086 120.3 0.111 290 0.098 Top l.d call drawPair1 48.0 0.155 287 0.101 91.4 0.101 278 0.095 Bottom sn.ker call drawPair1 63.2 0.168 379 0.069 105.4 0.159 313 0.086 Bottom f.ling call drawPair2 55.7 0.176 331 0.057 103.1 0.125 287 0.085 Bottom sh.p call drawPair2 75.0 0.128 359 0.086 120.3 0.111 290 0.098 Top l.d call drawPair2 48.0 0.155 287 0.101 91.4 0.101 278 0.095 Bottom sn.ker call drawPair2 63.2 0.168 379 0.069 105.4 0.159 313 0.086 Bottom f.ling One mark left... -log2(260) no yes no 260 One mark left... -log2(300) no yes no 300 One mark left... -log2(400) no yes no 400 One mark left... -log2(500) no yes no 500 One mark bottom... log2(50) no yes no 50 One mark bottom... log2(60) no yes no 60 One mark bottom... log2(90) no yes no 90 One mark bottom... log2(120) no yes no 120 Draw inner box Text bottom... yes Duration (ms) Viewport... 0.1 1.95 0 1.9 Text left... yes %F_1 (Hz) Viewport... 0.1 1.95 0.3 1.9 procedure drawPair1 mdurI sdurI mf1I sf1I mduri sduri mf1i sf1i where$ text$ Paint ellipse... 0.9 log2(mdurI)-sdurI log2(mdurI)+sdurI -log2(mf1I)-sf1I -log2(mf1I)+sf1I Paint ellipse... 0.4 log2(mduri)-sduri log2(mduri)+sduri -log2(mf1i)-sf1i -log2(mf1i)+sf1i endproc procedure drawPair2 mdurI sdurI mf1I sf1I mduri sduri mf1i sf1i where$ text$ Dotted line Draw line... log2(mdurI) -log2(mf1I) log2(mduri) -log2(mf1i) Plain line Paint circle (mm)... 0 log2(mdurI) -log2(mf1I) 1 Paint circle (mm)... 0 log2(mduri) -log2(mf1i) 1 Draw ellipse... log2(mdurI)-sdurI log2(mdurI)+sdurI -log2(mf1I)-sf1I -log2(mf1I)+sf1I Draw ellipse... log2(mduri)-sduri log2(mduri)+sduri -log2(mf1i)-sf1i -log2(mf1i)+sf1i dx = log2(mduri) - log2(mdurI) dy = -log2(mf1i) + log2(mf1I) Text special... (log2(mdurI)+log2(mduri))/2 Centre (-log2(mf1I)-log2(mf1i))/2 'where$' Times 10 'dx';'dy' 'text$' endproc