ToneProt/HumToneContour.praat

   1 #! praat
   2 #
   3 #
   4 # Hum the correct tone tracks
   5 #
   6 # Needs
   7 # include ToneScript.praat
   8 #
   9 procedure humToneContour humToneContour.pinyin$ humToneContour.register
  10         # Clean up input
  11         if humToneContour.pinyin$ <> ""
  12         humToneContour.pinyin$ = replace_regex$(humToneContour.pinyin$, "^\s*(.+)\s*$", "\1", 1)
  13         humToneContour.pinyin$ = replace_regex$(humToneContour.pinyin$, "5", "0", 0)
  14         endif
  15
  16         # Generate reference example
  17         # Start with a range of 1 octave and a speed factor of 1
  18         humToneContour.toneRange = 1.0
  19         humToneContour.speedFactor = 1.0
  20         call toneScript 'humToneContour.pinyin$' 'humToneContour.register' 'humToneContour.toneRange' 'humToneContour.speedFactor' CorrectPitch
  21
  22         # Hum Pitch track
  23         select Pitch 'humToneContour.pinyin$'
  24         Hum
  25
  26         # Clean up
  27         select Pitch 'humToneContour.pinyin$'
  28         Remove
  29 endproc
  30
  31
  32