{$if not def DEVICES_NARRATOR_H} Const DEVICES_NARRATOR_H=0; {$if not def EXEC_IO_H;incl"exec/io.h";endif} Const ND_NoMem=-2; ND_NoAudLib=-3; ND_MakeBad=-4; ND_UnitErr=-5; ND_CantAlloc=-6; ND_Unimpl=-7; ND_NoWrite=-8; ND_Expunged=-9; ND_PhonErr=-20; ND_RateErr=-21; ND_PitchErr=-22; ND_SexErr=-23; ND_ModeErr=-24; ND_FreqErr=-25; ND_VolErr=-26; DEFPITCH=110; DEFRATE=150; DEFVOL=64; DEFFREQ=22200; MALE=0; FEMALE=1; NATURALF0=0; ROBOTICF0=1; DEFSEX=MALE; DEFMODE=NATURALF0; MINRATE=40; MAXRATE=400; MINPITCH=65; MAXPITCH=320; MINFREQ=5000; MAXFREQ=28000; MINVOL=0; MAXVOL=64; Type p_narrator_rb=^narrator_rb; narrator_rb=Record message:IOStdReq; rate,pitch,mode,sex:Word; ch_masks:Ptr; nm_masks,volume,sampfreq:Word; mouths,chanmask,numchan,pad:Byte End; p_mouth_rb=^mouth_rb; mouth_rb=Record voice:narrator_rb; width,height,shape,pad:Byte; End; {$endif DEVICES_NARRATOR_H }