summaryrefslogtreecommitdiffstats
path: root/tools/sapi5_voice.vbs
diff options
context:
space:
mode:
Diffstat (limited to 'tools/sapi5_voice.vbs')
-rwxr-xr-xtools/sapi5_voice.vbs68
1 files changed, 0 insertions, 68 deletions
diff --git a/tools/sapi5_voice.vbs b/tools/sapi5_voice.vbs
deleted file mode 100755
index c37836afb4..0000000000
--- a/tools/sapi5_voice.vbs
+++ /dev/null
@@ -1,68 +0,0 @@
-'***************************************************************************
-' __________ __ ___.
-' Open \______ \ ____ ____ | | _\_ |__ _______ ___
-' Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
-' Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
-' Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
-' \/ \/ \/ \/ \/
-' $Id: sapi5_voice.vbs$
-'
-' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed
-'
-' All files in this archive are subject to the GNU General Public License.
-' See the file COPYING in the source tree root for full license agreement.
-'
-' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
-' KIND, either express or implied.
-'
-'***************************************************************************
-' Purpose: Make a voice clip file for the given text
-' Parameters: $0 - text to convert
-' $1 - file to write spoken text into (WAV format)
-
-
-
-'To be done:
-' - Somehow, persist oSpVoice across multiple clips to increase speed
-' - Allow user to override voice, speed and/or format (currently uses Control Panel defaults for voice/speed)
-' - Voice specific replacements/corrections for pronounciation (this should be at a higher level really)
-
-Const SSFMCreateForWrite = 3
-
-Const SPSF_8kHz16BitMono = 6
-Const SPSF_11kHz16BitMono = 10
-Const SPSF_12kHz16BitMono = 14
-Const SPSF_16kHz16BitMono = 18
-Const SPSF_22kHz16BitMono = 22
-Const SPSF_24kHz16BitMono = 26
-Const SPSF_32kHz16BitMono = 30
-Const SPSF_44kHz16BitMono = 34
-Const SPSF_48kHz16BitMono = 38
-
-Dim oSpVoice, oSpFS, nAudioFormat, sText, sOutputFile
-
-sText = Replace(WScript.Arguments(0), "\", "")
-sOutputFile = WScript.Arguments(1)
-nAudioFormat = SPSF_22kHz16BitMono 'Audio format to use, recommended settings:
- '- for AT&T natural voices, use SPSF_32kHz16BitMono
- '- for MS voices, use SPSF_22kHz16BitMono
-
-Set oSpVoice = CreateObject("SAPI.SpVoice")
-If Err.Number <> 0 Then
- WScript.Echo "Error - could not get SpVoice object. " & _
- "SAPI 5 not installed?"
- Err.Clear
- WScript.Quit 1
-End If
-
-Set oSpFS = CreateObject("SAPI.SpFileStream")
-oSpFS.Format.Type = nAudioFormat
-oSpFS.Open sOutputFile, SSFMCreateForWrite, False
-Set oSpVoice.AudioOutputStream = oSpFS
-oSpVoice.Speak sText
-oSpFS.Close
-
-Set oSpFS = Nothing
-Set oSpVoice = Nothing
-Set oArgs = Nothing
-WScript.Quit 0