Re: Switch synts Script. Question?

[Carol Pearson]

Again, this didn't seem to make the List and someone might want it.


--
Carol Pearson
[EMAIL PROTECTED]



Hi David,

I can't help with your script, but Ron McEwan gave me the backbone of mine and I altered it to work for my synths. I give it here in case you or anyone else are interested. This takes a slightly different approach in that you have the same basic key (in my case INS-Z) to bring up the list box from which you then select your synth. Hitting the first letter of the synth works. To change to Eloquence, I just do INS-Z, E, "Return". It works. Eloquence doesn't crash.

Here's the script which I use:

Script SwitchSynth ()
;Switches Synths on the Fly
; Author Ronald J McEwan 07.98, modified 09.98

var
Int Index
; build pop-up box
Let index = DlgSelectItemInList
("DecTalkExpress|Eloquence|BNS|KeynoteMultimedia|NoSpeech", "select
synthesizer",
false)
; change to selected synthesizer
if Index == 1 Then
SetSynth ("DTE")
ResetSynth()
SayString ("SWITCHING TO DEC TALK ")
ElIf Index == 2 Then
SetSynth ("eloq")
ResetSynth()
SayString ("SWITCHING TO eloquence")
ElIf Index == 3 Then
SetSynth ("bns")
ResetSynth()
SayString ("SWITCHING TO bns")
ElIf Index == 4 Then
SetSynth ("kngmm")
ResetSynth()
SayString ("SWITCHING TO keynote gold")
ElIf Index == 5 Then
SayString ("turning speech off")
SetSynth ("nospeech")
ResetSynth()
EndIf

EndScript

Hope you or someone finds this as useful as I do.


--
Carol Pearson
[EMAIL PROTECTED]


At 18:24 01/01/99 -0800, David Edick wrote:
>I am trying to wright a universal script to switch synths. what I have
>done for my personal machine is set my scripts to load the drivers for
>the synths I have. I have attached the DoubleTalk LT to insert+shift+1
>and DecTalk Access32 to Insert+shift+2 and eloqence to insert+shift+3 I
>have noticed a sluggishness from eloquence, and after testing the
>responce time of switching synths, Eloquence crashed my computer much the
>same way that prag-maticlly did. in further tests, I have determined that
>frequent switching to the Eloquence synth makes it crash. the question I
>had was how can I set the scripts to work with only the synths that are
>installed. below are the example scripts, and then the shoort synth
>names.
>
>
>Script SwitchToDoubleTalk ()
>SetSynth ("lt")
>SayString("switching to DoubleTalk")
>EndScript
>
>Script SwitchToAccess32 ()
>SetSynth ("dtsoft")
>SayString("switching to Dectalk Access32")
>EndScript
>
>Script SwitchToEloquence ()
>SetSynth ("eloq")
>SayString("switching to Eloquence")
>EndScript
>
>
>below is a list of synths and the respective short names.
>
>ACCENT="Accent PC/Messenger Internal & Keynote Gold internal/external"
>ACTSAC17="Accent SA or Artic Transport COM1:9600,n,7,1"
>ACTSAC1="Accent SA or Artic Transport COM1:9600,n,8,1"
>ACTSAC27="Accent SA or Artic Transport COM2:9600,n,7,1"
>ACTSAC2="Accent SA or Artic Transport COM2:9600,n,8,1"
>APOLLO2j="Apollo 2"
>ARTIC215="Artic 215"
>AUDAPTC1="Audapter External with driver set to COM1:9600"
>AUDAPTC2="Audapter External with driver set to COM2:9600"
>BNS1="Braille 'n Speak and Type 'n Speak, set to COM1:9600"
>BNS2="Braille 'n Speak and Type 'n Speak, set to COM2:9600"
>DECTALK="DECtalk PC Internal or Express External"
>DUBLTALK="Doubletalk PC Internal"
>INFO37AM="Infovox, American English"
>KRE1="Kurzweil Reading Edge set to COM1:9600"
>KRE2="Kurzweil Reading Edge set to COM2:9600"
>LT1="Doubletalk LT or LightTalk set to COM1:9600"
>LT2="Doubletalk LT or LightTalk set to COM2:9600"
>MVOICE1="Multi Voice set to COM1:9600"
>MVOICE2="Multi Voice set to COM2:9600"
>NOSPEECH="No Speech Output"
>SOUNDBRD="Sounding Board Internal"
>TASSIST="Sound Blaster"
>
>___________________________________________________________________
>You don't need to buy Internet access to use free Internet e-mail.
>Get completely free e-mail from Juno at http://www.juno.com/getjuno.html
>or call Juno at (800) 654-JUNO [654-5866]
>-
>To unsubscribe, see the home page
>http://yoyo.cc.monash.edu.au/~nallan/jfw
>


- Visit the jfw ml web page: http://yoyo.cc.monash.edu.au/~nallan/jfw