#In Praat picture window, this script draws a picture of the
#sound waveform, spectrogram, pitch object, 
#and TextGrid. All you need in the object window 
#is a Sound and a TextGrid. This script will take 
#care of the rest. You will specify the F0 range for
#the pitch yourself in a form.
#
#Created by Jessica Sertling Miller - sertling@uiuc.edu
#March 3, 2006
##############################################################

form Pitch range
comment Select range
	real left_F0_range 75
	real right_F0_range 500
endform

select all
name$ = selected$ ("Sound")
grid$ = selected$ ("TextGrid")

select Sound 'name$'
Select outer viewport... 0 8.5 0 1.5
Draw... 0 0 0 0 no curve
To Spectrogram... 0.005 5000 0.002 20 Gaussian
Select outer viewport... 0 8.5 1 2.5
Paint... 0 0 0 0 100 yes 50 6 0 no
select Sound 'name$'
To Pitch... 0 'left_F0_range' 'right_F0_range'
Smooth... 10
Select outer viewport... 0 8.5 2 3.5
Draw... 0 0 'left_F0_range' 'right_F0_range' no
Marks left... 5 no yes no
Marks left... 3 yes no no
Text left... yes Hz

select all
select TextGrid 'grid$'
Select outer viewport... 0 8.5 0 5
select TextGrid 'grid$'
Draw... 0 0 yes yes yes