ru: revert to d1ce948058

dictsource/ru_list

@@ -2,21 +2,21 @@
 
 // Numbers
 _0      n'ojl^
-_1      od;'in
+_1      ojd;'in
 _1f     odn'a
 _2      dv'A
 _2f     dv;'e
-_3      tr;'i
-_4      tS;It'yr;I
+_3      tR;'i
+_4      tS;It'yR;I
 _5      p;'jat;
 _6      S'Es;t;
-_7      s;'em;
+_7      s;'ejm
 _8      v'os;E2m
 _9      d;'evI3t;
 _10     d;'es;It;
 _11     Od;'innVttsVt;
 _12     dv;In'AttsVt;
-_13     tr;In'AttsVt;
+_13     tR;In'AttsVt;
 _14     tS;It'y@-*nVttsVt;
 _15     p;Itn'AttsVt;
 _16     SE#stn'AttsVt;
@@ -89,140 +89,32 @@ _»      z'akr uglof
 *       zvezd'a  $max3
 _,      zVpit'aja
 
-// particles
-а         $u+ $pause // and
-без       $u
-будто     $u
-бы        $u
-в         $u         // to,in,at
-вдруг     $u
-ведь      $u
-весь      $u
-вместо    $u
-во        $u
-вовсе     $u
-вот       $u
-все       $u
-где       $u
-(где то)  $u
-даже      $u
+// prepositions
+в       v $u         // to,in,at
 для       $u         // for
-до        $u
-едва      $u2
-если      $u  $pause
-ещё       $u2+
-ж         $u
-же        $u
-за        $u+
-и         $u  $pause // and
-ибо       $u  $pause // if, for
-из        $u
-(из за)   $u
-или       $u  $pause
-к         $u
-как       $u+
-какой     $u2+
-ко        $u
-когда     $u+
-кстати    $u
-(кто то)  $u
-ли        $u
-либо      $u
-лишь      $u
 на        $u         // on
-надо      $u
-не        $u         // negative
-нет       $u+
-ни        $u
-никак     $u2
-ничто     $u+
-но        $u  $pause // but
-ну        $u+
-о         $u+
-об        $u
-однако    $u2
 от        $u         // from
-очень     $u
-по        $u
-под       $u
-пока      $u2+
-пора      $u2+
-после     $u
-потом     $u2+
-почти     $u2+
-прежде    $u
-при       $u
-про       $u
-пусть     $u+
-раз       $u+
-с         $u         // with,from,since
-сей       $u
-со        $u
-так       $u+
-также     $u $pause
-то        $u
-только    $u
-туда      $u2+
-тут       $u+
-у         $u         // by
-уж        $u
-уже       $u2+       // already
-хоть      $u
-хотя      $2  $pause // although
-что       $u+ $pause // what, that
-чтоб      $u
-чтобы     $u  $pause // in order that
+с       s $u         // with,from,since
+у       u $u         // by
+
+// conjunctions
+а            $atend
+а         $u $pause  // and
+и       i $u $pause  // and
+ибо       $u $pause  // for
+ибо       $u $pause  // if
+но        $u $pause  // but
+хотя      $2 $pause  // although
+чтобы        $pause  // in order that
 
 // pronouns
-вам       $u+
-вами      $u+
-вас       $u+
-ваш       $u+
-вы        $u+
-другой    $u+
-его       $u2+
-её        $u2+
-ей        $u+
-ему       $u2+
-им        $u+
-ими       $u+
-их        $u+
-который   $u2
-кто       $u+
-меня      $u2+
-мне       $u+
-мной      $u+
-мой       $u+
-мы        $u+
-нам       $u+
-нами      $u+
-нас       $u+
-наш       $u+
-ней       $u+
-некий     $u
-нём       $u+
-никто     $u2+
-них       $u+
-обо       $u+
-он        $u+
-она       $u+
-они       $u+
-оно       $u+
-сам       $u+
-самый     $u+
-свой      $u+
-себя      $u2+
-такой     $u2+
-там       $u+
-тебе      $u2+
-тебя      $u2+
-тобой     $u2+
-тот       $u+
-ты        $u+
-чем       $u+
-это       $u+
-этот      $u+
-я         $u+
+я         $u         // I
+
+// questions
+что     Sto $u $pause // what, that
+
+// misc.
+не      $u           // negative
 
 // auxillary verbs
 будем   $u1
