# This praat script will draw sound wave and pitch contour.
# The picture object which is made by this script will be suitable for document file (e.g. MS-Word).
# Sound file is needed.
# 2009/09/28 by Toshio Matsuura a.k.a. yearman

# Input form
form Draw sound wave and pitch contour
	word file_name
	comment Input start time
	text starttime 0.0
	comment Input end time
	text endtime 1.0
	comment Input max pitch
	text maxpitch 250
	comment Input min pitch
	text minpitch 50
	comment distance between pitch lines
	text dist 50
endform

Erase all
Select inner viewport... 0.5 2.5 -0.1 0.3
select Sound 'file_name$'
Draw... 'starttime$' 'endtime$' 0 0 no  Curve
Draw inner box
Select inner viewport... 0.5 2.5 0.31 1.3
Line width... 5
To Pitch... 0.01 50 600
Draw... 'starttime$' 'endtime$' 'minpitch$' 'maxpitch$' no
Line width... 1
Draw inner box
Marks left every... 1 'dist$' yes yes yes
Marks bottom every... 1 0.2 yes yes no
Select outer viewport... 0.25 2.52 -0.1 1.45
Copy to clipboard