home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / system / Narrator.st < prev    next >
Encoding:
Text File  |  2001-02-28  |  4.5 KB  |  150 lines
  1. " ----------------------------------------------------------------------"
  2. " Narrator Class is derived from abstract Device Class.                 "
  3.  
  4. "  WARNING:  You should know what you're doing to the Amiga OS before   "
  5. "            messing with this Class, or any other System Class!        " 
  6.  
  7. " This class is a Singleton Class, meaning there can be only one 
  8.   narrator per AmigaTalk program (what would more than one narrator
  9.   talking at the same time sound like, anyway?)
  10. "
  11. " ----------------------------------------------------------------------"
  12.  
  13. Class Narrator :Device ! uniqueInstance !
  14. [
  15.   close
  16.       <primitive 230 0>
  17. |
  18.   privateOpen
  19.       "Use new method instead."
  20.       ^ <primitive 230 1>
  21. |
  22.   setVolume: newSpeakingVolume
  23.       "Range:  0 to 64 (max)"
  24.       ^ <primitive 230 2 newSpeakingVolume>
  25. | 
  26.   setSex: newSpeakerSex
  27.       "Female = 0, & Male = 1"
  28.       ^ <primitive 230 3 newSpeakerSex>
  29. | 
  30.   setPitch: newSpeakingPitch
  31.       "Range:  65 to 320Hz"
  32.       ^ <primitive 230 4 newSpeakingPitch>
  33. |
  34.   setMode: newModeString
  35.       "valid string settings are: robotic, natural & manual"
  36.       ^ <primitive 230 5 newModeString>
  37. |
  38.   setRate: newSpeakingRate
  39.       "Range: 40 to 400 words/minute"
  40.       ^ <primitive 230 6 newSpeakingRate>
  41. |
  42.   setFormant1: percentDeviation 
  43.       "Range: -100 to 100 in steps of 5, Default = 0"
  44.       ^ <primitive 230 7 1 percentDeviation>
  45. |
  46.   setFormant2: percentDeviation 
  47.       "Range: -100 to 100 in steps of 5, Default = 0"
  48.       ^ <primitive 230 7 2 percentDeviation>
  49. |
  50.   setFormant3: percentDeviation 
  51.       "Range: -100 to 100 in steps of 5, Default = 0"
  52.       ^ <primitive 230 7 3 percentDeviation>
  53. | 
  54.   setFormant1Amplitude: newAmplitude
  55.       "RANGE: 31 to -32 dB."
  56.       ^ <primitive 230 8 1 newAmplitude>
  57. | 
  58.   setFormant2Amplitude: newAmplitude
  59.       "RANGE: 31 to -32 dB."
  60.       ^ <primitive 230 8 2 newAmplitude>
  61. | 
  62.   setFormant3Amplitude: newAmplitude
  63.       "RANGE: 31 to -32 dB."
  64.       ^ <primitive 230 8 3 newAmplitude>
  65. |
  66.   setEnthusiasm: aFloat
  67.       "From 1/32 to 32/32 only (32/32 = default)"
  68.       ^ <primitive 230 9 aFloat>
  69. |
  70.   setPriority: newSpeakingPriority
  71.       "Range: -128 to 127, Default = 100"
  72.       ^ <primitive 230 10 newSpeakingPriority>
  73. | 
  74.   setPitchModulation: voiceQuiver
  75.       "Range: 0 to 255"
  76.       ^ <primitive 230 11 voiceQuiver>
  77. | 
  78.   setArticulation: newPercentArticulation
  79.       "Set amount of slurring of words.  Range:  0 to 255% (max)"
  80.       ^ <primitive 230 12 newPercentArticulation>
  81. | 
  82.   setPhoneme: phonemeString
  83.       "Used with setCentralizeValue: to change the accent of Narrator."
  84.  
  85.       "Valid strings are:"
  86.       
  87.       "IY  long  e as in beet,   eat.
  88.        IH  short i as in bit,    in.
  89.        EH  short e as in bet,    end.
  90.        AE  short a as in bat,    ad.
  91.        AA  short o as in bottle, on.
  92.        AH  short u as in but,    up.
  93.        AO  short a as in ball,   awl.
  94.        OW  long  o as in boat,   own.     (diphthong)
  95.        UH  short u as in book,   soot.
  96.        ER  short i as in bird,   early.
  97.        UW  long  u as in brew,   boolean. (diphthong)"
  98.  
  99.       "No checking is performed on your string, so get it right!" 
  100.  
  101.       ^ <primitive 230 13 phonemeString>
  102. | 
  103.   setCentralizeValue: newCentralizePercent
  104.       "Used with setPhoneme: to change the accent of Narrator."
  105.       "Range: 0 to 100%"
  106.       ^ <primitive 230 14 newCentralizePercent>
  107. | 
  108.   setFlags: newFlags 
  109.       "NDF_NEWIORB = 1, NDF_WORDSYNC = 2, NDF_SYLSYNC = 4"
  110.       ^ <primitive 230 15 newFlags>
  111. | 
  112.   setVoicingAmplitude: newAVBias  
  113.       "RANGE: 31 to -32 dB."
  114.       ^ <primitive 230 16 newAVBias>
  115. | 
  116.   setFricationAmplitude: newAFBias 
  117.       "RANGE: 31 to -32 dB."
  118.       ^ <primitive 230 17 newAFBias>
  119. | 
  120.   speak: normalString
  121.       ^ <primitive 230 18 normalString>
  122. | 
  123.   speakPhonetics: phoneticString
  124.       ^ <primitive 230 19 phoneticString>
  125. | 
  126.   translateText: aString
  127.       "Returns a Phonetic string representation of aString"
  128.       ^ <primitive 230 20 aString>
  129. |
  130.   new: aValue
  131.       'Cannot use new: method on Narrator class!' print.
  132.       ^ nil
  133. |
  134.   privateSetup ! check !
  135.       (uniqueInstance isNil)
  136.          ifTrue: [ check <- (self privateOpen).
  137.                    (check = 0)
  138.                       ifTrue:  [ uniqueInstance <- 'MyNarrator'.
  139.                                  ^ self
  140.                                ]
  141.                       ifFalse: [ 'Problem opening Narrator:' print.
  142.                                  <primitive 230 21 check> print.
  143.                                  ^ uniqueInstance <- nil
  144.                                ] 
  145.                  ]
  146. |
  147.   new 
  148.       ^ (self privateSetup)
  149. ]
  150.