Merge branch 'development'

phsource/mbrola/us

@@ -49,3 +49,5 @@
 4  t   VWL    0  t_h
 4  k   VWL    0  k_h
 0  t2  NULL   0  t
+0  ?   NULL   0  t
+0  n-  NULL   0  n

phsource/mbrola/us3

@@ -46,5 +46,7 @@
 0  i@  NULL   50  I  @
 0  i@3 NULL   60  i  r
 0  t2  NULL   0  t
+0  ?   NULL   0  t
+0  n-  NULL   0  n
 
 

phsource/ph_english

@@ -51,6 +51,12 @@ endphoneme
 phoneme r-   // linking r, used in English between certain vowels and a following vowel
   liquid rhotic
   ipa ɹ
+  
+  IF NOT thisPh(isWordEnd) THEN
+    ChangePhoneme(r)
+  ENDIF
+//  ChangePhoneme(r)  // always use [r], not [r-] ?
+  
   lengthmod 0
 
   NextVowelStarts
@@ -99,7 +105,7 @@ phoneme w#
     EndSwitch
   ENDIF
 
-  WAV(h/hu)
+  WAV(h/hu, 70)
 endphoneme
 
 
@@ -113,7 +119,7 @@ phoneme @    //  Schwa
   length 140
   IfNextVowelAppend(r-)
   IF thisPh(isWordEnd) THEN
-    FMT(vowel/@_6)
+    FMT(vowel/@_6, 90)
   ENDIF
   FMT(vowel/@)
 endphoneme
@@ -168,11 +174,22 @@ phoneme a
 endphoneme
 
 
+phoneme a2  // don't reduce to a#
+  vowel dontlist
+  ChangePhoneme(a)
+endphoneme
+
+
 phoneme a#
   vowel  starttype #@  endtype #@
   ipa ɐ
   unstressed
   length 150
