[Phonetics] Praat腳本：語調標記與繪圖

為了要幫葉老師的書畫一些語調圖，所以寫了一個Praat腳本來處理這些dirty work。這也是真正第一個自己寫的Praat腳本，值得慶賀一下（終於學會了 ^^y ）。

腳本的功能說明：

1. 標記語調
   
2. 提取音高，手動修正野點(wild point)，平滑
3. 畫音波圖和語調曲拱
   
4. 存檔（附檔名TextGrid、Pitch、wmf）

流程圖示

######################################
# Annotate and draw intonation
#
# Author: Zhunbang Pbice Liao
# Praat Version: 4.6.34
# Last Update: 2007.10.23
######################################

form File Directory
　　comment Input file directory
　　sentence directory c:\praat\
endform

# Create a string file that lists file names.

Create Strings as file list... list 'directory$'*.wav
numberOfFiles = Get number of strings

# if !numberOfFiles
# 　　Create Strings as file list... list'directory$'*.WAV
# 　　numberOfFiles = Get number of strings
# endif

# Loop to read in files

for ifile to numberOfFiles
　　select Strings list
　　fileName$ = Get string... ifile
　　Read from file... 'directory$''fileName$'
　　name$ = fileName$ -".wav" -".WAV"

# Skip labeling if TextGrid files already exist

　　if fileReadable (directory$+name$+".TextGrid")
　　　　Read from file... 'directory$''name$'.TextGrid
　　else
# Do labeling
　　　　select Sound 'name$'
　　　　To TextGrid... Romanization
　　　　plus Sound 'name$'
　　　　Edit
　　　　pause Annotate the sound then click "continue"
　　　　endeditor
　　endif

# Skip extract pitch contour if Pitch file exit

　　if fileReadable (directory$+name$+".Pitch")
　　　　Read from file... 'directory$''name$'.Pitch
　　else 　　

# Extract pitch contour

　　　　select Sound 'name$'
　　　　To Pitch... 0 50 300
　　　　select Pitch 'name$'
　　　　Edit
　　　　select Sound 'name$'
　　　　plus TextGrid 'name$'

# Edit

　　　　pause Fix pitch points then click "continue"
　　　　endeditor
　　　　endeditor
　　　　select Pitch 'name$'
　　　　Smooth... 5
　　 endif

　　

# Draw waveform

　　Erase all
　　Black
　　14
　　Helvetica
　　select Sound 'name$'
　　Select outer viewport... 0 7.5 0 1.5
　　Line width... 1
　　Draw... 0 0 0 0 no Curve

# Draw intonation contour

　　select Pitch 'name$'
　　plus TextGrid 'name$'
　　　　Line width... 3
　　Select outer viewport... 0 7.5 0.5 5.5
　　Draw separately... 0 0 0 300 yes yes yes

　　Line width... 3
　　Draw separately... 0 0 0 300 no no no
　　　　Line width... 3.5
　　Select outer viewport... 0 7.5 0 5.5
　　Axes... 0 7.5 0 5.5
　　Draw rectangle... 0 7.5 0 5.5

　　

# Save File

　　Write to Windows metafile... 'directory$''name$'.wmf
　　if not fileReadable (directory$+name$+".TextGrid")
　　　　select TextGrid 'name$'
　　　　Write to text file... 'directory$''name$'.TextGrid
　　endif
　　if not fileReadable (directory$+name$+".Pitch")
　　　　select Pitch 'name$'
　　　　Write to text file... 'directory$''name$'.Pitch
　　endif

# Remove

　　select Sound 'name$'
　　plus TextGrid 'name$'
　　plus Pitch 'name$'
　　Remove
　　select Pitch 'name$'
　　Remove　　

endfor

select all

Remove

# End of script