[1.47.03a]

Change sound of Portugal 'rr' and initial 'r'.
Fixed for Aragonese ordinal numbers.


git-svn-id: https://espeak.svn.sourceforge.net/svnroot/espeak/trunk@330 d46cf337-b52f-0410-862d-fd96e6ae7743

phsource/compile_report

@@ -49,7 +49,7 @@ consonants  11  119
       ca  11  127
       an   4  125
       pt  29  140
-   pt-pt  18  140
+   pt-pt  20  140
       ro  36  148
       el  10  125
      grc  12  129
@@ -721,6 +721,7 @@ r3/rx           [*] base
                 [r] et
                 [r/] fr
                 [R] fr-ca
+                [x] pt-pt
                 [*;] ro
                 [r#] is
                 [r/] tn
@@ -2548,6 +2549,7 @@ vwl_fr/r        [r] fr
 vwl_fr/r_       [r/] fr
 vwl_fr/r_@      [r/] fr
 vwl_fr/r@       fr  post_r
+vwl_fr/@R       [x] pt-pt
 vwl_fr/r@2      fr  post_r
 vwl_fr/@R2      [R] fr-ca
 vwl_fr/ra       fr  post_r

phsource/ph_portugal

@@ -133,6 +133,23 @@ phoneme w
 endphoneme
 
 
+phoneme x      // [r] for Portugal
+  liquid
+  trill
+  ipa ʁ
+  lengthmod 7
+  Vowelin f1=0  f2=1500 -400 400  f3=-400 80
+  IF nextPh(isNotVowel) THEN
+    ChangePhoneme(r/)
+  ENDIF
+  FMT(vwl_fr/@R) addWav(r3/rx, 120)
+endphoneme
+
+
+phoneme R    // for Portugal this is same the as [r]
+  import_phoneme pt/r
+endphoneme
+
 
 phoneme s#     // This is [s] for Brazil, [S] for Portugal
   CALL base/S