Improvements for Latvian language

phsource/ph_latvian

@@ -1,156 +1,234 @@
-
-phoneme @
-  vowel starttype #@ endtype #@
-  length 120
-  FMT(vowel/8_7)
-endphoneme
- 
 phoneme i
+
   vowel starttype #i endtype #i
-  length 110
+  length 100
   IfNextVowelAppend(;)
   FMT(vowel/i_6)
 endphoneme
 
+phoneme i2
+  vowel starttype #i endtype #i
+  length 100
+  IfNextVowelAppend(;)
+  FMT(vowel/i_2)
+endphoneme
+
+
+phoneme i3
+  vowel starttype #i endtype #i
+  length 100
+  IfNextVowelAppend(;)
+  FMT(vowel/i_3)
+endphoneme
+
+phoneme i4
+  vowel starttype #i endtype #i
+  length 100
+  IfNextVowelAppend(;)
+  FMT(vowel/i_4)
+endphoneme
+
+phoneme i5
+  vowel starttype #i endtype #i
+  length 100
+  IfNextVowelAppend(;)
+  FMT(vowel/i_5)
+endphoneme
+
+phoneme i6
+  vowel starttype #i endtype #i
+  length 100
+  IfNextVowelAppend(;)
+  FMT(vowel/i_6)
+endphoneme
+
+phoneme i7
+  vowel starttype #i endtype #i
+  length 100
+  IfNextVowelAppend(;)
+  FMT(vowel/i_7)
+endphoneme
+
+phoneme i8
+  vowel starttype #i endtype #i
+  length 100
+  IfNextVowelAppend(;)
+  FMT(vowel/i_8)
+endphoneme
+
 phoneme i:
   vowel starttype #i endtype #i
-  length 300
+  length 250
   IfNextVowelAppend(;)
   FMT(vowel/i_6)
 endphoneme
 
+phoneme E
+  vowel starttype #e endtype #e
+  length 100
+  FMT(vowel/ee_5)
+endphoneme
+
+phoneme E:
+  vowel starttype #e endtype #e
+  length 250
+  FMT(vowel/e_mid)
+endphoneme
 
 phoneme e
   vowel starttype #e endtype #e
-  length 120
+  length 150
   FMT(vowel/e_mid)
 endphoneme
 
 phoneme e:
   vowel starttype #e endtype #e
-  length 330
+  length 250
   FMT(vowel/e_mid)
 endphoneme
 
 
-phoneme &
-  vowel starttype #a endtype #a
-  length 120
-  FMT(vowel/&)
-endphoneme
-
-phoneme &:
-  vowel starttype #a endtype #a
-  length 330
-  FMT(vowel/&)
-endphoneme
-
-
 phoneme a
   vowel starttype #a endtype #a
