home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Narrator.def < prev    next >
Text File  |  1994-05-25  |  5KB  |  126 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLJA
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE Narrator;
  11. (* $A- *)
  12. FROM T_Exec     IMPORT IOStdReq,IOReturn;
  13. FROM Resources  IMPORT ContextPtr;
  14. FROM Utility    IMPORT StdTags;
  15. FROM System     IMPORT SysStringPtr;
  16.  
  17. CONST
  18.   noMem       = IOReturn(256-2);
  19.   noAudLib    = IOReturn(256-3);
  20.   makeBad     = IOReturn(256-4);
  21.   unitErr     = IOReturn(256-5);
  22.   cantAlloc   = IOReturn(256-6);
  23.   unimpl      = IOReturn(256-7);
  24.   noWrite     = IOReturn(256-8);
  25.   expunged    = IOReturn(256-9);
  26.   phonErr     = IOReturn(256-20);
  27.   rateErr     = IOReturn(256-21);
  28.   pitchErr    = IOReturn(256-22);
  29.   sexErr      = IOReturn(256-23);
  30.   modeErr     = IOReturn(256-24);
  31.   freqErr     = IOReturn(256-25);
  32.   volErr      = IOReturn(256-26);
  33.   dCentErr    = IOReturn(256-27);
  34.   centPhonErr = IOReturn(256-28);
  35.  
  36. TYPE
  37.   Sex              = (male,female,dummy=$1000);
  38.   PitchMode        = (natural,robotic,manual,dummy=$1000);
  39.   SpeakRate        = [40..400];
  40.   Pitch            = [65..320];
  41.   SampleFreq       = [5000..28000];
  42.   Volume           = [0..64];
  43.   Central          = [0..100];
  44.  
  45.   NarratorFlags    = (newIO,wordSync,sylableSync);
  46.   NarratorFlagSet  = SET OF NarratorFlags;
  47.  
  48.   IONarratorPtr    = POINTER TO IONarrator;
  49.   IONarrator       = RECORD OF IOStdReq
  50.                         rate         : SpeakRate;
  51.                         pitch        : Pitch;
  52.                         mode         : PitchMode;
  53.                         sex          : Sex;
  54.                         chMask       : ANYPTR;
  55.                         nmMask       : CARDINAL;
  56.                         pad1         : SHORTCARD;
  57.                         volume       : Volume;
  58.                         sampFreq     : SampleFreq;
  59.                         mouths       : BOOLEAN;
  60.                         chanMask     : SHORTCARD;
  61.                         numChan      : SHORTCARD;
  62.                         flags        : NarratorFlagSet;
  63.                         enthusiasm   : SHORTCARD;
  64.                         perturbation : SHORTCARD;
  65.                         f1adj,
  66.                         f2adj,
  67.                         f3adj        : SHORTINT;
  68.                         a1adj,
  69.                         a2adj,
  70.                         a3adj        : SHORTINT;
  71.                         articulate   : SHORTCARD;
  72.                         centralize   : SHORTCARD;
  73.                         centPhon     : SysStringPtr;
  74.                         aVBias       : SHORTINT;
  75.                         aFBias       : SHORTINT;
  76.                         priority     : SHORTINT;
  77.                         pad2         : SHORTINT;
  78.  
  79.                         width        : SHORTCARD;
  80.                         heigth       : SHORTCARD;
  81.                         shape        : SHORTCARD;
  82.                         sync         : NarratorFlagSet;
  83.                       END;
  84.  
  85.   NarratorTags      = TAGS OF StdTags;
  86.                         rate         : SpeakRate;
  87.                         pitch        : Pitch;
  88.                         mode         : PitchMode;
  89.                         sex          : Sex;
  90.                         volume       : Volume;
  91.                         sampFreq     : SampleFreq;
  92.                         mouths       : BOOLEAN;
  93.                         enthusiasm   : SHORTCARD;
  94.                         perturbation : SHORTCARD;
  95.                         f1adj        : SHORTINT;
  96.                         f2adj        : SHORTINT;
  97.                         f3adj        : SHORTINT;
  98.                         a1adj        : SHORTINT;
  99.                         a2adj        : SHORTINT;
  100.                         a3adj        : SHORTINT;
  101.                         articulate   : SHORTCARD;
  102.                         centralize   : SHORTCARD;
  103.                         centPhon     : SysStringPtr;
  104.                         aVBias       : SHORTINT;
  105.                         aFBias       : SHORTINT;
  106.                         priority     : SHORTINT;
  107.                       END;
  108.  
  109. PROCEDURE OpenNarrator(context  : ContextPtr:=NIL;
  110.                        tags     : LIST OF NarratorTags):IONarratorPtr;
  111.  
  112. PROCEDURE CloseNarrator(VAR  request : IONarratorPtr);
  113.  
  114. GROUP
  115.   ErrorGrp  = noMem,noAudLib,makeBad,unitErr,cantAlloc,
  116.               unimpl,noWrite,expunged,phonErr,rateErr,
  117.               pitchErr,sexErr,modeErr,freqErr,volErr,
  118.               dCentErr,centPhonErr;
  119.  
  120.   DeviceGrp = NarratorFlags,NarratorFlagSet,IONarratorPtr,
  121.               IONarrator,NarratorTags,OpenNarrator,CloseNarrator;
  122.  
  123.   All       = ErrorGrp,DeviceGrp;
  124.  
  125. END Narrator.
  126.