#! praat
#
#
# Draw the correct tone tracks
#
form Mandarin Tone contours
    word pinyin duo1shao3
    real register 300
endform

# Generate reference example
# Start with a range of 1 octave and a speed factor of 1
toneRange = 1.0
speedFactor = 1.0
execute ToneScript.praat 'pinyin$' 'register' 1 1 CorrectPitch

freqTop = 1.5 * register
Erase all
Select outer viewport... 0 6 0 4

# Draw Pitch track
select Pitch 'pinyin$'
Line width... 1
Green
Draw... 0 0 0 'freqTop' 1
Line width... 3
Green
Draw... 0 0 0 'freqTop' 0

24
Text top... no 'pinyin$'

# Clean up
select Pitch 'pinyin$'
Remove