Espeak

[alexfish]

Hi All

Not Sure if this lib conversion has been done before

Here mainly talking RPI , since I was getting a lot of Problems with Configs & Espeak was failing to exit
esp with VOICE commands things like m3 f3 , but default m1 & f1 work

Ended up doing a simple BaconSpeak .

on Raspberry PI , one will get Alsa/Pulse/pcm and other warnings on INIT but it does work

Required 'libespeak-dev'

BR Alex

The Code

' INCLUDES
OPTION PARSE FALSE

PRAGMA INCLUDE <espeak/speak_lib.h>

PRAGMA LDFLAGS  -lespeak

REM don't delete this callback function.==================================
FUNCTION SynthCallback(short  *wav, int numsamples, espeak_EVENT *events) TYPE int

   RETURN FALSE

END FUNCTION

' ******************************************************************************
FUNCTION SpeakInit()

 IF (espeak_Initialize(AUDIO_OUTPUT_SYNCH_PLAYBACK,0,NULL,espeakINITIALIZE_PHONEME_EVENTS) < 0) THEN
       PRINT "could not initialize espeak\n"
       END
   ELSE
espeak_SetSynthCallback(SynthCallback)
RETURN 1
END IF

END FUNCTION

FUNCTION Speak(STRING textBuff) TYPE int
espeak_Synth(textBuff, strlen(textBuff), 0,(espeak_POSITION_TYPE)0,0,espeakPHONEMES|espeakSSML|espeakENDPAUSE,NULL,NULL)
RETURN TRUE
END FUNCTION

' OPTIONS  *********************************************************************

/* Sets the value of the specified parameter.
espeak_SetParameter(option,relative)
  relative=0   Sets the absolute value of the parameter.
  relative=1   Sets a relative value of the parameter.
  Return: EE_OK: operation achieved
          EE_BUFFER_FULL: the command can not be buffered;
            you may try after a while to call the function again.
  EE_INTERNAL_ERROR.
*/

SUB SpeakRate(int speed)
' espeakRATE:    speaking speed in word per minute.  Values 80 to 450.
espeak_SetParameter(espeakRATE, speed, 0)

END SUB

SUB SpeakVolume(int volume)
/*
espeakVOLUME:  volume in range 0-200 or more.
0=silence, 100=normal full volume, greater values may produce
amplitude compression or distortion
*/
espeak_SetParameter(espeakVOLUME, volume, 0)

END SUB

SUB SpeakPitch(int pitch)
' espeakPITCH:   base pitch, range 0-100.  50=normal
espeak_SetParameter(espeakPITCH, pitch, 0)

END SUB

SUB SpeakRange(int range)
' espeakRANGE:   pitch range, range 0-100. 0-monotone, 50=normal
espeak_SetParameter(espeakRANGE, range, 0)

END SUB

SUB SpeakPunctuation(int punc)
/*
espeakPUNCTUATION:  which punctuation characters to announce:
value in espeak_PUNCT_TYPE (none, all, some),
see espeak_GetParameter() to specify which characters are announced.
*/
espeak_SetParameter(espeakPUNCTUATION, punc, 0)

END SUB

SUB SpeakCapitals(int caps)
/*
espeakCAPITALS: announce capital letters by:
0=none,
1=sound icon,
2=spelling,
3 or higher, by raising pitch.  This values gives the amount in Hz by which the pitch
of a word raised to indicate it has a capital letter.
*/
espeak_SetParameter(espeakCAPITALS, caps, 0)

END SUB

SUB SpeakGap(int gap)
' espeakWORDGAP:  pause between words, units of 10mS (at the default speed)
espeak_SetParameter(espeakWORDGAP, gap, 0)

END SUB

' END OPTIONS

' ******************************************************************************
SUB SpeakVoice(STRING Voice)
espeak_SetVoiceByName(Voice)
END SUB

' ******************************************************************************
SUB SpeakMale(STRING txt)
SpeakVoice("m1")
Speak(txt)
END SUB

SUB SpeakFemale(STRING txt)
SpeakVoice("f1")
Speak(txt)
END SUB


' Main *************************************************************************
SpeakInit()
SpeakVolume(100)
SpeakFemale("Hello World . OK")
SpeakVolume(50)
SpeakMale("Hello World . OK . OK")
SpeakVolume(100)
SpeakFemale(" . OK")
Speak("<s xml:lang=\"en\"><voice gender=\"female\">Dit wordt gesproken door een vrouw.</voice></s>")
Speak("[[D,Is Iz sVm f@n'EtIk t'Ekst 'InpUt]]")
   espeak_Cancel()
   espeak_Terminate()


[alexfish]

Well Well

just done scan of basic-converter.org

and found

INCLUDE: eSpeak library HERE
Demonstration program: speak some text HERE

By No Other than Vovchik

Argh Well

ADDED and something I did not Know
so tested some of the bits with my version

SpeakMale("<s xml:lang=\"nl\"><voice gender=\"female\">Dit wordt gesproken door een vrouw.</voice></s>")
SpeakFemale("[[D,Is Iz sVm f@n'EtIk t'Ekst 'InpUt]]")

BR
Alex

[alexfish]

can say

Vovchiks version is better than mine.

esp when testing espeak.bac


' Good old Hello World
ESPEAK_SAY("Hello world.")

' Using SSML tags. (Using Dutch, "This is being spoken by a woman")
ESPEAK_SAY("<s xml:lang=\"en\"><voice gender=\"female\">Dit wordt gesproken door een vrouw.</voice></s>")

' Using phonetic tags [[ ]]
ESPEAK_SAY("[[D,Is Iz sVm f@n'EtIk t'Ekst 'InpUt]]")

Looks Like mine needs a bit of work.
BR
Alex

[vovchik]

Dear Alex,