+  
+  IF NOT thisPh(isUnstressed) THEN
+    ChangePhoneme(a)          // syllable has an explicit stress
+  ENDIF
+
   FMT(vowel/a#_3)
 endphoneme
 
@@ -187,7 +204,7 @@ phoneme aa   //   'bath' etc.
   ENDIF
 
   IfNextVowelAppend(r-)
-  FMT(vowel/a_6, 90)
+  FMT(vowel/a_6, 88)
 endphoneme
 
 
@@ -266,9 +283,9 @@ phoneme i   //  optional variant of [I] for end of words
   length 150
   IfNextVowelAppend(;)
   
-//  IF prevVowel(isStressed) AND prevPhW(dZ) THEN
-//    FMT(vowel/ii_final)
-//  ENDIF
+  IF NOT thisPh(isFinalVowel) THEN
+    ChangePhoneme(I)
+  ENDIF
   
   FMT(vowel/ii_7)
 endphoneme
@@ -314,6 +331,12 @@ endphoneme
 phoneme U
   vowel  starttype #o  endtype #o
   length 150
+  
+  IF prevPhW(j) THEN
+    length 130
+    FMT(vowel/8_2)
+  ENDIF
+
   FMT(vowel/uu)
 endphoneme
 
@@ -410,8 +433,8 @@ phoneme u:
   IF nextPh(l/2) THEN
     FMT(vwl_en/u_L)
   ENDIF
-  IF prevPhW(j) THEN
-    length 180
+  IF prevPhW(j) AND NOT thisPh(isWordEnd) THEN
+    length 160
   ENDIF
   FMT(vdiph2/uw_2)
 endphoneme

phsource/ph_english_rp

@@ -81,6 +81,11 @@ phoneme i   //  optional variant of [I] for end of words
   vowel  starttype #i  endtype #i
   length 140
   IfNextVowelAppend(;)
+
+  IF NOT thisPh(isFinalVowel) THEN
+    ChangePhoneme(I)
+  ENDIF
+    
   FMT(vowel/ii_final)
 endphoneme
 

phsource/ph_english_us

@@ -49,7 +49,8 @@ phoneme a
   IF nextPh(isNasal) THEN
     FMT(vnasal/ee_n2)
   ELSEIF nextPh(r) THEN
-    FMT(vowel/ee_7)
+    length 230
+    FMT(vwl_en_us/ar)
   ENDIF
   FMT(vwl_en_us/a)
 endphoneme
@@ -65,7 +66,11 @@ phoneme a#
   ipa ɐ
   unstressed
   length 150
-  
+
+  IF thisPh(isStressed) THEN
+    ChangePhoneme(a)
+  ENDIF
+
   IF nextPhW(r) THEN
     ChangePhoneme(3)
   ENDIF
@@ -121,6 +126,11 @@ phoneme i   //  optional variant of [I] for end of words
   unstressed
   length 170
   IfNextVowelAppend(;)
+
+  IF NOT thisPh(isFinalVowel) THEN
+    ChangePhoneme(I)
+  ENDIF
+  
   FMT(vowel/ii_final)
 endphoneme
 
@@ -163,7 +173,7 @@ phoneme A:
   vowel  starttype #a  endtype #a
   length 200
   IF nextPhW(r) THEN
-    FMT(vwl_en_us/ar)
+    FMT(vwl_en_us/aar)
   ENDIF
   FMT(vowel/aa_8)
 endphoneme
@@ -177,7 +187,7 @@ phoneme A@      // Used for [A:] when followed by 'r', becomes [A:]+[r] in Ameri
   ENDIF
   length 260
   IfNextVowelAppend(r-)
-  FMT(vwl_en_us/ar)
+  FMT(vwl_en_us/aar)
 endphoneme
 
 
@@ -250,6 +260,11 @@ endphoneme
 phoneme u:
   vowel  starttype #u  endtype #u
   length 190
+  
+  IF prevPhW(j)  AND NOT thisPh(isWordEnd) THEN
+    length 160
+  ENDIF
+  
   FMT(vdiph2/uw_6)
 endphoneme
 
@@ -295,7 +310,7 @@ endphoneme
 
 phoneme e@
   vowel  starttype #e  endtype #@
-  length 280
+  length 260
   ipa ɛ|ɹ
   IF nextPhW(r) THEN
     ipa ɛ

phsource/ph_tamil

@@ -163,3 +163,24 @@ phoneme z.
   CALL base/z.
   ipa U+027B
 endphoneme
+
+phoneme r
+  liquid rhotic
+  lengthmod 3
+  
+  IF thisPh(isWordEnd) THEN
+    CALL base/r/
+  ENDIF
+    
+  IF prevPhW(isVowel) THEN
+    IF nextPhW(isNotVowel) THEN
+      ChangePhoneme(**)
+    ENDIF
+
+    ChangePhoneme(*)
+  ENDIF
+    
+  CALL base/r
+  ipa ɾ
+endphoneme
+

phsource/vowelcharts/bn

@@ -14,6 +14,7 @@ o:	 0 424  800 2580   408  780 2600
 O:	 0 584  940 2580   584  940 2580
 O	 0 536  920 2600   536  920 2600
 U	 0 368  880 2440   368  900 2440
+u:	 0 320  740 2400   320  740 2400
 i~	 0 312 2240 2844   312 2240 2844
 e~	 0 456 1960 2520   456 1960 2520
 a~	 0 724 1200 2652   724 1200 2652

phsource/vowelcharts/en

@@ -4,7 +4,6 @@
 a	 1 856 1320 2700   856 1320 2700
 a	 0 904 1320 2700   896 1340 2660
 e	 0 456 1980 2540   440 1980 2540
-i	 1 368 2100 2660   344 2146 2700
 i	 0 376 1970 2585   376 1970 2585
 o	 0 552  860 2660   552  880 2660
 u	 0 320  860 2360   320  860 2460
@@ -12,6 +11,7 @@ n-	 1 496 1512 2380   480 1500 2540
 n-	 0 496 1512 2380   380 1780 2540
 I2	 1 416 1800 2560   416 1800 2560
 I2	 0 408 1920 2580   416 1900 2580
+U	 1 496 1040 2560   496 1040 2560
 U	 0 445  902 2620   445  902 2620
 @L	 0 485  891 2780   450  792 2980
 a#	 0 658 1408 2460   658 1408 2460

phsource/vowelcharts/en-us

@@ -2,7 +2,7 @@
 @	 0 496 1500 2420   496 1500 2420
 @-	 0 525 1441 2340   525 1441 2340
 a	 1 670 1719 2556   710 1672 2671
-a	 1 635 1718 2519   635 1719 2522
+a	 1 664 1705 2516   568 1527 2060
 a	 0 700 1680 2506   652 1488 2470
 e	 0 456 1980 2540   440 1980 2540
 i	 0 368 2100 2660   344 2146 2700
@@ -17,7 +17,7 @@ U	 0 496 1040 2560   496 1040 2560
 @L	 0 485  891 2780   450  792 2980
 a#	 0 658 1408 2460   658 1408 2460
 aa	 1 670 1719 2556   710 1672 2671
-aa	 1 635 1718 2519   635 1719 2522
+aa	 1 664 1705 2516   568 1527 2060
 aa	 0 700 1680 2506   652 1488 2470
 A:	 1 728 1200 2640   520 1400 1840
 A:	 0 728 1200 2660   712 1200 2660