ToneProt/DrawToneContour.praat

   1 #! praat
   2 #
   3 #
   4 # Draw the correct tone tracks
   5 #
   6 # Needs
   7 # include ToneScript.praat
   8 #
   9 procedure drawToneContour drawToneContour.pinyin$ drawToneContour.register
  10         # Clean up input
  11         if drawToneContour.pinyin$ <> ""
  12         drawToneContour.pinyin$ = replace_regex$(drawToneContour.pinyin$, "^\s*(.+)\s*$", "\1", 1)
  13         drawToneContour.pinyin$ = replace_regex$(drawToneContour.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         drawToneContour.toneRange = 1.0
  19         drawToneContour.speedFactor = 1.0
  20         call toneScript 'drawToneContour.pinyin$' 'drawToneContour.register' 1 1 CorrectPitch
  21
  22         drawToneContour.freqTop = 1.5 * drawToneContour.register
  23
  24         # Draw Pitch track
  25         select Pitch 'drawToneContour.pinyin$'
  26         demo Select outer viewport... 20 80 40 100
  27         demo Axes... 0 100 0 100
  28         demo Line width... 1
  29         demo Green
  30         demo Draw... 0 0 0 'drawToneContour.freqTop' 0
  31         demo Line width... 3
  32         demo Green
  33         demo Draw... 0 0 0 'drawToneContour.freqTop' 0
  34         demo Select outer viewport... 0 100 0 100
  35         demo Axes... 0 100 0 100
  36
  37         # Clean up
  38         select Pitch 'drawToneContour.pinyin$'
  39         Remove
  40 endproc
  41