Re: Specifying voice of speech

[Kazunori MINATANI <99112004@gakushuin.ac.jp>]

 南谷です。
At 02 Feb 2001 03:01:07 +0900,
Koichi INOUE wrote:
> さっきEmacspeakのコードをちょっと見ていたのですが、なんとなく声を変える
> 方法がわかった気がします。
> 
> 1.  メッセージをしゃべらせる場合:
> (dtk-speak-using-voice 声の種類 文字列) 関数を使うようです。
 気づきませんでした。参考になります。ありがとうございます。
> 声の種類はdtk-voices.elに定義されたシンボルです。
> ('paul, 'harryなど)
 以前、このあたりをみていたら、別の声質の定義が同じ声質にマッピングされ
ているような気がしたのですが。dtalker側の限界なのかな。

> 
> 2.  voice-lock
> バッファ内の任意の文字列の声を指定するには、put-text-property()や
> add-text-property()を使って、指定したい範囲の文字に 'personalityという
> text-propertyを与えます。値として1.と同じようにパーソナリティを与えるよ
> うです。voice-lock-modeがonになっていると、この状態でバッファや行を読ま
> せたときに声質が変わると思われます。
> # 未確認ということです。
 なるほど、先に属性を与えておいてそれをバッファ読みさせるということです
ね。
 fontlockとvoicelockの一義的な対応を作っておいて、字体の変化が直接声質に
反映されると面白いと思うのですが。でも、便利かどうかは微妙かもしれません
ね。
> 
> ところで、最近パッケージをつくるターゲットとしてよいなあと思っているもの
> として、lookupがあります。いわゆるCD-ROM辞書検索ツールで、eblook経由で広
> 辞苑第５版も引けそうな感じです。(小関さんのページ)
> 端末経由では常用しているのですが、視覚障害者によく使われているViewingな
> どと比べると格段に使いやすい辞書引き環境ができそうな気がします。

 私もlookupとsdicのパッケージ作りをちょっと考えたのですが、どちらも辞書本文内容
が表示されるバッファへのカレントバッファの切り替えがキーバインドされて
いたので、それでいいかなあと思って見送っていました。
 で、代わり(?)に作ったのが、emacspeak-autolookup.elです。autolookup.elは
lookupかsdicを使ってカーソルがある単語の訳を自動で表示するものです。デフォ
ルトでは１秒間入力がないと辞書を引きにいきます。しかし、当然のことながら
音声化するとかなりうるさいので、実用性は疑問です。とにかく付けておきます。

;;; emacspeak-autolookup.el --- Speech enable autolookup -- Fluent spoken access to IRC
;;; This file is not part of GNU Emacs, but the same permissions apply.
;;;
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; GNU Emacs is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Emacs; see the file COPYING.  If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

(require 'cl)
(declaim  (optimize  (safety 0) (speed 3)))
(require 'emacspeak-speak)

(require 'emacspeak-sounds)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defadvice auto-lookup-show-result (after  emacspeak pre act )
  "read the word line" 
	(dtk-speak line)
)