Thanks for doing it - and I had forgotten that I had done it a few years back. I just
tried on my PI and it still works, after installing the lib and dev bits. We have to think of nice ways it might be used on PI.

With kind regards,
vovchik

[alexfish]

Hi Vovchik

Have used Your synth

espeak_Synth(textBuff, strlen(textBuff), 0,(espeak_POSITION_TYPE)0,0,espeakPHONEMES|espeakSSML|espeakENDPAUSE,NULL,NULL)

the xmltags and phonetics now work.

Updated the code in First post

Many Thanks
+
BR
Alex

[alexfish]

May 20, 2018 21:50:17 GMT 1 vovchik said:

Dear Alex,

Thanks for doing it - and I had forgotten that I had done it a few years back. I just
tried on my PI and it still works, after installing the lib and dev bits. We have to think of nice ways it might be used on PI.

With kind regards,
vovchik

Here Using Google Translate : Requires Google Translate 'trans'

ensure have latest version


trans -U

same code bas With New Sub 'SpeakTranslate'

BR
Alex


' INCLUDES
OPTION PARSE FALSE

PRAGMA INCLUDE <espeak/speak_lib.h>

PRAGMA LDFLAGS  -lespeak

REM don't delete this callback function.==================================
FUNCTION SynthCallback(short  *wav, int numsamples, espeak_EVENT *events) TYPE int

   RETURN FALSE

END FUNCTION

' ******************************************************************************
FUNCTION SpeakInit()

 IF (espeak_Initialize(AUDIO_OUTPUT_SYNCH_PLAYBACK,0,NULL,espeakINITIALIZE_PHONEME_EVENTS) < 0) THEN
       PRINT "could not initialize espeak\n"
       END
   ELSE
espeak_SetSynthCallback(SynthCallback)
RETURN 1
END IF

END FUNCTION

FUNCTION Speak(STRING textBuff) TYPE int
espeak_Synth(textBuff, strlen(textBuff), 0,(espeak_POSITION_TYPE)0,0,espeakPHONEMES|espeakSSML|espeakENDPAUSE,NULL,NULL);
RETURN TRUE
END FUNCTION



' OPTIONS  *********************************************************************

/* Sets the value of the specified parameter.
espeak_SetParameter(option,relative)
  relative=0   Sets the absolute value of the parameter.
  relative=1   Sets a relative value of the parameter.
  Return: EE_OK: operation achieved
          EE_BUFFER_FULL: the command can not be buffered;
            you may try after a while to call the function again.
  EE_INTERNAL_ERROR.
*/

SUB SpeakRate(int speed)
' espeakRATE:    speaking speed in word per minute.  Values 80 to 450.
espeak_SetParameter(espeakRATE, speed, 0)

END SUB

SUB SpeakVolume(int volume)
/*
espeakVOLUME:  volume in range 0-200 or more.
0=silence, 100=normal full volume, greater values may produce
amplitude compression or distortion
*/
espeak_SetParameter(espeakVOLUME, volume, 0)

END SUB

SUB SpeakPitch(int pitch)
' espeakPITCH:   base pitch, range 0-100.  50=normal
espeak_SetParameter(espeakPITCH, pitch, 0)

END SUB

SUB SpeakRange(int range)
' espeakRANGE:   pitch range, range 0-100. 0-monotone, 50=normal
espeak_SetParameter(espeakRANGE, range, 0)

END SUB

SUB SpeakPunctuation(int punc)
/*
espeakPUNCTUATION:  which punctuation characters to announce:
value in espeak_PUNCT_TYPE (none, all, some),
see espeak_GetParameter() to specify which characters are announced.
*/
espeak_SetParameter(espeakPUNCTUATION, punc, 0)

END SUB

SUB SpeakCapitals(int caps)
/*
espeakCAPITALS: announce capital letters by:
0=none,
1=sound icon,
2=spelling,
3 or higher, by raising pitch.  This values gives the amount in Hz by which the pitch
of a word raised to indicate it has a capital letter.
*/
espeak_SetParameter(espeakCAPITALS, caps, 0)

END SUB

SUB SpeakGap(int gap)
' espeakWORDGAP:  pause between words, units of 10mS (at the default speed)
espeak_SetParameter(espeakWORDGAP, gap, 0)

END SUB

' END OPTIONS

' ******************************************************************************
SUB SpeakVoice(STRING Voice)
espeak_SetVoiceByName(Voice)
END SUB

' ******************************************************************************
SUB SpeakMale(STRING txt)
SpeakVoice("m1")
Speak(txt)
END SUB

SUB SpeakFemale(STRING txt)
SpeakVoice("f1")
Speak(txt)
END SUB

SUB SpeakTranslate(STRING txt$, STRING lang$,STRING lang2$)
LOCAL trans$
LOCAL get_txt$
trans$ = "trans  -show-original n  -b "
trans$ = trans$ & lang$ & ":" & lang2$ & " "
trans$ = trans$ & txt$

get_txt$=EXEC$(trans$)
Speak(get_txt$)

END SUB
' Main *************************************************************************
SpeakInit()
SpeakTranslate("trans takes for ever","en","nl" )
   espeak_Cancel()
   espeak_Terminate()


[vovchik]

Dear Alex,

And thanks for SpeakTranslate. I didn't know about "trans" but found it (link) and installed. It's a very useful little utility. OK, it is not instant, but not that slow this morning.

With kind regards,
vovchik

[vovchik]

Dear Alex,

I brought back a gtkdialog gui I had done in 2010 for google translate from the dead, and compiled gtkdialog for PI3. It is all in the archive. Unpack and place all of that in /usr/bin. Then click on gxlat. It works now that we have "trans". Thanks.

With kind regards,
vovchik

Attachments:

gxlat_install.tar.gz (83.63 KB)