Tcl/Tk 使用 TTS 真人发音引擎

Windows 下比较简单，不用下载任何扩展包：
    package require tcom
    set voice [::tcom::ref createobject Sapi.SpVoice]
    $voice Speak "你好，世界。"

Linux 下需要下载本无鬼见愁童鞋编写的 tclespeak [1] 扩展包先：
    package require espeak
    eSpeak E
    E lang zh
    E speak "你好，世界。"

好，今天的 Tcl/Tk 快速开发教学至此结束。白~ 大家。