Using a speech engine to highlight words: Difference between revisions

Line 203:

=={{header|Phix}}==

<lang Phix>-- demo/rosetta/Speech.exw

requires(WINDOWS)

You can run this online [http://phix.x10.mx/p2js/Speech.htm here].

requires(32) -- Windows 32 bit only, for now... (runs fine on a 64-bit OS, but needs a 32-bit pw.exe)

include pGUI.e

--

Ihandle t3, left, red, right, btn, bc, dlg

-- demo\rosetta\Speech.exw

-- =======================

include pComN.ew

--

with javascript_semantics

procedure speak(atom pVoice, string text, integer flags=NULL)

requires(6) -- WINDOWS or JS, not LINUX

{} = cominvk(pVoice,ISpVoice_Speak,{unicode_string(text),flags,0})

requires(32) -- Windows 32 bit only, for now...

end procedure

-- (^ runs fine on a 64-bit OS, but needs a 32-bit p.exe)

requires("1.0.2")

procedure set_interest(atom pVoice, sequence flags)

include builtins\speak.e -- (new in 1.0.2)

atom lo = #40000000,

hi = #00000002

include pGUI.e

for i=1 to length(flags) do

Ihandle t3, left, red, right, btn, hbc, dlg

lo += power(2,flags[i])

end for

-- not sure why, but a leading space really helps...

-- NB 2*64-bit as 4*32-bit:

constant text = ` Highlight words as they are spoken.`

atom res = cominvk(pVoice,ISpVoice_SetInterest,{lo,hi,lo,hi})

if res!=S_OK then crash("invalid") end if

procedure speech_cb(integer pos, len)

end procedure

if pos<0 then pos += length(text)+1 end if

IupSetStrAttribute(left,"TITLE",text[1..pos])

constant text = `<rate speed="-5">Highlight words as they are spoken.`

IupSetStrAttribute(red,"TITLE",text[pos+1..pos+len])

atom pVoice = NULL

IupSetStrAttribute(right,"TITLE",text[pos+len+1..$])

IupSetAttributes({left,red,right}, "RASTERSIZE=x0")

include cffi.e

IupRefresh(t3)

constant tSPEVENT = """

IupRedraw(t3)

typedef struct SPEVENT

end procedure

{

WORD eEventId;

function button_cb(Ihandle /*ih*/)

WORD elParamType;

atom rate = iff(platform()=WINDOWS?-5: -- -10..+10, voice dependent

ULONG ulStreamNum;

iff(platform()=JS?0.3: -- 0.1..10, 0.5 = half speed

ULONGLONG ullAudioStreamOffset;

9/0)) -- linux, anyone?...

WPARAM wParam;

speak(text,rate,speech_cb)

LPARAM lParam;

return IUP_CONTINUE

} SPEVENT;""",

end function

idSPEVENT = define_struct(tSPEVENT),

pSPEVENT = allocate_struct(idSPEVENT)

procedure main()

IupOpen()

function eventHandler(atom wParam, lParam)

left = IupLabel()

while cominvk(pVoice,ISpVoice_GetEvents,{1,pSPEVENT,NULL})=S_OK do

red = IupLabel("",`FGCOLOR="255 0 0"`)

integer eEventId = get_struct_field(idSPEVENT,pSPEVENT,"eEventId")

right = IupLabel(text)

if eEventId=SPEI_WORD_BOUNDARY then

t3 = IupHbox({IupFill(),left,red,right,IupFill()},

integer len = get_struct_field(idSPEVENT,pSPEVENT,"wParam"),

`FONT="Verdana, 18", MARGIN=0x20`)

pos = get_struct_field(idSPEVENT,pSPEVENT,"lParam")

btn = IupButton("Speak",Icallback("button_cb"))

IupSetStrAttribute(left,"TITLE",text[1..pos])

hbc = IupHbox({IupFill(),btn,IupFill()},"MARGIN=0x10")

IupSetStrAttribute(red,"TITLE",text[pos+1..pos+len])

dlg = IupDialog(IupVbox({t3,hbc}),"TITLE=Speak")

IupSetStrAttribute(right,"TITLE",text[pos+len+1..$])

IupShow(dlg)

elsif eEventId=SPEI_END_INPUT_STREAM then

if platform()!=JS then

IupSetStrAttribute(left,"TITLE",text)

IupMainLoop()

IupSetStrAttribute(red,"TITLE","")

IupClose()

IupSetStrAttribute(right,"TITLE","")

end if

end if

end procedure

IupSetAttribute(left, "RASTERSIZE", "x0")

IupSetAttribute(red, "RASTERSIZE", "x0")

main()

IupSetAttribute(right, "RASTERSIZE", "x0")

IupRefresh(t3)

IupRedraw(t3)

end while

return 0

end function

constant cb_eventHandler = call_back(eventHandler)

function button_cb(Ihandle /*ih*/)

object res

if platform()=WINDOWS then

if pVoice=NULL then

pVoice = allocate(machine_word())

res = CoCreateInstance(CLSID_SpVoice,IID_ISpVoice,pVoice)

if res!=S_OK then

crash("Failed to initialize SpeechAPI. (%08x)\n",res)

end if

if cominvk(pVoice,ISpVoice_SetNotifyCallbackFunction,{cb_eventHandler,0,0})!=S_OK then ?9/0 end if

set_interest(pVoice, {SPEI_WORD_BOUNDARY,SPEI_END_INPUT_STREAM})

speak(pVoice,text,SPF_IS_XML+SPF_ASYNC)

else

-- DEV no highlighting here...

{} = system_exec(sprintf(`espeak "%s"`,{text}))

end if

return IUP_CONTINUE

end function

procedure main()

IupOpen()

left = IupLabel("",`FONT="Verdana, 18"`)

red = IupLabel("",`FONT="Verdana, 18", FGCOLOR="255 0 0"`)

right = IupLabel(text,`FONT="Verdana, 18"`)

t3 = IupHbox({IupFill(),left,red,right,IupFill()},"MARGIN=20x20")

btn = IupButton("Speak",Icallback("button_cb"))

bc = IupHbox({IupFill(),btn,IupFill()},"MARGIN=10x10")

dlg = IupDialog(IupVbox({t3,bc}),"TITLE=Speak")

IupShow(dlg)

IupMainLoop()

IupClose()

end procedure

main()</lang>

=={{header|Raku}}==