Merge branch 'development'

phsource/ph_bengali

@@ -29,7 +29,7 @@ endphoneme
 phoneme a
   vowel starttype #a endtype #a
   length 225
-  FMT(vowel/aa_9)
+  FMT(vowel/a_3)
 endphoneme
 
 

phsource/ph_danish

@@ -23,6 +23,17 @@ phoneme @-   //  very short schwa
     ipa NULL   // @-* is used to make 'r'
   ENDIF
   length 40
+// "femten", "manden" - only a short "n" sound
+  IF nextPhW(n) THEN
+	length 20
+  ENDIF
+IF prevPhW(isNotVowel) AND thisPh(isWordEnd) THEN
+	length 15
+ENDIF
+// "lige" [li@-]
+IF prevPhW(i) AND thisPh(isWordEnd) THEN
+	length 15
+ENDIF
   FMT(vowel/@-)
 endphoneme
 
@@ -45,22 +56,22 @@ endphoneme
 
 phoneme i
   vowel starttype #i endtype #i
-  length 95 //150
+  length 140 //225
 // PB long vowel followed by consonant and certain vowels "gide"
 IF nextPhW(isNotVowel) AND next2PhW(#@) OR next2PhW(V) THEN
-	length 150
+	length 225
 ENDIF
 // "gider", vrider"
 IF nextPhW(D) AND next2PhW(V) OR next2PhW(?V) THEN
-	length 95
+	length 140
 ENDIF
-// PB long vowel followed by certain vowels - "pigen" [p'i@-n]
-IF nextPhW(#@) OR nextPhW(#e) THEN
-	length 150
+// PB long vowel followed by [@-] - "pigen" [p'i@-n]
+IF nextPhW(@-) OR nextPhW(V) THEN
+	length 225
 ENDIF
 // Only this vowel (in this case [i])
 IF thisPh(isFinalVowel) AND thisPh(isWordEnd) AND thisPh(isWordStart) OR prevPhW(_) THEN
-	length 150
+	length 225
 ENDIF
 // This vowel is word end - longer because it sounds too short
 // "sig", "si"
@@ -69,14 +80,23 @@ IF thisPh(isWordEnd) THEN
 ENDIF
 // "vilje" - short followed by 2 consonants
 IF nextPhW(isNotVowel) AND next2PhW(isNotVowel) THEN
-	length 95
+	length 140
 ENDIF
 // PB "tie", "stige", "krige" vowel + vowel: extra length
 // What is causing this very short [i] in words with final [@-]?
-// NOT "galleriet" [g,?&lVR'i@-D] NOT "krigen" [kR'i@-n]
-IF nextPhW(3) OR nextPhW(V) OR nextPhW(@) OR nextPhW(@-) AND NOT next2PhW(D) AND NOT next2PhW(n) THEN
+// NOT "galleriet" [g,?&lVR'i@-D]
+IF nextPhW(V) OR nextPhW(@) OR nextPhW(@-) AND NOT next2PhW(D) THEN
 	length 240
 ENDIF
+//"skider" short
+IF nextPhW(D) AND next2PhW(V) THEN
+    length 140
+ENDIF
+//"skideren" long
+IF nextPhW(D) AND next2PhW(V) AND next3PhW(V) THEN
+    length 225
+ENDIF
+
   FMT(vowel/i_4)
 endphoneme
 
@@ -84,7 +104,7 @@ endphoneme
 // sviret vs. svirret
 phoneme ?i
   vowel starttype #i endtype #i
-  length 90
+  length 100
   IfNextVowelAppend(;)
   FMT(vowel/i_4)
 endphoneme
@@ -99,26 +119,30 @@ endphoneme
 
 phoneme e
   vowel starttype #e endtype #e
-  length 95 //150
+  length 140 //225
 // "delte", "mente"
 IF nextPhW(@-) OR nextPhW(V) OR next2PhW(@-) OR next2PhW(V) THEN
-	length 150
+	length 225
 ENDIF
 // PB "ring", "ringe"
 IF nextPhW(N) THEN
-	length 95
+	length 140
 ENDIF
 // PB "enig", "enige", "evig"
 IF nextPhW(isNotVowel) AND next2PhW(i) THEN
-	length 150
+	length 225
 ENDIF
 // Only "e"
 IF thisPh(isWordEnd) AND thisPh(isWordStart) THEN
-	length 150
+	length 225
 ENDIF
 // "nedladende" [n'eDl&D@-n@-] - before 2 consonants: short
 IF nextPhW(isNotVowel) AND next2PhW(isNotVowel) THEN
-	length 95
+	length 140
+ENDIF
+// "et"
+IF thisPh(isWordStart) AND nextPhW(isWordEnd) THEN
+	length 120
 ENDIF
   FMT(vowel/e)
 endphoneme
@@ -127,18 +151,18 @@ endphoneme
 // "skille" vs. "skele", "pille" vs. "pile"
 phoneme ?e
   vowel starttype #e endtype #e
-  length 90
+  length 140
   FMT(vowel/e)
 endphoneme
 
 phoneme E
   vowel starttype #e endtype #e
-  length 100 //150
-// "værelse", "breve"
-IF nextVowel(3) OR nextVowel(V) OR nextVowel(@) OR nextVowel(@-) THEN
-//	length 150
+  length 140 //225
+// no link with next vowel
+IF thisPh(isWordEnd) THEN
+  IfNextVowelAppend(_!)
 ENDIF
-// "ræve"
+  // "ræve"
 IF nextVowel(#@) OR nextVowel(#e) THEN
 	length 160
 ENDIF
@@ -156,15 +180,15 @@ IF nextPhW(isNotVowel) AND next2PhW(i) THEN
 ENDIF
 // "længe" - short - 2 consonants => 1 consonant
 IF nextPhW(N) THEN
-	length 120
+	length 100
 ENDIF
 // "værelse"  [v'E3-Vls@_!]
 IF nextPhW(3-) AND next2PhW(V) THEN
-	length 120
+	length 100
 ENDIF
 // "mælkebøtte" - short followed by 2 consonants
 IF nextPhW(isNotVowel) AND next2PhW(isNotVowel) THEN
-	length 120
+	length 140
 ENDIF
   FMT(vowel/e_mid2)
 endphoneme
@@ -174,22 +198,23 @@ endphoneme
 phoneme ?E
   vowel starttype #e endtype #e
   ipa ε
-  length 100
+  length 140
   FMT(vowel/e_mid2)
 endphoneme
 
 phoneme &
   vowel starttype #e endtype #e
   ipa a
-  length 90 //150
-// "same", "sale", "bade" - consonant + gooup #e or group #@: long
-IF next2PhW(#@) OR next2PhW(#e) THEN
-	length 150
+  length 140 //225
+// "same", "sale", "bade" - consonant + @-: long
+// but NOT "hinanden"
+IF next2PhW(@-) OR next2PhW(@) AND NOT next3PhW(n) THEN
+	length 225
 ENDIF
-// ThisPh + gooup #e or group #@
+// ThisPh + V or group #@
 // "ae", "aer" vowel + vowel: extra length
-IF nextPhW(#@) OR nextPhW(#e) THEN
-	length 220
+IF nextPhW(@-) OR nextPhW(V) THEN
+	length 260
 ENDIF
 // This vowel is word end - longer because it sounds too short
 // "ja", "Omaha"
@@ -198,7 +223,7 @@ IF thisPh(isWordEnd) THEN
 ENDIF
 // Only this vowel (in this case [&])
 IF thisPh(isFinalVowel) AND thisPh(isWordEnd) AND thisPh(isWordStart) OR prevPhW(_) THEN
-	length 150
+	length 225
 ENDIF
 // "stadig" [st&Di], "stadigt" [st&Dit]
 IF nextPhW(isNotVowel) AND next2PhW(i) THEN
@@ -206,7 +231,7 @@ IF nextPhW(isNotVowel) AND next2PhW(i) THEN
 ENDIF
 // "Alfie", "alfer" - short before 2 consonants
 IF nextPhW(isNotVowel) AND next2PhW(isNotVowel) THEN
-	length 90
+	length 140
 ENDIF
   FMT(vowel/ee_2)
 endphoneme
@@ -217,20 +242,20 @@ endphoneme
 phoneme ?&
   ipa a
   vowel starttype #e endtype #e
-   length 90
+   length 140
   FMT(vowel/ee_2)
 endphoneme
 
 // PB added for the æ in "dræbt"
 phoneme &#
   vowel starttype  #e endtype #e
-    length 120
-IF NOT next2Ph(3) AND NOT next2Ph(V) AND NOT next2PhW(@-) AND nextPhW(isNotVowel) THEN
-   glstop
-   length 90
+    length 140 //120
+IF nextPhW(3) OR nextPhW(V) OR nextPhW(@-) THEN
+	length 120
 ENDIF
-IF nextPhW(3) OR nextPhW(V) OR nextPhW(@) THEN
-	length 150
+// "drenge"
+IF nextPhW(N) THEN
+	length 140
 ENDIF
 	FMT(vowel/&)
 endphoneme
@@ -239,33 +264,16 @@ endphoneme
 // "revl" vs. "tremme"
 phoneme ?&#
   vowel starttype  #e endtype #e
-    length 90
+    length 140
 		FMT(vowel/&)
 endphoneme
 
-//phoneme a
-//  vowel starttype #a endtype #a
-//  length 90 //150
-//IF nextPhW(#@) OR nextPhW(#e) THEN
-//	length 150
-//ENDIF
-//  FMT(vowel/a_2)
-//endphoneme
-
-// PB short (glottal) a
-// "bragt"
-//phoneme ?a
-//  vowel starttype #a endtype #a
-//  length 90
-//  FMT(vowel/a_2)
-//endphoneme
-
 phoneme A // PB changed to a_8
   vowel starttype #a endtype #a
-  length 90 //150
+  length 140 //225
 // PB long vowel followed by consonant and certain vowels - "drabelig"
-IF nextPhW(isNotVowel) AND next2PhW(#@) OR next2PhW(#e) THEN
-	length 150
+IF nextPhW(isNotVowel) AND next2PhW(#@) OR next2PhW(V) THEN
+	length 225
 ENDIF
 // "far", "bastard" - a bit longer followed by [r]
 IF nextPhW(r) AND nextPhW(isWordEnd) THEN
@@ -273,11 +281,19 @@ IF nextPhW(r) AND nextPhW(isWordEnd) THEN
 ENDIF
 // "bange" [bAN@-] - [N] = 2 consonants (ng) => short
 IF nextPhW(N) THEN
-	length 90
+	length 140
 ENDIF
 // "fare" [f'A:A]
 IF nextPhW(A) THEN
-	length 150
+	length 225
+ENDIF
+// "av" [Au] - a bit longer
+IF nextPhW(isWordEnd) THEN
+	length 120
+ENDIF
+// "magnat" [mAun&d] - sounds too short
+IF nextPhW(u) OR nextPhW(w) THEN
+	length 130
 ENDIF
   FMT(vowel/a_8)
 endphoneme
@@ -286,7 +302,7 @@ endphoneme
 // "drab" vs. "drabelig"
 phoneme ?A
   vowel starttype #a endtype #a
-  length 90
+  length 140
 // "straffeattest", "straffe", "rapid" - a bit longer after R
 IF prevPhW(R) AND nextPhW(isNotVowel) AND next2PhW(isVowel) THEN
 	length 110
@@ -296,10 +312,14 @@ endphoneme
 
 phoneme u
   vowel starttype #u endtype #u
-  length 90 //150
+  length 140 //225
+// "fugl" [ful] - a bit longer
+IF nextPhW(isWordEnd) THEN
+	length 120
+ENDIF
 // "suge", "uge", "bluse", "julegave"
-IF nextPhW(#e) OR nextPhW(#@) OR next2PhW(#e) OR next2PhW(#@)THEN
-	length 150
+IF nextPhW(@-) OR nextPhW(V) OR next2PhW(@-) OR next2PhW(V)THEN
+	length 225
 ENDIF
 // "umulig" [u:m'uli]
 IF nextVowel(i) AND nextVowel(isFinalVowel) AND nextVowel(isWordEnd) THEN
@@ -307,11 +327,7 @@ IF nextVowel(i) AND nextVowel(isFinalVowel) AND nextVowel(isWordEnd) THEN
 ENDIF
 // Only "u"
 IF thisPh(isWordEnd) AND thisPh(isWordStart) THEN
-	length 150
-ENDIF
-// "fugl" [ful] - a bit longer
-IF nextPhW(isWordEnd) THEN
-	length 120
+	length 225
 ENDIF
   FMT(vowel/u_bck)
 endphoneme
@@ -320,20 +336,33 @@ endphoneme
 // "tude" vs. "tuden" - [tuD3] [t?uD@n]
 phoneme ?u
   vowel starttype #u endtype #u
-  length 90
+  length 140
   FMT(vowel/u_bck)
 endphoneme
 
 phoneme o
   vowel starttype #o endtype #o
-  length 90 //150
+  length 140 //225
 // "bore", "borer"
-IF nextPhW(3) OR nextPhW(V) OR nextPhW(@-) THEN
-	length 150
+IF nextPhW(V) OR nextPhW(#@) THEN
+	length 225
+ENDIF
+// "kone", "koner"
+IF next2PhW(V) OR next2PhW(#@) THEN
+	length 225
 ENDIF
 // "modig" - long vowel after consonant + [i]
 IF nextPhW(D) AND next2PhW(i) THEN
-	length 150
+	length 225
+ENDIF
+// Only "o"
+IF thisPh(isWordEnd) AND thisPh(isWordStart) THEN
+	length 120
+ENDIF
+// This vowel is word end - longer because it sounds too short
+// "ko"
+IF thisPh(isWordEnd) THEN
+	length 120
 ENDIF
   FMT(vowel/o_2)
 endphoneme
@@ -342,24 +371,33 @@ endphoneme
 // "patron" vs. "kone"
 phoneme ?o
   vowel starttype #o endtype #o
-  length 95
+  length 140
   FMT(vowel/o_2)
 endphoneme
 
 phoneme O
   vowel starttype #o endtype #o
-  length 90 // 150
+  length 140 // 150
 // "sove", "sover" - consonant + #e or #@: long
-IF next2PhW(#@) OR next2PhW(#e) THEN
-	length 150
+IF next2PhW(@-) OR next2PhW(V) THEN
+	length 225
 ENDIF
-// PB "gået" - ThisPh + #e or #@
-IF nextPhW(#e) OR nextPhW(#@) THEN
-	length 150
+// PB "gået" - ThisPh + V or @-
+IF nextPhW(V) OR nextPhW(@-) THEN
+	length 225
 ENDIF
 // "rådig"
 IF nextVowel(i) AND nextVowel(isFinalVowel) THEN
 	length 180
+ENDIF
+// This vowel is word end - longer because it sounds too short
+// "på", "gå"
+IF thisPh(isWordEnd) THEN
+	length 120
+ENDIF
+// "såre", "sårede"  [s'O:?OD@-]
+IF nextPhW(O) OR nextPhW(?O) THEN
+	length 225
 ENDIF
   FMT(vowel/o_5)
 endphoneme
@@ -368,36 +406,33 @@ endphoneme
 // "toget" vs. "tåget"
 phoneme ?O
   vowel starttype #o endtype #o
-  length 90
+  length 140
+// "hoven"
+IF nextPhW(w) OR nextPhW(?u) AND next2PhW(@-) THEN
+	length 120
+ENDIF
   FMT(vowel/o_5)
 endphoneme
 
 phoneme V
   vowel starttype #@ endtype #@
-  length 150
-// "sport" [spV:t]
-IF NOT next2PhW(3) AND NOT next2PhW(V) AND NOT next2PhW(@) AND NOT next2PhW(@-) AND nextPhW(isNotVowel) THEN
-   glstop
-   length 90
-ENDIF
-IF nextPh(3) OR nextPh(V) OR nextPh(@) THEN
-	length 150
-ENDIF
-// PB short V in "holder", "solder"
-IF nextPhW(isNotVowel) AND next2Ph(V) THEN
-	length 90
-ENDIF
-// "snorke", "snorker", årlig
-IF next2PhW(3) OR next2PhW(V) OR next2PhW(@) OR next2PhW(i) THEN
+  length 140 //225
+// "forlig"
+IF  nextPhW(isNotVowel) AND next2PhW(i) THEN
 	length 180
 ENDIF
-// "sove" [sVw3] - longer followed by w + 3
-IF nextPhW(w) AND next2PhW(3) THEN
-	length 220
-ENDIF
-// PB "konge"
+// PB "konge" - ng=>n
 IF nextPhW(N) THEN
-	length 95
+	length 100
+ENDIF
+// Only [V] - "og" 
+IF thisPh(isWordEnd) AND thisPh(isWordStart) THEN
+	length 120
+ENDIF
+// This vowel is word end - longer because it sounds too short
+// "for" [fV]
+IF thisPh(isWordEnd) THEN
+	length 120
 ENDIF
   FMT(vowel/V_4)
 endphoneme
@@ -406,19 +441,15 @@ endphoneme
 // "forstår" vs. "kåre"
 phoneme ?V
   vowel starttype #@ endtype #@
-  length 90
+  length 140
   FMT(vowel/V_4)
 endphoneme
 
 phoneme 0
   vowel starttype #o endtype #o
-  length 150
-IF NOT next2PhW(3) AND NOT next2PhW(V) AND NOT next2PhW(@-) AND nextPhW(isNotVowel) THEN
-   glstop
-   length 90
-ENDIF
-IF nextPhW(3) OR nextPhW(V) OR nextPhW(@) THEN
-	length 150
+  length 140 //225
+IF nextPhW(3) OR nextPhW(V) OR nextPhW(@-) THEN
+	length 225
 ENDIF
   FMT(vowel/oo_2)
 endphoneme
@@ -426,7 +457,7 @@ endphoneme
 // Short 0 "sukker"
 phoneme ?0
   vowel starttype #o endtype #o
-  length 90
+  length 140
   FMT(vowel/oo_2)
 endphoneme
 
@@ -434,28 +465,28 @@ phoneme y
   vowel starttype #i endtype #i
 // Length changed to short since most vowels are short.
 // It's probably easier only to make rules for long vowels.
-  length 90 //150
+  length 140 //225
 
 // PB long vowel followed by consonant and certain vowels
-// "lyde", "lyder"
-IF nextPhW(isNotVowel) AND next2PhW(#@) OR next2PhW(#e) THEN
-	length 150
+// "gyde", "gyder"
+IF nextPhW(isNotVowel) AND next2PhW(@-) OR next2PhW(V) THEN
+	length 225
 ENDIF
 // Only this vowel (in this case [y])
 IF thisPh(isFinalVowel) AND thisPh(isWordEnd) AND thisPh(isWordStart) THEN
-	length 150
+	length 225
 ENDIF
 // "dydig" [dyDi]
 IF nextPhW(isNotVowel) AND next2PhW(i) THEN
-	length 150
+	length 225
 ENDIF
-// "syge" [sy3] vowel + vowel: extra length, but NOT "fyret" [fyVD]
-IF nextPhW(#e) OR nextPhW(#@) AND NOT next2PhW(D) THEN
+// "syge" [sy@-] vowel + vowel: extra length, but NOT "fyret" [fyVD]
+IF nextPhW(@-) OR nextPhW(3) AND NOT next2PhW(D) THEN
 	length 200
 ENDIF
 // "tyve"
 IF nextPhW(?u) AND next2PhW(@-) THEN
-	length 150
+	length 225
 ENDIF
   FMT(vowel/y)
 endphoneme
@@ -464,26 +495,26 @@ endphoneme
 // "kylling" vs. "kyle", "krybbe" vs. "krybe"
 phoneme ?y
   vowel starttype #i endtype #i
-  length 90
+  length 140
   FMT(vowel/y)
 endphoneme
 
 phoneme Y
   vowel starttype #i endtype #i
-  length 150
+  length 225
 IF NOT next2Ph(3) AND NOT next2Ph(V) AND NOT next2PhW(@-) AND nextPhW(isNotVowel) THEN
    glstop
-   length 90
+   length 140
 ENDIF
 IF nextPhW(3) OR nextPhW(V) OR nextPhW(@) THEN
-	length 150
+	length 225
 ENDIF
   FMT(vowel/yy)
 endphoneme
 
 phoneme W
   vowel starttype #@ endtype #@
-  length 90 //160
+  length 140 //160
 // "kløe" vowel + vowel: extra length 
 IF nextPhW(#@) OR nextPhW(#e) THEN
 	length 220
@@ -494,7 +525,7 @@ IF next2PhW(#@) OR next2PhW(#e) THEN
 ENDIF
 // "røveri" but NOT "surfer" [sWf?V] TEST
 IF next2PhW(V) OR next2PhW(?V) AND NOT next2PhW(isFinalVowel) THEN
-	length 90
+	length 140
 ENDIF
 // PB "nødig", "nødigt", "kølige"
 IF nextVowel(i) THEN
@@ -506,7 +537,16 @@ IF nextPhW(w) AND nextVowel(@-) THEN
 ENDIF
 // "børnebog"
 IF nextPhW(r) AND next2PhW(n) AND nextVowel(@-) THEN
-	length 150
+	length 225
+ENDIF
+// This vowel is word end - longer because it sounds too short
+// "dø" [dW]
+IF thisPh(isWordEnd) THEN
+	length 120
+ENDIF
+// PB "synge"
+IF nextPhW(N) THEN
+	length 140
 ENDIF
   FMT(vowel/oe)
 endphoneme
@@ -515,21 +555,17 @@ endphoneme
 // "prøv" vs. "prøve"
 phoneme ?W
   vowel starttype #@ endtype #@
-  length 95
+  length 140
   FMT(vowel/oe)
 endphoneme
 
 // Added for the ø in "røv", "røg", "øje" instead of [V3]
 phoneme W#
   vowel starttype #@ endtype #@
-  length 90 //150
-IF NOT next2Ph(3) AND NOT next2Ph(V) AND NOT next2PhW(@-) AND nextPhW(isNotVowel) THEN
-   glstop
-//   length 90
-ENDIF
+  length 140 //225
 // PB long vowel followed by consonant and certain vowels
 IF nextPhW(isNotVowel) AND next2PhW(@-) OR next2PhW(@) OR next2PhW(3) OR next2PhW(V) OR next2PhW(?V) THEN
-	length 150
+	length 225
 ENDIF
   FMT(vowel/V)
 endphoneme
@@ -538,7 +574,7 @@ endphoneme
 // "rømme"
 phoneme ?W#
   vowel starttype #@ endtype #@
-  length 90
+  length 140
   FMT(vowel/V)
 endphoneme
 
@@ -547,7 +583,7 @@ phoneme aI
   length 300
 IF NOT next2Ph(3) AND NOT next2Ph(V) AND NOT next2Ph(@-) AND nextPhW(isNotVowel) THEN
    glstop
-   length 150
+   length 225
 ENDIF
 // "dreje" [dR'aI@-_!]
 IF nextPhW(3) OR nextPhW(V) OR nextPhW(@) OR nextPhW(@-) THEN
@@ -571,6 +607,10 @@ endphoneme
 phoneme l
   liquid
   lengthmod 7
+// [ll] => [-l] - avoid double l
+IF nextPhW(l) THEN
+//    ChangePhoneme(-)
+ENDIF
   ChangePhoneme(l/3)
 //  CALL base/l
 endphoneme
@@ -579,16 +619,16 @@ phoneme l/3    // Replacement for [l/]
   liquid
   lengthmod 7
 
-  IF nextPh(isVowel) THEN
+  IF nextPhW(isVowel) THEN
 //    ChangePhoneme(l)
   ENDIF
 
   PrevVowelEndings
     VowelEnding(l/l_@)
-    VowelEnding(l/l_a,-70) // kvalt, kapital
-    VowelEnding(l/l_e, -40)
-    VowelEnding(l/l_i, -70)
-    VowelEnding(l/l_o,-70) // stole, skole, pistol
+    VowelEnding(l/l_a)
+    VowelEnding(l/l_e, -50) // hjælpe
+    VowelEnding(l/l_i, -70) // flygte?
+    VowelEnding(l/l_o,-35) // stole, skole, pistol
     VowelEnding(l/l_u, -70)
   EndSwitch
 
@@ -678,7 +718,10 @@ endphoneme
 phoneme j
   liquid palatal
   lengthmod 7
-
+// no link with next vowel
+IF thisPh(isWordEnd) THEN
+  IfNextVowelAppend(_!)
+ENDIF
   IF nextPhW(isVowel) THEN
     NextVowelStarts
       VowelStart(j/j@)
@@ -699,4 +742,4 @@ Vowelout len=70
     Vowelout len=70
     FMT(j/j_)
   ENDIF
-endphoneme
+endphoneme

phsource/ph_hindi

@@ -439,7 +439,7 @@ endphoneme
 
 phoneme c#
   CALL base/tS;
-  ipa ch
+  ipa cU+02B0
 endphoneme
 
 

phsource/ph_korean

@@ -95,6 +95,26 @@ phoneme dZ; //  voiced /ㅈ/
   FMT(dzh/dzh) addWav(x/dz_pzd)
 endphoneme
 
+phoneme s-
+  import_phoneme base/s        // temporary
+endphoneme
+
+phoneme q-
+  import_phoneme base/q        // temporary
+endphoneme
+
+phoneme tS;-
+  import_phoneme base/tS;      // temporary
+endphoneme
+
+phoneme d-
+  import_phoneme base/d
+endphoneme
+
+// phoneme tSh; ?? changed to [tS;h] in ko_rules
+// phoneme h- in ko_list (for 10^3)  ?? changed to [h]
+// phoneme tSh-  changed to tSh
+
 phoneme *   // r(ㄹ) at initial, medial
   vcd alv flp rhotic
   ipa ɾ

phsource/ph_malayalam

@@ -25,7 +25,7 @@ phoneme a
   length 130
 
   IF thisPh(isStressed) OR thisPh(isFirstVowel) OR thisPh(isWordEnd) THEN
-    FMT(vowel/a#_2)
+    FMT(vowel/a#_4)
   ELSE
     ChangeIfUnstressed(@)
 
@@ -144,3 +144,121 @@ phoneme d2   // 'rr' sounds like English 'd'
 endphoneme
 
 
+// Aspirated voice stops, sound like aspirated unvoiced stops ?
+
+phoneme b#
+  vls blb stop prevoice
+  lengthmod 2
+  voicingswitch b
+  Vowelin  f1=0  f2=1000 -50 -100  f3=-200 80
+  Vowelout f1=0  f2=1000 -500 -350  f3=-300 80 rms=30
+  
+  IF PreVoicing THEN
+    IF prevPhW(isVowel) THEN
+      FMT(b/xb)
+    ELSE
+      FMT(voc/murmur1)
+    ENDIF
+  ENDIF
+
+  IF nextPh(isPause2) THEN
+    WAV(ustop/p_)
+  ENDIF
+  IF nextPh(l) THEN
+    WAV(ustop/pl)
+  ENDIF
+  WAV(ustop/p_asp)
+endphoneme
+
+
+phoneme d#
+  vls dnt stop prevoice
+  lengthmod 2
+  voicingswitch d
+  Vowelin f1=0  f2=1500 -300 300  f3=-100 80  amp=16
+  Vowelout f1=0 f2=1500 -300 250  f3=-100 80  rms=20
+
+  IF PreVoicing THEN
+    IF prevPhW(isVowel) THEN
+      FMT(d/xd)
+    ELSE
+      FMT(voc/murmur1)
+    ENDIF
+  ENDIF
+
+  IF nextPh(isPause2) THEN
+    WAV(ustop/t_dnt, 35)
+  ENDIF
+  WAV(ustop/t_dnt, 50)
+endphoneme
+
+
+phoneme d.#
+  vls rfx stop prevoice
+  lengthmod 2
+  ipa ʈU+02B0
+  Vowelin f1=0  f2=1800 -300 300  f3=-400 80
+  Vowelout f1=0 f2=1800 -300 250  f3=-400 80  rms=20 colr=2
+
+  IF PreVoicing THEN
+    IF prevPhW(isVowel) THEN
+      FMT(d/xdr)
+    ELSE
+      FMT(voc/murmur1)
+    ENDIF
+  ENDIF
+
+  voicingswitch d.#
+  WAV(ustop/t)
+endphoneme
+
+
+phoneme J#
+  vls pal afr sibilant palatal prevoice
+  voicingswitch c#
+  lengthmod 2
+  Vowelin f1=0  f2=2700 400 600  f3=300 80 rate len=70
+
+  IF PreVoicing THEN
+    IF prevPhW(isVowel) THEN
+      FMT(dzh/xdz_pzd)
+    ELSE
+      FMT(voc/murmur1)
+    ENDIF
+  ENDIF
+
+  IF nextPh(isPause2) THEN
+    WAV(ustop/ts_pzd)
+  ENDIF
+  WAV(ustop/ts_pzd)
+endphoneme
+
+
+phoneme g#
+  vls vel stop prevoice
+  lengthmod 2
+  Vowelin f1=1  f2=1400 -100 100  f3=-150 80
+  Vowelout f1=0 f2=2300 300 400  f3=-150 80  rms=20
+
+  IF PreVoicing THEN
+    IF prevPhW(isVowel) THEN
+      FMT(g/xg)
+    ELSE
+      FMT(voc/murmur1)
+    ENDIF
+  ENDIF
+
+  
+  IF nextPh(isPause2) THEN
+    WAV(ustop/k_asp, 40)
+  ENDIF
+  IF nextPhW(#e) OR nextPhW(#i) THEN
+    WAV(ustop/k_asp_e, 40)
+  ELIF nextPhW(#o) OR nextPhW(#u) THEN
+    WAV(ustop/k_asp_a, 25)
+  ELSE
+    WAV(ustop/k_asp_a, 30)
+  ENDIF
+endphoneme
+
+

phsource/phonemes

@@ -1745,6 +1745,9 @@ include ph_kannada
 phonemetable ml hi
 include ph_malayalam
 
+phonemetable te hi
+include ph_telugu
+
 
 
 phonemetable hu base
@@ -1923,9 +1926,6 @@ include ph_slovenian
 //phonemetable dv hi
 //include ph_divehi
 
-//phonemetable te hi
-//include ph_telugu
-
 //phonemetable tn base
 //include ph_setswana