unit Narrator;

INTERFACE
uses Exec;


type
	pnarrator_rb = ^tnarrator_rb;
	tnarrator_rb = record
		message: tIOStdReq;
		rate: word;
		pitch: word;
		mode: word;
		sex: word;
		ch_masks: pbyte;
		nm_masks: word;
		volume: word;
		sampfreq: word;
		mouths: byte;
		chanmask: byte;
		numchan: byte;
		pad: byte;
		end;

	pmouth_rb = ^tmouth_rb;
	tmouth_rb = record
		voice: tnarrator_rb;
		width: byte;
		height: byte;
		shape: byte;
		pad: byte;
		end;



const
	MAXPITCH = $140;
	DEFRATE = $96;
	DEFFREQ = $56B8;
	ND_NoMem = $FFFFFFFE;
	ND_CantAlloc = $FFFFFFFA;
	ND_ModeErr = $FFFFFFE8;
	FEMALE = 1;
	MINRATE = $28;
	ND_RateErr = $FFFFFFEB;
	MAXRATE = $190;
	MINFREQ = $1388;
	ND_FreqErr = $FFFFFFE7;
	MAXFREQ = $6D60;
	ND_PitchErr = $FFFFFFEA;
	ND_PhonErr = $FFFFFFEC;
	ND_SexErr = $FFFFFFE9;
	ND_VolErr = $FFFFFFE6;
	ROBOTICF0 = 1;
	DEFSEX = 0;
	ND_NoWrite = $FFFFFFF8;
	DEFVOL = $40;
	ND_UnitErr = $FFFFFFFB;
	NATURALF0 = 0;
	ND_Unimpl = $FFFFFFF9;
	ND_Expunged = $FFFFFFF7;
	MINVOL = 0;
	MAXVOL = $40;
	ND_MakeBad = $FFFFFFFC;
	DEFPITCH = $6E;
	ND_NoAudLib = $FFFFFFFD;
	MALE = 0;
	DEFMODE = 0;
	MINPITCH = $41;


IMPLEMENTATION
end.