除了MIT的開放課程之外，我也很喜歡MIT World，上面有許多學術演講的影片，可以即時播放。最近有個系列演講，正好是關於語言學的：為了要幫葉老師的書畫一些語調圖，所以寫了一個Praat腳本來處理這些dirty work。這也是真正第一個自己寫的Praat腳本，值得慶賀一下（終於學會了 ^^y ）。
腳本的功能說明：
######################################
# 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
語音學研究軟體Praat發佈了5.0版！這實在是令人興奮的消息。究竟5.0版有什麼功能改進呢？主要的有：
