home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Narrator.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  1.7 KB  |  105 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.         flags: byte;
  23.         F0enthusiasm: byte;
  24.         F0perturb: byte;
  25.         F1adj: shortint;
  26.         F2adj: shortint;
  27.         F3adj: shortint;
  28.         A1adj: shortint;
  29.         A2adj: shortint;
  30.         A3adj: shortint;
  31.         articulate: byte;
  32.         centralize: byte;
  33.         centphon: pbyte;
  34.         AVbias: shortint;
  35.         AFbias: shortint;
  36.         priority: shortint;
  37.         pad1: shortint;
  38.         end;
  39.  
  40.     pmouth_rb = ^tmouth_rb;
  41.     tmouth_rb = record
  42.         voice: tnarrator_rb;
  43.         width: byte;
  44.         height: byte;
  45.         shape: byte;
  46.         sync: byte;
  47.         end;
  48.  
  49.  
  50.  
  51. const
  52.     MAXPITCH = $140;
  53.     DEFRATE = $96;
  54.     DEFFREQ = $56B8;
  55.     ND_NoMem = $FFFFFFFE;
  56.     ND_CantAlloc = $FFFFFFFA;
  57.     ND_ModeErr = $FFFFFFE8;
  58.     DEFCENTRAL = 0;
  59.     MINCENT = 0;
  60.     FEMALE = 1;
  61.     MINRATE = $28;
  62.     MAXCENT = $64;
  63.     ND_CentPhonErr = $FFFFFFE4;
  64.     ND_RateErr = $FFFFFFEB;
  65.     MAXRATE = $190;
  66.     MINFREQ = $1388;
  67.     ND_FreqErr = $FFFFFFE7;
  68.     MAXFREQ = $6D60;
  69.     NDB_WORDSYNC = 1;
  70.     ND_PitchErr = $FFFFFFEA;
  71.     NDB_NEWIORB = 0;
  72.     ND_PhonErr = $FFFFFFEC;
  73.     ND_SexErr = $FFFFFFE9;
  74.     DEFF0PERT = 0;
  75.     NDF_WORDSYNC = 2;
  76.     ND_VolErr = $FFFFFFE6;
  77.     NDF_NEWIORB = 1;
  78.     DEFPRIORITY = $64;
  79.     ROBOTICF0 = 1;
  80.     DEFSEX = 0;
  81.     ND_NoWrite = $FFFFFFF8;
  82.     DEFVOL = $40;
  83.     ND_UnitErr = $FFFFFFFB;
  84.     NATURALF0 = 0;
  85.     MANUALF0 = 2;
  86.     ND_Unimpl = $FFFFFFF9;
  87.     ND_Expunged = $FFFFFFF7;
  88.     NDB_SYLSYNC = 2;
  89.     MINVOL = 0;
  90.     MAXVOL = $40;
  91.     NDF_SYLSYNC = 4;
  92.     DEFARTIC = $64;
  93.     ND_MakeBad = $FFFFFFFC;
  94.     DEFPITCH = $6E;
  95.     ND_NoAudLib = $FFFFFFFD;
  96.     MALE = 0;
  97.     DEFF0ENTHUS = $20;
  98.     ND_DCentErr = $FFFFFFE5;
  99.     DEFMODE = 0;
  100.     MINPITCH = $41;
  101.  
  102.  
  103. IMPLEMENTATION
  104. end.
  105.