-  length 120
-  ChangeIfDiminished(a#)
-  FMT(vowel/a_3)
+  length 100
+  FMT(vowel/aa_7) //  a_5 or aa_7
 endphoneme
 
 phoneme a:
   vowel starttype #a endtype #a
-  length 350
+  length 300
+  long
+  FMT(vowel/aa_9) // was a_3 or aa_9
+endphoneme
+
+phoneme a3
+  vowel starttype #a endtype #a
+  length 100
+  //ChangeIfDiminished(a#)
   FMT(vowel/a_3)
 endphoneme
 
-phoneme a#
+phoneme a5
   vowel starttype #a endtype #a
-  ipa ɐ
-  length 120
-  FMT(vowel/V_6)
+  length 100
+  //ChangeIfDiminished(a#)
+  FMT(vowel/a_5)
+endphoneme
+
+phoneme a5:
+  vowel starttype #a endtype #a
+  length 350
+  FMT(vowel/a_5)
+endphoneme
+
+phoneme a77
+  vowel starttype #a endtype #a
+  length 100
+  //ChangeIfDiminished(a#)
+  FMT(vowel/aa_7)
+endphoneme
+
+phoneme a77:
+  vowel starttype #a endtype #a
+  length 350
+  FMT(vowel/aa_7)
+endphoneme
+
+phoneme a22
+  vowel starttype #a endtype #a
+  length 100
+  //ChangeIfDiminished(a#)
+  FMT(vowel/aa_2)
+endphoneme
+
+phoneme a22:
+  vowel starttype #a endtype #a
+  length 350
+  FMT(vowel/aa_2)
 endphoneme
 
 phoneme o
   vowel starttype #o endtype #o
-  length 120
+  length 100
   FMT(vowel/oo_1)
 endphoneme
 
 phoneme o:
   vowel starttype #o endtype #o
-  length 330
+  length 200
   FMT(vowel/oo_1)
 endphoneme
 
-
 phoneme u
   vowel starttype #u endtype #u
-  length 110
+  length 100
   FMT(vowel/u)
 endphoneme
 
 phoneme u:
   vowel starttype #u endtype #u
-  length 330
+  length 250
   FMT(vowel/u)
 endphoneme
 
 
 phoneme ai
   vowel starttype #a endtype #i
-  length 310
+  length 250
   long
   FMT(vdiph/aai)
 endphoneme
 
 phoneme ei
   vowel starttype #e endtype #i
-  length 300
+  length 250
   long
   FMT(vdiph/eei_2)
 endphoneme
 
 phoneme au
   vowel starttype #a endtype #u
-  length 300
+  length 250
   long
   FMT(vdiph/aau)
 endphoneme
 
 phoneme uo
   vowel starttype #u endtype #a
-  length 300
-  long
+  length 200
+  //long
   FMT(vdiph2/uaa)
 endphoneme
 
 phoneme oi
   vowel starttype #o endtype #i
-  length 290
+  length 250
   long
   FMT(vdiph/ooi)
 endphoneme
 
 phoneme ui
   vowel starttype #u endtype #i
-  length 290
+  length 250
   long
   FMT(vdiph/ui)
 endphoneme
 
 phoneme ie
   vowel starttype #i endtype #e
-  length 290
+  length 250
   long
   FMT(vdiph2/ie_2)
 endphoneme
 
 phoneme iu
   vowel starttype #i endtype #u
-  length 290
+  length 250
   long
   FMT(vdiph2/iu_2)
 endphoneme
 
-
-
-phoneme R2
+phoneme R
   liquid
   trill
   lengthmod 6
@@ -159,32 +237,32 @@ phoneme R2
   FMT(r3/r_trill) addWav(r3/r_trill.wav, 50)
 endphoneme
 
-
 phoneme ts
-  vls alv afr sibilant lengthenstop
-  lengthmod 2
-  Vowelin f1=0  f2=1700 -300 300  f3=-100 80
-  Vowelout f1=0 f2=1700 -300 250  f3=-100 80  rms=20
-  IF nextPh(isPause2) THEN
-    WAV(ustop/ts_)
-  ENDIF
-  WAV(ustop/ts2, 90)
+  vls alv afrc stop nolink 
+  voicingswitch J
+  length 55
+  lengthmod 1
+  WAV(ustop/ts2, 60)
 endphoneme
 
-
-phoneme t   // try disable this and try using English [t]
-  vls alv stop lengthenstop
+phoneme tS
+  vls pla afr sibilant
+  voicingswitch dZ
   lengthmod 2
+  length 80
+  WAV(ustop/tsh,40)
+endphoneme
+
+phoneme t 
+  vls alv stop //lengthenstop
+  lengthmod 1
   voicingswitch d
-  Vowelin f1=0  f2=1700 -300 300  f3=-100 80
-  Vowelout f1=0 f2=1700 -300 250  f3=-100 80  rms=20
   IF nextPh(isPause2) THEN
-    WAV(ustop/t_)
+    WAV(ustop/t_dnt, 20)
   ENDIF
-  WAV(ustop/t_short, 115)
+  WAV(ustop/t_dnt, 50)
 endphoneme
 
-
 phoneme p
   vls blb stop
   lengthmod 2
@@ -200,7 +278,6 @@ phoneme p
   WAV(ustop/p_unasp, 120)
 endphoneme
 
-
 phoneme k
   vls vel stop
   lengthmod 2
@@ -219,6 +296,20 @@ phoneme k
   WAV(ustop/k_unasp, 60)   // weaker
 endphoneme
 
+phoneme c
+  vls pal stop palatal
+  voicingswitch J
+  lengthmod 2
+  WAV(ustop/c, 80)
+endphoneme
+
+phoneme l 
+  liquid
+  unstressed
+  dnt
+  length 100
+  FMT(vwl_hi/l-voc)
+endphoneme
 
 phoneme s2   // second part of long [s:]
   vls alv frc sibilant