#
# 初期化ファイル。音声単位に関する設定を行う。
# 本ファイルはソフトから直接sourceされる。
#

#
# ポーズ記号の定義
#
set pause "-"

#
# 入力文字列の変換規則の定義。
#
# transFromListに変換元文字列を列挙し、
# その変換先文字列を同じ順でtransToListに列挙する。
#   (例1) ア→あ、カ→ka　と変換したいとき
#     set transFromList {ア カ}
#     set transToList {あ ka}
#
#   (例2) 変換が不要の場合
#     set transFromList {}
#     set transToList {}
#
set transFromList {
  あ か さ  た  な は ま や ら わ が ざ だ ば ぱ 
  い き し  ち  に ひ み    り    ぎ じ ぢ び ぴ 
  う く す  つ  ぬ ふ む ゆ る    ぐ ず づ ぶ ぷ 
  え け せ  て  ね へ め    れ    げ ぜ で べ ぺ 
  お こ そ  と  の ほ も よ ろ を ご ぞ ど ぼ ぽ 
  ん

  いゃ きゃ しゃ ちゃ にゃ ひゃ みゃ りゃ ぎゃ じゃ ぢゃ びゃ ぴゃ 
  いゅ きゅ しゅ ちゅ にゅ ひゅ みゅ りゅ ぎゅ じゅ ぢゅ びゅ ぴゅ 
  いょ きょ しょ ちょ にょ ひょ みょ りょ ぎょ じょ ぢょ びょ ぴょ 
  いぇ きぇ しぇ ちぇ にぇ ひぇ みぇ りぇ ぎぇ じぇ ぢぇ びぇ ぴぇ 

  うぁ くぁ すぁ つぁ ぬぁ ふぁ むぁ ゆぁ るぁ    ヴぁ ぐぁ ずぁ づぁ ぶぁ ぷぁ てぁ でぁ
  うぃ くぃ すぃ つぃ ぬぃ ふぃ むぃ ゆぃ るぃ    ヴぃ ぐぃ ずぃ づぃ ぶぃ ぷぃ てぃ でぃ
  うぇ くぇ すぇ つぇ ぬぇ ふぇ むぇ ゆぇ るぇ    ヴぇ ぐぇ ずぇ づぇ ぶぇ ぷぇ 
  うぉ くぉ すぉ つぉ ぬぉ ふぉ むぉ ゆぉ るぉ    ヴぉ ぐぉ ずぉ づぉ ぶぉ ぷぉ 
  ふゅ

  てゅ でゅ 

  とぅ どぅ 
}

set transToList {
  a  ka sa  ta  na ha ma ya ra wa ga za da ba pa
  i  ki shi chi ni hi mi    ri    gi ji ji bi pi
  u  ku su  tsu nu fu mu yu ru    gu zu zu bu pu
  e  ke se  te  ne he me    re    ge ze de be pe
  o  ko so  to  no ho mo yo ro wo go zo do bo po
  N

  iya  kya  sha  cha  nya  hya  mya  rya  kya  ja   ja   bya  pya
  iyu  kyu  shu  chu  nyu  hyu  myu  ryu  kyu  ju   ju   byu  pyu
  iyo  kyo  sho  cho  nyo  hyo  myo  ryo  kyo  jo   jo   byo  pyo
  iye  kye  she  che  nye  hye  mye  rye  kye  je   je   bye  pye

                           fa                     va
  wi                       fi                     vi                            ti   di
  we                       fe                     ve
  wo                       fo                     vo
  fyu

  tyu  dyu

  tu   du
}

#
# 一つの音声単位として扱う文字(または文字列)の定義
#
set unitList {
  a i u e o N
  b by ch d dy f fy g h hy j k ky m my n ny p py r ry s sh t ts ty v w y z
}

#
# 先行音名関係の定義。
# prevList(prev)の内容が一覧表の列となる。
#
array unset prevList
# ↓prevList(prev)に先行音を列挙する
set prevList(prev) {
  a i u e o N
  b by ch d dy f fy g h hy j k ky m my n ny p py r ry s sh t ts ty v w y z
}

# ↓ポーズを便宜上登録しておく。
set prevList(prev) [linsert $prevList(prev) 0 $pause]

#
# 設定によっては、一覧表の中に、収録不要な音パターンの領域が出てくることがある。
# そんな場合は、以下の機能を使って計算対象外の領域を指定する。
#
# ここで指定された領域はカバー率などの計算対象外になる。
# 厳密には、収録不要な個所がすべて一か所に集まるわけではないので、
# 本機能を使っても厳密に正しいカバー率が求まる保証はない。
# 本機能はあくまでも正しいカバー率に"近づける"ための機能である。
#
# よく分からない場合は set excludeRegion {} とすること(本機能が無効になる)。
#
# 除外領域の位置は空白刻みで以下のように指定する。
#
#   set excludeRegion { 左上の行番号 左上の列番号 右下の行番号 右下の列番号 }
#
#   ※行は表の縦方向、列は横方向を意味する。
#   ※表の一番左上にある数値が1行1列目。
#
#   例： 1行2列目から3行4列目までを除外するなら → { 1 2 3 4 }
#
#   また、表の一番右下は文字列"end"で表記しても良い。
#   すなわち表の一番右下にある数値はend行end列である。
#   さらに"end-数値"と書けば右下から指定数値分左(上)にずれた位置を指定できる。
#
#   例： 5行6列目から、最下行、表右-2列目までを除外するなら
#        → { 5 6 end end-2 }
#
set excludeRegion { 6 8 end end }

#
# 一覧表のフォント設定
#
set fontName "ＭＳ ゴシック" 
set fontSize 10
