lv: improve sounds of phonemes

phsource/ph_latvian

@@ -47,17 +47,16 @@ phoneme i:
   FMT(vwl_lv/ii, 90) // was i_7
 endphoneme
 
-
 phoneme y   // English y, short Latgalian "hard i"
   vwl starttype #i endtype #i
   length 120
-  FMT(vwl_lv/y)
+  FMT(vwl_lv/y, 100)
 endphoneme
 
 phoneme y:   // Long Latgalian "hard i"
   vwl starttype #i endtype #i
   length 300
-  FMT(vwl_lv/yy)
+  FMT(vwl_lv/yy, 90)
 endphoneme
 
 phoneme o
@@ -75,13 +74,13 @@ endphoneme
 phoneme u
   vwl starttype #u endtype #u
   length 120
-  FMT(vwl_lv/u, 140)
+  FMT(vwl_lv/u, 100)
 endphoneme
 
 phoneme u:
   vwl starttype #u endtype #u
   length 300
-  FMT(vwl_lv/uu, 120)
+  FMT(vwl_lv/uu, 90)
 endphoneme
 
 phoneme ai
@@ -128,16 +127,16 @@ endphoneme
 
 phoneme uo
   vwl starttype #u endtype #a
-  length 270
+  length 280
   lng
-  FMT(vdiph2/ua, 100)
+  FMT(vdiph2/ua, 110)
 endphoneme
 
 phoneme uo`     // shorter version of uo
   vwl starttype #u endtype #a
   length 150
   lng
-  FMT(vdiph2/ua, 100)
+  FMT(vdiph2/ua, 90)
 endphoneme
 
 phoneme oi
@@ -166,7 +165,7 @@ endphoneme
 phoneme D   // louder and shorter version of d
   vcd alv stp
   voicingswitch t
-  length 10
+  length 8
   lengthmod 5
   Vowelin f1=1  f2=1700 -300 300  f3=-100 80
   Vowelout f1=2 f2=1700 -300 300  f3=-100 80 brk
@@ -188,24 +187,23 @@ phoneme h // more quiet version of standard h
   ipa h
 
   IF nextPh(#a) THEN
-    WAV(h/ha, 20)
+    WAV(h/h-lv, 10)
   ELIF nextPh(#e) THEN
-    WAV(h/he, 20)
+    WAV(h/h-lv, 10)
   ELIF nextPh(#i) THEN
-    WAV(h/hi, 20)
+    WAV(h/h-lv, 10)
   ELIF nextPh(#o) THEN
-    WAV(h/ho, 20)
+    WAV(h/h-lv, 10)
   ELIF nextPh(#u) THEN
-    WAV(h/hu, 20)
+    WAV(h/h-lv, 10)
   ELIF nextPh(isPause) THEN
-    WAV(h/h_, 40)  // louder for foreign words
+    WAV(h/h-lv, 20)
   ENDIF
-  WAV(h/h_, 20)  // no vowel following
+  WAV(h/h-lv, 10)  // no vowel following
 endphoneme
 
 phoneme j // **y**es
   liquid pal starttype #i
-
   IF nextPhW(isVowel) THEN
     NextVowelStarts
       VowelStart(j/j@)
@@ -215,7 +213,7 @@ phoneme j // **y**es
       VowelStart(j/jo)
       VowelStart(j/ju)
     EndSwitch
-    VowelEnding(j/xj, 70) // In difference with English, vowel is lengthened, not shortened
+    VowelEnding(j/xj, 127) // In difference with English, vowel is lengthened, not shortened
   ELSE
     Vowelout len=127      // no vowel follows
     FMT(j/xj)
@@ -253,10 +251,6 @@ endphoneme
 phoneme l
   liquid
 
-//  IF nextPh(isNotVowel) THEN
-//    ChangePhoneme(l/)
-//  ENDIF
-
   IF nextPh(isNotVowel) THEN
     PrevVowelEndings
       VowelEnding(l/L1_@L)
@@ -320,9 +314,6 @@ phoneme l^    // Latvian ļ, customized from standard l^
 
 endphoneme
 
-
-
-
 phoneme m // copied from standard m phoneme with rule for 'mm'
   vcd blb nas
   Vowelout f1=2  f2=1000 -500 -350  f3=-200 80 brk
@@ -438,11 +429,28 @@ phoneme v`        // shortened v
   FMT(voc/v#_)
 endphoneme
 
-phoneme z`  // Shortened version of z for diphthong dz
+phoneme z- // Shorter version of z
+  vcd alv frc sib
+  length 30
+  voicingswitch s
+  Vowelout f1=0  f2=1700 -300 300  f3=-100 60  len=50
+
+  IF KlattSynth THEN
+    Vowelin f1=0 f2=1390 -300 300 f3=0 0
+    Vowelout f1=1  f2=1390 -300 300  f3=-100 60  len=50 brk
+  ENDIF
+
+  IF nextPh(isPause2) THEN
+    FMT(voc/z_) addWav(ufric/s_, 70)
+  ENDIF
+  FMT(voc/z) addWav(ufric/s_, 85)
+endphoneme
+
+
+phoneme z`  // Shortest version of z for diphthong dz
   vcd alv frc sib
   voicingswitch s
   length 8
-  lengthmod 6
   Vowelout f1=0  f2=1700 -300 300  f3=-100 60  len=50
 
   IF KlattSynth THEN