SGC_ToneProt/HumToneContour.praat

   1 #! praat
   2 #
   3 #
   4 # Hum the correct tone tracks
   5 #
   6 form Mandarin Tone contours
   7     word pinyin duo1shao3
   8     real register 300
   9 endform
  10
  11 # Generate reference example
  12 # Start with a range of 1 octave and a speed factor of 1
  13 toneRange = 1.0
  14 speedFactor = 1.0
  15 execute ToneScript.praat 'pinyin$' 'register' 1 1 CorrectPitch
  16
  17 # Hum Pitch track
  18 select Pitch 'pinyin$'
  19 Hum
  20
  21 # Clean up
  22 select Pitch 'pinyin$'
  23 Remove
  24
  25