Ana Sayfa Keşfet Yardım
Giriş Yap
emily
/
praat
İzle 1
Yıldızla 0
Çatalla 0
Dosyalar Sorunlar 0 Değişiklik İstekleri 0 Wiki
Ağaç: 7c045415d2
Dallar Biçim İmleri
praat
/
dwtest
/
ba-da-continuum.praat

ba-da-continuum.praat 2.2 KB
Geçmiş Ham

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 
  1. # ba-da-continuum.praat
    2. 

  2. # djmw 20090506
    3. 

  3. 

  4. # de KlattGrid versie
    5. 

  5. 

  6. nsounds = 10
    7. 

  7. t1 = 0.05
    8. 

  8. t2 = t1+0.05
    9. 

  9. tm = 0.3
    10. 

  10. 

  11. kg = Create KlattGrid... kg 0 tm 9 1 1 6  1 1 1
    12. 

  12. 

  13. Add pitch point... 0 150
    14. 

  14. 

  15. Add pitch point... tm 100
    16. 

  16. 

  17. Add voicing amplitude point... t1 65
    18. 

  18. Add voicing amplitude point... t2 80
    19. 

  19. Add open phase point... t1 0.7
    20. 

  20. Add collision phase point... t1 0.05
    21. 

  21. 

  22. #Add aspiration amplitude point... t1 30
    23. 

  23. #Add aspiration amplitude point... t2 40
    24. 

  24.  
    25. 

  25. Add oral formant frequency point... 1 t1 100
    26. 

  26. Add oral formant bandwidth point... 1 t1 50
    27. 

  27. Add oral formant frequency point... 1 t2 800
    28. 

  28. 

  29. Add oral formant bandwidth point... 2 t1 100
    30. 

  30. Add delta formant bandwidth point... 1 t1 100
    31. 

  31. 

  32. for iformant from 3 to 9
    33. 

  33.   frequency = (2 * iformant - 1) * 500
    34. 

  34.   Add oral formant frequency point... iformant t2 frequency
    35. 

  35.   Add oral formant bandwidth point... iformant t1 frequency 
    36. 

  36.   Add oral formant bandwidth point... iformant t2 frequency / 15
    37. 

  37. endfor
    38. 

  38. 

  39. for isound to nsounds
    40. 

  40.   select kg
    41. 

  41.   Remove oral formant frequency points... 2 0 tm
    42. 

  42.   f2 = 100 + (2900 / (nsounds - 1)) * (isound - 1)
    43. 

  43.   Add oral formant frequency point... 2 t1 f2
    44. 

  44.   Add oral formant frequency point... 2 t2 1200
    45. 

  45.   To Sound
    46. 

  46.   Fade out... All tm -0.005 y
    47. 

  47.   Rename... bada'isound'
    48. 

  48. endfor
    49. 

  49. 

  50. # cleanup
    51. 

  51. 

  52. select kg
    53. 

  53. #Remove
    54. 

  54. 

  55. # old style according manual Source-filter synthesis 3. does not work nbeacause of error in script
    56. 

  56. 

  57. procedure ba_da_old_style
    58. 

  58.   tm = 0.4
    59. 

  59.   t1 = 0.05
    60. 

  60.   pt = Create PitchTier... f0 0 tm
    61. 

  61.   Add point... 0 150
    62. 

  62.   Add point... tm 100
    63. 

  63.   pp = To PointProcess
    64. 

  64.   Remove points between... 0 t1
    65. 

  65.   Remove points between... tm-0.05 tm
    66. 

  66.   s = To Sound (phonation)... 44100 0.6 0.05 0.7 0.03 3.0 4.0
    67. 

  67. 

  68.   intens = Create IntensityTier... intens 0 tm
    69. 

  69.   Add point... t1 60
    70. 

  70.   Add point... t1+0.05 80
    71. 

  71. 

  72.   plus s
    73. 

  73.   source = Multiply
    74. 

  74. 

  75.   for i to 10
    76. 

  76.     f2_locus = 500+(2500/9)*(i-1)
    77. 

  77.     fg = Create FormantGrid... filter 0 tm 9 0.001 1000 0 100
    78. 

  78.     Remove formant points between... 1 0 tm
    79. 

  79.     Add formant point... 1 t1 100
    80. 

  80.     Add bandwidth point... 1 t1 50
    81. 

  81.     Add formant point... 2 t1 f2_locus
    82. 

  82.     Add bandwidth point... 2 t1 100
    83. 

  83.     plus source
    84. 

  84.     Filter
    85. 

  85.     Rename... old_bada'i'
    86. 

  86.     select fg
    87. 

  87.     Remove
    88. 

  88.   endfor
    89. 

  89. 

  90.   select source
    91. 

  91.   plus s
    92. 

  92.   plus intens
    93. 

  93.   plus pp
    94. 

  94.   plus pt
    95. 

  95.   Remove
    96. 

  96. endproc  
    97. 

  97. 

  98. 

  99. 

  100.