Xref: utzoo comp.sys.amiga:15982 comp.sys.misc:1290 comp.sys.ibm.pc:13142 comp.sys.mac:13903 comp.sys.atari.st:8280
Path: utzoo!mnetor!uunet!mcvax!ukc!dcl-cs!strath-cs!turing!dug
From: dug@turing.ac.uk (Dug Scoular)
Newsgroups: comp.sys.amiga,comp.sys.misc,comp.sys.ibm.pc,comp.sys.mac,comp.sys.atari.st
Subject: Re: Re: Re: Copyright notices (was: Shareware? Hah!)
Message-ID: <21@tivax.turing.ac.uk>
Date: 11 Mar 88 11:48:49 GMT
References: <4815@ihlpg.ATT.COM> <3343@killer.UUCP> <2608@gryphon.CTS.COM> <333@esquire.UUCP> <22977@brunix.UUCP> <21023@bbn.COM> <147@bdt.UUCP> <3689@diku.dk> <160@bdt.UUCP> <3708@diku.dk>
Reply-To: dug@cs.strath.ac.uk
Organization: Turing Institute, Glasgow, Scotland.
Lines: 75

Hi there

Has anyone tried using MacinTalk v1.31 (Mac II compatible) with
LightSpeed Pascal (or C) on a Mac II ?

I get various weird and wonderful problems.

I have a program that used to work perfectly with the old macintalk
driver, it now only manages to speak on the first call to MacInTalk(),
all subsequent calls put up the watch cursor for a short while but no
speech gets uttered.  It looks like it is processing the phonemes but
not actually managing to speak.

Another problem is caused by the code below:

The code below sometimes gives a "Bus Error Exception" or just fails to 
say anything when run from within LS Pascal.


Finally (not related to MacinTalk), does anyone find their Mac II screen
goes completely haywire (rather like a hardware fault) but this always
seems to happen when I am either debugging in LS Pascal or running a
stand-alone program generated by LS Pascal.  It is only the screen that
starts to go, the mac is still running.  I can quit LS Pascal and return
to the finder.

PROGRAM say;
{$I-}
	USES
		SpeechIntf;			{Macintalk interface}

	VAR
		instr : str255;
		theSpeech : SpeechHandle;  	{handle to speech globals}
		SErr : SpeechErr;
		output : Handle;        	{handle to phonetic string}
		theMode : F0Mode;

	PROCEDURE SayIt;

	BEGIN
		instr := 'Hello everybody';
{$R-}
		SErr := Reader(theSpeech, pointer(ORD4(@instr) + 1),
				ORD(instr[0]), output);
{$R+}
		SErr := MacinTalk(theSpeech, output);		{say it.}
	END; {SayIt}

	PROCEDURE MyExit;

	BEGIN
		SpeechOff(theSpeech);		{close the speech driver.}
		DisposHandle(output);		{release the output handle}
	END; {MyExit}

BEGIN	{ main program starts here }

	SErr := SpeechOn('', theSpeech);	{Open the speech driver}
	IF SErr <> 0 THEN
		WriteLn('Error opening Macintalk: ', SErr)
	ELSE
		BEGIN
			theMode := Natural;
			SpeechPitch(theSpeech, 0, theMode);
			output := NewHandle(0);
			SayIt;
			MyExit;
		END;
END.


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Douglas A. Scoular		"The big print giveth
E-mail: dug@turing.ac.uk	 and the small print taketh away"