@@ -240,7 +132,6 @@ _,      zVpit'aja
 есмь    $u1
 есте    $u1
 есть    $u1
-иметь   $u2
 мог     $u1
 могла   $u2
 могли   $u2
@@ -251,7 +142,6 @@ _,      zVpit'aja
 может   $u1
 можете  $u1
 можешь  $u1
-можно   $u
 мочь    $u         // can
 побудем $u2
 побудет $u2
@@ -275,29 +165,45 @@ _,      zVpit'aja
 сможете $u1
 сможешь $u1
 смочь   $u1
-стать   $u
 суть    $u1
-хотеть  $u2
 
-
-// Common names where  'е' is written instead of 'ё'
-еще        jIStS;'8
-(не о чем) n^i||o||tS'im
-чем        tS;'8m
-ее         jIj'8
+// Cyrillic letter names
+а       a
+б       bE
+_в      vE
+в       vE  $atend
+г       gE
+д       dE
+е       je
+ё       j8
+ж       ZE
+з       zE
+и       i
+й       ,i'k@-*'AtkOjI
+к       kA
+л       El^
+м       Em
+н       En_
+о       o
+п       pE
+р       Er
+_с      Es
+с       Es  $atend
+т       tE
+у       u
+ф       Ef
+х       xA
+ц       tsE
+ч       tS;e
+ш       SA
+щ       S;ja
+ъ       tv;'8@-*dyjzn'Ak
+ы       y
+ь       m;'jak;I#jzn'Ak
+э       e
+ю       ju
+я       ja
 
 // exceptions
 радио   r'ad;Io
 
-// letters (these are reduced to schwa when used as particles)
-_б      bE
-б       bE    $atend
-_в      vE
-в       vE    $atend
-_ж      ZE
-ж       ZE    $atend
-_к      kA
-к       kA    $atend
-_с      Es
-с       Es    $atend
-

dictsource/ru_rules

@@ -31,30 +31,14 @@
 // Y  iotated vowel, softsign:  ь ю я ё
 
 
-.L11    а ы е ой ою ~ ам ами ах   // suffixes for 1. declination words ending а (e.g. страна, Юра)
-.L12    я и е ю ёй ею ь ям ями ях // suffixes for 1. declination words ending я (e.g. земля, дядя)
-.L13    я и ю ей ею й ям ями ях   // suffixes for 1. declination words ending Aя (e.g. ария) A means vowel
-
-.L21    ~ а у ом е ы ов ам ами ах // suffixes for 2. declination masculine words without ending (e.g. стол)
-.L22    ь я ю ем ём е и ей ями ях // suffixes for 2. declination masculine words without ending (e.g. конь)
-.L23    й я ю ем и ев ям ями ях   // suffixes for 2. declination masculine words with ending й (герой)
-.L24    о а у ом е ам ами ах      // suffixes for 2. declination neuter words with ending о (e.g. окно, note about ок_он_!)
-.L25    е я ю ем ей ям ями ях     // suffixes for 2. declination neuter words with ending е (e.g. поле)
-.L26    е я ю ем и й ям ями ях    // suffixes for 2. declination neuter words with ending Aе (e.g. здание)
-
-.L31    ь и ью ей ам ами ах       // suffixes for 2. declination feminine words without ending (e.g. ночь)
-
-
 .group а
         а       V
      B) а (_    V
      _) а       a
