(********************************************************************************

Name         : Narrator.DEF
Version      : 1.0
Purpose      : Interface to Narrator Device
Author       : ms
Modified     : 3.4.86  22:45 ms

********************************************************************************)

DEFINITION MODULE Narrator;

TYPE  NarrateErr  = ( ndOk, ndNoMem, ndNoAudLib, ndMakeBad, ndUnitErr,
                      ndCantAlloc, ndUnimpl, ndNoWrite, ndExpunged,
                      ndPhonErr, ndRateErr, ndPitchErr, ndSexErr, ndModeErr,
                      ndFreqErr, ndVolErr );
      NarratePara = RECORD
                      pitch: [65..320];        (*     110 *)
                      rate: [40..400];         (*     150 *)
                      vol: [0..64];            (*      64 *)
                      freq: [5000..28000];     (*   22200 *)
                      sex: (male, female);     (*    male *)
                      mode: (natural, robotic) (* natural *)
                    END;
      NarrParaPtr = POINTER TO NarratePara;


PROCEDURE Narrate(phon: ARRAY OF CHAR;paraPtr: NarrParaPtr;VAR err: NarrateErr);


END Narrator.
