home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Narrator.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  1.1 KB  |  74 lines
  1. unit Narrator;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pnarrator_rb = ^tnarrator_rb;
  9.     tnarrator_rb = record
  10.         message: tIOStdReq;
  11.         rate: word;
  12.         pitch: word;
  13.         mode: word;
  14.         sex: word;
  15.         ch_masks: pbyte;
  16.         nm_masks: word;
  17.         volume: word;
  18.         sampfreq: word;
  19.         mouths: byte;
  20.         chanmask: byte;
  21.         numchan: byte;
  22.         pad: byte;
  23.         end;
  24.  
  25.     pmouth_rb = ^tmouth_rb;
  26.     tmouth_rb = record
  27.         voice: tnarrator_rb;
  28.         width: byte;
  29.         height: byte;
  30.         shape: byte;
  31.         pad: byte;
  32.         end;
  33.  
  34.  
  35.  
  36. const
  37.     MAXPITCH = $140;
  38.     DEFRATE = $96;
  39.     DEFFREQ = $56B8;
  40.     ND_NoMem = $FFFFFFFE;
  41.     ND_CantAlloc = $FFFFFFFA;
  42.     ND_ModeErr = $FFFFFFE8;
  43.     FEMALE = 1;
  44.     MINRATE = $28;
  45.     ND_RateErr = $FFFFFFEB;
  46.     MAXRATE = $190;
  47.     MINFREQ = $1388;
  48.     ND_FreqErr = $FFFFFFE7;
  49.     MAXFREQ = $6D60;
  50.     ND_PitchErr = $FFFFFFEA;
  51.     ND_PhonErr = $FFFFFFEC;
  52.     ND_SexErr = $FFFFFFE9;
  53.     ND_VolErr = $FFFFFFE6;
  54.     ROBOTICF0 = 1;
  55.     DEFSEX = 0;
  56.     ND_NoWrite = $FFFFFFF8;
  57.     DEFVOL = $40;
  58.     ND_UnitErr = $FFFFFFFB;
  59.     NATURALF0 = 0;
  60.     ND_Unimpl = $FFFFFFF9;
  61.     ND_Expunged = $FFFFFFF7;
  62.     MINVOL = 0;
  63.     MAXVOL = $40;
  64.     ND_MakeBad = $FFFFFFFC;
  65.     DEFPITCH = $6E;
  66.     ND_NoAudLib = $FFFFFFFD;
  67.     MALE = 0;
  68.     DEFMODE = 0;
  69.     MINPITCH = $41;
  70.  
  71.  
  72. IMPLEMENTATION
  73. end.
  74.