-     _) а (_    a
         а (_    a
 
 .group б
         б       b
-     _) б (_    b@-        // бы/б
         б (Y    b;
         б (_    p
         б (бY   b;
@@ -78,7 +62,6 @@
         в       v
         в (_    f
         в (Y    v;
-     _) в (_    v@-
         в (бY   v;
         в (вY   v;
         в (вбY  v;
@@ -100,7 +83,6 @@
     Cе) г (о_   v
     Cо) г (о_   v
   _все) г (о_   v
-     _) г (_    gE
         г (Y    g;
         г (_    k
         г (к    x
@@ -111,13 +93,17 @@
         г (ффY  k
         г (хY   k
         г (хкY  k
-     е) г (о_   v
+    _е) г (о_   v
+     е) г (ося_ v
   _мно) г (о_   g
+  _мое) г (о_   v
+   _не) г (о_   v
+   _се) г (о    v
+ _твое) г (о_   v
 
 .group д
         д       d
         д (B    d;
-     _) д (_    dE
         д (Y    d;
         д (_    t
         д (дY   d;
@@ -134,26 +120,30 @@
         д (ь_   t;
 
 .group е
-           е       e
+        е          e
         A) е       je
-        A) е (_    jI3     // second position
+//      A) е       jE2
+        A) е (_    jI3     //second position
+//      H) е (_    E#
+//      H) е       E2
      бакт) е (р    E%      // бактериальный, антибактериальный, ...
      барт) е (р    E%
-      реб) е (н    j8
-        _) е (_    je
+//         е       E3
+//         е (_    I2
         _) е       jI3     //second position
       инт) е (р    E%      // интернет, интернационал, ... ??????????
   компьют) е (р    E%
         т) е (ст   E%
         ъ) е       je
+//      ъ) е       jE2
         ъ) е (_    jI3     //second position
         ь) е       je
+//      ь) е       jE2
         ь) е (_    jI3     //second position
 
 .group ж
         ж       Z
         ж (_    S
-     _) ж (_    Z@-        // же/ж
         ж (кY   S
         ж (пY   S
         ж (сY   S
@@ -162,15 +152,13 @@
         ж (ффY  S
         ж (хY   S
         ж (хкY  S
-        ж (ч    S;
+        жч      S;
 
 .group з
         з       z
         з (Y    z;
         з (_    s
-     _) з (_    zE
         з (дY   z;
-        з (е    z
         з (ж    Z
         з (зY_  s;
         з (зY   z;
@@ -190,7 +178,7 @@
         з (ффY  s
         з (хY   s
         з (хкY  s
-        з (ч    S;
+        зч      S;
         з (ш    S
         зщ      S;
         з (щ    s
@@ -201,17 +189,14 @@
      ж) и       y
      _) и       I
         и (_    I
-     _) и (_    i
      ш) и       y
 
 .group й
         й       j
-     _) й (_    ,i'k@-*'AtkOjI
 
 .group к
         к       k
         к (Y    k;
-     _) к (_    k@-
         к (б    g
         к (бY   g
         к (г    g
@@ -225,12 +210,10 @@
 
 .group л
         л       l
-     _) л (_    El^
-        л (Y    l;
+        л (Y    l^
 
 .group м
         м       m
-     _) м (_    Em
         м (Y    m;
         м (бY   m;
         м (вY   m;
@@ -241,18 +224,25 @@
 .group н
         н       n
    биз) не (с   nE%
-     _) н (_    En_
-        н (Y    n;
+//      н (B    n^
+//      н (Y    n# ?
         н (_    n_
+//      н (дB   n^
+//      н (дY   n^
+//      н (зY   n^
+//      н (нB   n^
+//      н (нY   n^
+//      н (сY   n^
+//      н (тY   n^
 
 .group о
         о       o
-     _) о (_    o
+//      о (B    oj
+//      о (FY   oj
 
 .group п
         п       p
         п (Y    p;
-     _) п (_    pE
         п (б    b
         п (б'   b;
         п (г    b
@@ -273,13 +263,11 @@
 .group р
         р       r
         р (B    r;
-     _) р (_    Er
         р (Y    r;
         р (ь    rI^
 
 .group с
         с       s
-     _) с (_    s@-
         с (Y    s;
         с (б    z
         с (г    z
@@ -295,15 +283,14 @@
         с (сY   s;
         с (тY   s;
         с (ть   s
-        с (ч    S;
+        сч      S;
         с (ш    S
         с (щ    s;s;
 
 .group т
         т       t
-        Y) тс   ts
+        Y) тс           ts
         т (Y    t;
-     _) т (_    tE
         т (б    d
         т (г    d
         т (дB   d;
@@ -320,12 +307,10 @@
 
 .group у
         у       u
-     B) у       u#
-     _) у (_    u
+        B) у            u#
 
 .group ф
         ф       f
-     _) ф (_    Ef
         ф (Y    f;
         ф (б    v
         ф (б'   v;
@@ -346,7 +331,6 @@
 .group х
         х       x
         х (Y    x     //С
-     _) х (_    xA
         х (бY   x
         х (б    x
         х (бвY  x
@@ -364,7 +348,6 @@
 
 .group ц
         ц       ts
-     _) ц (_    tsE
         ц (б    dz
         ц (бY   dz
         ц (бвY  dz
@@ -380,13 +363,7 @@
 
 .group ч
         ч       tS;
-  деви) ч (н    S   //Варианты окончаний женских отчеств типа Никитична
-  коне) ч (но   S
-    лу) ч (ше   t
- пустя) ч (н    S
- скворе)ч (н    S
-   ску) ч (н    S
-     _) ч (_    tS;e
+   лу) ч (ше    t
         ч (б    dZ;
         ч (бY   dZ;
         ч (бвY  dZ;
@@ -399,17 +376,22 @@
         ч (ж    dZ;
         ч (з    dZ;
         ч (зY   dZ;
-        ч (на_  S
-        ч (не_  S
-        ч (ной_ S
-        ч (ну_  S
-        ч (ны_  S
-     _) ч (то   S
-    яи) ч (ни   S
+//Варианты окончаний женских отчеств типа Никитична
+  деви) ч (н     S
+  коне) ч (но    S
+ пустя) ч (н     S
+ скворе)ч (н     S
+   ску) ч (н     S
+        ч (на_   S
+        ч (не_   S
+        ч (ной_  S
+        ч (ну_   S
+        ч (ны_   S
+     _) ч (то    S
+    яи) ч (ни    S
 
 .group ш
         ш       S
-     _) ш (_    SA
         ш (бY   Z
         ш (б    Z
         ш (бвY  Z
@@ -423,9 +405,9 @@
         ш (зY   Z
         ш (з    Z
 
+
 .group щ
         щ       S;
-     _) щ (_    S;ja
         щ (бY   Z;
         щ (б    Z;
         щ (бвY  Z;
@@ -440,22 +422,18 @@
         щ (з    Z;
 
 .group ъ
-        ъ (Y    _|
-     _) ъ (_    tv;'8@-*dyjzn'Ak
+        ъ (Y    j
 
 .group ы
         ы       y
-     _) ы (_    y
 
 .group ь
-        ь (Y    // no pronunciation (i.e. silent)
-     _) ь (_    m;'jak;I#jzn'Ak
+        ь (Y    j
 
 .group э
         э       E2
      _) э       E#
         э (_    E#
-     _) э (_    e
 
 .group ю
         ю       u"
@@ -464,25 +442,23 @@
      ъ) ю       ju
      ь) ю       ju
      _) ю       ju
-     _) ю (_    ju
 
 .group я
         я       V
+// TODO: in unstressed position it sometimes sounds more like [i] than like [V]
      A) я       ja
      A) я (_    ja      //second position
-//   C) я       ja# ?   // TODO: in unstressed position it sometimes sounds more like [i] than like [V]
+//   C) я       ja# ?
      ъ) я       ja
      ъ) я (_    ja      //second position
      ь) я       ja
      ь) я (_    ja      //second position
-     _) я (_    ja
      _) я       ja      //second position
         я (_    V
 
 .group ё
         ё       '8
      _) ё       'j8
-     _) ё (_    j8
      ж) ё       'O
      ш) ё       'O
 

phsource/ph_russian

@@ -1,3 +1,5 @@
+
+
 phoneme g
   vcd vel stp prevoice
   voicingswitch k
@@ -21,11 +23,15 @@ phoneme p
 endphoneme
 
 
+
 phoneme x
   vls vel frc
   lengthmod 3
   Vowelin f1=0  f2=2300 200 400  f3=-100 80
   Vowelout f1=0 f2=2300 300 400  f3=-100 80  rms=20
+//  IF nextPh(isPause) THEN
+//  	WAV(ufric/x, 120)
+//  ENDIF
   WAV(ufric/x_hr, 30)
 endphoneme
 
@@ -35,62 +41,66 @@ phoneme k
 endphoneme
 
 
+
 phoneme l
-  liquid rfx
-  ipa ɭ
-  lengthmod 7
-  length 80
-  IF nextPh(isPause) THEN
-    FMT(l/l_,120)
-  ELSE
-    FMT(l/l_,120)
-  ENDIF
+
+ liquid rfx
+ ipa ɭ
+ lengthmod 7
+ length 40
+ FMT(l^/l_rfx)
 endphoneme
 
-phoneme l^    // From Latvian ļ
-  liquid
-  ipa ʎ
-  lengthmod 7
-  Vowelout len=60 lenadd rate
-  length 80
-
-  NextVowelStarts
-    VowelStart(l^/j2@)
-    VowelStart(l^/j2a)
-    VowelStart(l^/j2e)
-    VowelStart(l^/j2i)
-    VowelStart(l^/j2o)
-    VowelStart(l^/j2u)
-  EndSwitch
-
-  IF prevPh(isPause) THEN
-    FMT(l^/_l^)
-  ELSEIF nextPh(isPause) THEN
-    FMT(l^/l^_,120)
-  ENDIF
-
-  FMT(l^/l^)
+phoneme l^
+ liquid rfx pzd
+ ipa ɭ
+// lengthmod 7
+length 80
+// FMT(l^/l^)
+ FMT(l^/l_rfx)
 endphoneme
 
-
 phoneme s
   vls alv frc sib
+//  voicingswitch z
   lengthmod 3
   Vowelin  f1=0  f2=1700 -300 300  f3=-100 80
   Vowelout f1=0  f2=1700 -300 250  f3=-100 80  rms=20
+ 
+//  IF nextPh(isPause) THEN
+//	WAV(ufric/s_)
+//  ELIF nextPh(p) OR nextPh(t) OR nextPh(k) THEN
+//	WAV(ufric/s!)
+//  ENDIF
   WAV(ufric/s)
 endphoneme
 
 phoneme s;
   import_phoneme en/s
+//CALL en/s
 endphoneme
 
 
+
+//phoneme n
+//  vcd pal nas
+//  FMT(n/nru)
+//
+//  import_phoneme en/n
+//  length 200
+//endphoneme
+
 phoneme n_
+//  vcd pal nas
+//  FMT(n/nru)
+
   import_phoneme en/n
+//  length 200
 endphoneme
 
 
+
+
 phoneme n#
   vcd pal nas pzd
   ipa ɲ
@@ -98,28 +108,28 @@ phoneme n#
   lengthmod 4
 
   IF KlattSynth THEN
-    VowelStart(klatt/n^@)
-    FMT(klatt/n^)
+	VowelStart(klatt/n^@)
+	FMT(klatt/n^)
   ENDIF
 
   NextVowelStarts
-    VowelStart(n^/n^@)
-    VowelStart(n^/n^a)
-    VowelStart(n^/n^e)
-    VowelStart(n^/n^i)
-    VowelStart(n^/n^o)
-    VowelStart(n^/n^u)
+	VowelStart(n^/n^@)
+	VowelStart(n^/n^a)
+	VowelStart(n^/n^e)
+	VowelStart(n^/n^i)
+	VowelStart(n^/n^o)
+	VowelStart(n^/n^u)
   EndSwitch
 
   IF prevPh(isPause) THEN
-    FMT(n^/_n^)
+	FMT(n^/_n^)
   ELIF nextPh(isNotVowel) THEN
-    IF nextPhW(n^) THEN
-      length 75
-    ELIF prevPhW(n^) THEN
-      length 100
-    ENDIF
-    FMT(n^/n^_)
+	IF nextPhW(n^) THEN
+	  length 75
+	ELIF prevPhW(n^) THEN
+	  length 100
+	ENDIF
+	FMT(n^/n^_)
   ENDIF
 endphoneme
 
@@ -135,6 +145,7 @@ phoneme r
 endphoneme
 
 
+
 phoneme ts
   import_phoneme consonants/ts
 endphoneme
@@ -147,11 +158,11 @@ phoneme dZ;
   Vowelin f1=2  f2=2700 400 600  f3=300 80 rate len=70
 
   IF PreVoicing THEN
-    FMT(dzh/xdzh)
+	FMT(dzh/xdzh)
   ENDIF
 
   IF nextPh(isPause2) THEN
-    FMT(dzh/dzh_) addWav(x/dzh_)
+	FMT(dzh/dzh_) addWav(x/dzh_)
   ENDIF
 endphoneme
 
@@ -166,6 +177,7 @@ phoneme tS;
 endphoneme
 
 
+
 // Palatalized versions of consonants
 
 phoneme t
@@ -184,44 +196,67 @@ phoneme d;
   import_phoneme pl/d;
 endphoneme
 
+//phoneme m;
+//  import_phoneme ro/m;
+//endphoneme
+
 phoneme m;
   vcd blb nas
   Vowelout f1=2  f2=1000 -500 -350  f3=-200 80 brk
   lengthmod 4
-  length 60
 
   IF KlattSynth THEN
-    Vowelin  f1=0  f2=1000 -50 -200  f3=-200 80
-    IF nextPh(isPause2) THEN
-      FMT(klatt/m_)
-    ENDIF
-    FMT(klatt/m)
+	Vowelin  f1=0  f2=1000 -50 -200  f3=-200 80
+	IF nextPh(isPause2) THEN
+	  FMT(klatt/m_)
+	ENDIF
+	FMT(klatt/m)
   ENDIF
-  FMT(m/mj)
+
+	VowelStart(m/mi)
+
+//  NextVowelStarts
+//	VowelStart(m/m@)
+//	VowelStart(m/ma)
+//	VowelStart(m/me)
+//	VowelStart(m/mi)
+//	VowelStart(m/mo)
+//	VowelStart(m/mu)
+//  EndSwitch
+
+//  IF prevPh(isNotVowel) AND nextPhW(isLiquid) THEN
+	FMT(m/mj)
+//  ELIF prevPh(isPause) THEN
+//	FMT(m/_m)
+//  ELIF nextPh(isNotVowel) THEN
+//	FMT(m/m_)
+//  ENDIF
 endphoneme
 
 
-phoneme I^              // "silent i", palatilizes the preceding consonant
+
+phoneme I^      	// "silent i", palatilizes the preceding consonant
   vwl starttype #i endtype #i
   unstressed nsy
   length 70
   IF nextPh(isVowel) THEN
-        ChangePhoneme(;)
+	ChangePhoneme(;)
   ENDIF
   IF prevPh(m;) THEN
-        FMT(vwl_ro/mi)
+	FMT(vwl_ro/mi)
   ENDIF
   FMT(vwl_ru/ii-)
 endphoneme
 
 
+
 //*******************************************************************
 // VOWELS
 //*******************************************************************
 
 phoneme i
   IF prevPh(Z) THEN
-    ChangePhoneme(y)
+	ChangePhoneme(y)
   ENDIF
   vwl starttype #i endtype #i
   length 50
@@ -233,10 +268,10 @@ phoneme I#
   vwl starttype #i endtype #i
   length 80
   IF nextVowel(isMaxStress) THEN
-    ChangePhoneme(I)
+	ChangePhoneme(I)
   ENDIF
   IF thisPh(isMaxStress) THEN
-    ChangePhoneme(i)
+	ChangePhoneme(i)
   ENDIF
   FMT(vwl_ru/ii#)
 endphoneme
@@ -254,11 +289,11 @@ phoneme I
   length 80
 
   IF thisPh(isMaxStress) THEN
-    IF prevPhW(j) THEN
-      ChangePhoneme(a)
-    ELSE
-      ChangePhoneme(i)
-    ENDIF
+	IF prevPhW(j) THEN
+	  ChangePhoneme(a)
+	ELSE
+	  ChangePhoneme(i)
+	ENDIF
   ENDIF
   FMT(vwl_ru/ii)
 endphoneme
@@ -268,10 +303,10 @@ phoneme I2
   vwl starttype #i endtype #i
   length 80
   IF thisPh(isMaxStress) THEN
-    ChangePhoneme(e)
+	ChangePhoneme(e)
   ENDIF
   IF prevPhW(isPalatal) THEN
-    ChangePhoneme(I)
+	ChangePhoneme(I)
   ENDIF
   FMT(vwl_ru/ii)
 endphoneme
@@ -281,14 +316,14 @@ phoneme I3
   vwl starttype #i endtype #i
   length 80
   IF thisPh(isMaxStress) THEN
-    IF prevPhW(j) THEN
-      ChangePhoneme(e)
-    ELSE
-      ChangePhoneme(ja)
-    ENDIF
+	IF prevPhW(j) THEN
+	  ChangePhoneme(e)
+	ELSE
+	  ChangePhoneme(ja)
+	ENDIF
   ENDIF
   IF prevPhW(isPalatal) THEN
-    ChangePhoneme(I)
+	ChangePhoneme(I)
   ENDIF
   FMT(vwl_ru/ii)
 endphoneme
@@ -305,11 +340,11 @@ phoneme E#
   vwl  starttype #e  endtype #e
   length 100
   IF thisPh(isMaxStress) THEN
-    IF prevPhW(j) THEN
-      ChangePhoneme(e)
-    ELSE
-      ChangePhoneme(E)
-    ENDIF
+	IF prevPhW(j) THEN
+	  ChangePhoneme(e)
+	ELSE
+	  ChangePhoneme(E)
+	ENDIF
   ENDIF
   FMT(vwl_ru/E#)
 endphoneme
@@ -319,19 +354,19 @@ phoneme E2
   vwl  starttype #e  endtype #e
   length 80
   IF nextVowel(isMaxStress) THEN
-    IF prevPh(j) THEN
-      ChangePhoneme(I3)
-    ELSE
-      ChangePhoneme(E#)
-    ENDIF
+	IF prevPh(j) THEN
+	  ChangePhoneme(I3)
+	ELSE
+	  ChangePhoneme(E#)
+	ENDIF
   ENDIF
 
   IF thisPh(isMaxStress) THEN
-    IF prevPhW(j) THEN
-      ChangePhoneme(e)
-    ELSE
-      ChangePhoneme(E)
-    ENDIF
+	IF prevPhW(j) THEN
+	  ChangePhoneme(e)
+	ELSE
+	  ChangePhoneme(E)
+	ENDIF
   ENDIF
 
   FMT(vwl_ru/E@)
@@ -342,13 +377,13 @@ phoneme E3
   vwl  starttype #e  endtype #e
   length 80
   IF nextVowel(isMaxStress) THEN
-    ChangePhoneme(I)
+	ChangePhoneme(I)
   ENDIF
   IF thisPh(isMaxStress) THEN
-    ChangePhoneme(e)
+	ChangePhoneme(e)
   ENDIF
   IF prevPhW(isPalatal) THEN
-    ChangePhoneme(E2)
+	ChangePhoneme(E2)
   ENDIF
   FMT(vwl_ru/E@)
 endphoneme
@@ -373,10 +408,10 @@ phoneme O
   vwl starttype #o endtype #o
   length 80
   IF prevPhW(isPalatal) THEN
-    ChangePhoneme(8)
+	ChangePhoneme(8)
   ENDIF
   IF thisPh(isMaxStress) THEN
-    ChangePhoneme(o)
+	ChangePhoneme(o)
   ENDIF
   FMT(vwl_ru/oo)
 endphoneme
@@ -411,16 +446,16 @@ phoneme e
   vwl starttype #e endtype #e
   length 100
   IF prevPh(Z) THEN
-    ChangeIfNotStressed(y)
-    ChangePhoneme(E)
+	ChangeIfNotStressed(y)
+	ChangePhoneme(E)
   ENDIF
   IF prevPh(S) THEN
-    ChangeIfNotStressed(y)
-    ChangePhoneme(E)
+	ChangeIfNotStressed(y)
+	ChangePhoneme(E)
   ENDIF
   IF prevPh(ts) THEN
-    ChangeIfNotStressed(y)
-    ChangePhoneme(E)
+	ChangeIfNotStressed(y)
+	ChangePhoneme(E)
   ENDIF
   ChangeIfNotStressed(i)
   FMT(vwl_ru/ee)
@@ -435,22 +470,22 @@ endphoneme
 phoneme ja
   vwl  starttype #i endtype #a
   IF thisPh(isMaxStress) THEN
-    length 200
-    FMT(vwl_ru/ja)
+	length 200
+	FMT(vwl_ru/ja)
   ELSE
-    FMT(vdiph2/ii@)
+	FMT(vdiph2/ii@)
   ENDIF
 endphoneme
 
 phoneme ja#
   vwl  starttype #i endtype #a
   IF thisPh(isMaxStress) THEN
-    FMT(vowel/&)
-        // ChangePhoneme(A)
+	FMT(vowel/&)
+	// ChangePhoneme(A)
   ELSE
-    IF prevPhW(isPalatal) THEN
-      ChangePhoneme(I)
-    ENDIF
+	IF prevPhW(isPalatal) THEN
+	ChangePhoneme(I)
+	ENDIF
   ENDIF
 
 //  length 200
@@ -464,17 +499,21 @@ phoneme V#
   vwl  starttype #a  endtype #@
   unstressed
   length 80
+//  IF nextVowel(isMaxStress) THEN
+	// not needed?   because V# is only used at end-of-word
+//	ChangePhoneme(I3)  
+//  ENDIF
 
   IF thisPh(isMaxStress) THEN
-    IF prevPhW(j) THEN
-      ChangePhoneme(A)
-    ELSE
-      ChangePhoneme(ja)
-    ENDIF
+	IF prevPhW(j) THEN
+	  ChangePhoneme(A)
+	ELSE
+	  ChangePhoneme(ja)
+	ENDIF
   ENDIF
 
   IF prevPhW(isPalatal) THEN
-    ChangePhoneme(V)
+	ChangePhoneme(V)
   ENDIF
 
   FMT(vowel/V_2)
@@ -502,41 +541,43 @@ phoneme a
 
   IF prevPhW(j) THEN
   ELSE
-    IF thisPh(isMaxStress) THEN
-      IF prevPhW(isPalatal) THEN
-        ChangePhoneme(ja)
-      ELSE
-        ChangePhoneme(A)
-      ENDIF
-    ELSE
-      IF prevPhW(isPalatal) THEN
-        ChangePhoneme(I)
-      ENDIF
-    ENDIF
+	IF thisPh(isMaxStress) THEN
+	  IF prevPhW(isPalatal) THEN
+	    ChangePhoneme(ja)
+	  ELSE
+	    ChangePhoneme(A)
+	  ENDIF
+	ELSE
+	  IF prevPhW(isPalatal) THEN
+	    ChangePhoneme(I)
+	ENDIF
+	ENDIF
   ENDIF
 
   IF thisPh(isWordEnd) THEN
-    FMT(vowel/a#_3)
+	FMT(vowel/a#_3)
   ENDIF
   FMT(vwl_ru/aa)
 endphoneme
 
 
 phoneme V
-  vwl  starttype #o  endtype #o
-  length 100
+  vwl  starttype #a  endtype #@
+  length 80
   unstressed
 
   IF nextVowel(isMaxStress) THEN
-    ChangePhoneme(a)
+	ChangePhoneme(a)
   ENDIF
 
   IF thisPh(isMaxStress) THEN
-    IF prevPhW(j) THEN
-      ChangePhoneme(a)
-    ELSE
-      ChangePhoneme(A)
-    ENDIF
+	IF prevPhW(j) THEN
+	  ChangePhoneme(a)
+//	ELIF prevPhW(isPalatal) THEN
+//	  ChangePhoneme(ja)
+	ELSE
+	  ChangePhoneme(A)
+	ENDIF
   ENDIF
 
   FMT(vowel/V_2)
@@ -558,3 +599,4 @@ phoneme R4
   FMT(r3/r_ru2) addWav(r3/r_ru, 50)
 endphoneme
 
+