[Maxima] notebook interfaces and speech

Thu Apr 20 12:00:43 CDT 2006

This is a multi-part message in MIME format.
--------------080001050208060500020406
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

Nicolas Pettiaux wrote:

> ......
>
>
>could they have a look at the same functionnalities for
>OpenOffice2.org ... as this program is free software like maxima and
>offers a very similar interfaces for the users (who in many
>circumstancies do not realize they are working with Word or
>OpenOffice2.org writer)
>
Whatever we get working will be done in open source. If someone wants to 
look at
OpenOffice, that's fine with me.

>
>  
>
>>So you could use, as your notebook, some familiar
>>program, with display /compute sections.
>>    
>>
>
>There are some working program to speak out text that I have tried on
>my GNU/linux platform.
>  
>
Speaking text out loud is supported pretty well by microsoft and could 
easily be incorporated
into Maxima/ Allegro Common Lisp/ Windows.
  For example,

;;;  this is Allegro CL and Windows specific. Other lisps presumably 
have similar stuff.

(eval-when (compile load eval)   (require :ole)   (require :ole-dev))
(ole:start-ole)

(defconstant clsid-SAPI.SpVoice "{96749377-3391-11D2-9EE3-00C04F797396}")

(defparameter sp (ole:ask-for-autotool  ;; text to speech automation tool
              (ole:string-guid clsid-SAPI.SpVoice)
              ole:CLSCTX_INPROC_SERVER))

(defun speak(s)  ;; speak the string s
  (ole:auto-method sp :Speak s 0)
  (ole:auto-method sp :WaitUntilDone 10000) ; wait up to 10 seconds
  s)

;; THAT'S ALL THAT IS NECESSARY.

;; Examples

 (speak "a x squared plus b x plus c")
 (speak "<p> 123 <spell> 123</spell>. </p>")  ;;; etc

I have other programs that change  (+ (* a (expt x 2)) (* b x) c)     to 
text.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
I suspect that with the appropriate tags, you can just have your browser
read this kind of text into speech, on Mac or Windows or Linux.

--------------080001050208060500020406
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
 <meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
 <title></title>
</head>
<body text="#000000" bgcolor="#ffffff">
 
 
Nicolas Pettiaux wrote: 
<blockquote type="cite"
 cite="midf89206d80604200913u1eb72067y906d020cf69720be at mail.gmail.com">...... 
 <pre wrap="">
could they have a look at the same functionnalities for
OpenOffice2.org ... as this program is free software like maxima and
offers a very similar interfaces for the users (who in many
circumstancies do not realize they are working with Word or
OpenOffice2.org writer)</pre>
</blockquote>
Whatever we get working will be done in open source. If someone wants
to look at 
OpenOffice, that's fine with me. 
<blockquote type="cite"
 cite="midf89206d80604200913u1eb72067y906d020cf69720be at mail.gmail.com">
 <pre wrap="">

  </pre>
  <blockquote type="cite">
    <pre wrap="">So you could use, as your notebook, some familiar
program, with display /compute sections.
    </pre>
  </blockquote>
  <pre wrap=""><!---->
There are some working program to speak out text that I have tried on
my GNU/linux platform.
  </pre>
</blockquote>
Speaking text out loud is supported pretty well by microsoft and could
easily be incorporated<br>
into Maxima/ Allegro Common Lisp/ Windows.<br>
&nbsp; For example,<br>
<br>
;;;&nbsp; this is Allegro CL and Windows specific. Other lisps presumably
have similar stuff.<br>
<br>
(eval-when (compile load eval) &nbsp; (require :ole) &nbsp; (require :ole-dev))<br>
(ole:start-ole)<br>
<br>
(defconstant clsid-SAPI.SpVoice
"{96749377-3391-11D2-9EE3-00C04F797396}")<br>
<br>
(defparameter sp (ole:ask-for-autotool&nbsp; ;; text to speech automation
tool<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (ole:string-guid clsid-SAPI.SpVoice)<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ole:CLSCTX_INPROC_SERVER))<br>
<br>
(defun speak(s)&nbsp; ;; speak the string s<br>
&nbsp; (ole:auto-method sp :Speak s 0)<br>
&nbsp; (ole:auto-method sp :WaitUntilDone 10000) ; wait up to 10 seconds<br>
&nbsp; s)<br>
<br>
;; THAT'S ALL THAT IS NECESSARY.<br>
<br>
;; Examples<br>
<br>
&nbsp;(speak "a x squared plus b x plus c")<br>
&nbsp;(speak "&lt;p&gt; 123 &lt;spell&gt; 123&lt;/spell&gt;. &lt;/p&gt;")&nbsp;
;;; etc<br>
<br>
I have other programs that change&nbsp; (+ (* a (expt x 2)) (* b x) c)&nbsp;&nbsp;&nbsp;&nbsp;
to text.<br>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br>
I suspect that with the appropriate tags, you can just have your
browser <br>
read this kind of text into speech, on Mac or Windows or Linux.<br>
<br>
</body>
</html>

--------------080001050208060500020406--