SGC_ToneProt/CreateFullToneSet.praat

   1 #!praat
   2 #
   3 # Create a full set of ba?ba? and ba? examples
   4 # and write the sound files to file.
   5 # You can specify the reiterated syllable and the
   6 # reference pitch
   7 #
   8 form Give syllable and F0
   9    word monosyllable ba1
  10    positive f0 300
  11 endform
  12
  13 execute ToneScript.praat 'monosyllable$''monosyllable$' 'f0' 1 1 Sound
  14 select Table ToneList
  15 numExamples = Get number of rows
  16 for i from 1 to numExamples
  17     select Table ToneList
  18     filename$ = Get value... 'i' Word
  19     if filename$ <> "------EMPTY"
  20         select Sound 'filename$'
  21         Write to WAV file... 'filename$'.wav
  22         Remove
  23     endif
  24 endfor
  25 select Table ToneList
  26 Remove
  27
  28 execute ToneScript.praat 'monosyllable$' 'f0' 1 1 Sound
  29 select Table ToneList
  30 numExamples = Get number of rows
  31 for i from 1 to numExamples
  32     select Table ToneList
  33     filename$ = Get value... 'i' Word
  34     if filename$ <> "------EMPTY"
  35         select Sound 'filename$'
  36         Write to WAV file... 'filename$'.wav
  37         Remove
  38     endif
  39 endfor
  40 select Table ToneList
  41 Remove