home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hypermac.sit / HyperMacintalk / card_11310.txt < prev    next >
Text File  |  1987-09-30  |  2KB  |  103 lines
  1. -- card: 11310 from stack: in
  2. -- bmap block id: 12203
  3. -- flags: 0000
  4. -- background id: 11094
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=36 top=90 right=250 bottom=279
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=285 top=90 right=275 bottom=479
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: 
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=33 top=280 right=319 bottom=480
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 2
  44. -- text size: 10
  45. -- style flags: 0
  46. -- line height: 13
  47. -- part name: 
  48.  
  49.  
  50. -- part 4 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=450 top=34 right=61 bottom=478
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 1012 / 1012
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Return
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   visual effect dissolve fast
  65.   pop card
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part contents for card part 1
  71. ----- text -----
  72. SpeechOn(ExceptionsFile,theSpeech)
  73.  
  74. SpeechOff(theSpeech)
  75.  
  76. Macintalk(theSpeech,Phonemes)
  77.  
  78. Reader(theSpeech,EnglishPtr,InputLength,PhoneticOutput)
  79.  
  80. SpeechPitch(theSpeech,thePitch,theMode)
  81.  
  82. SpeechRate(theSpeech,theRate)
  83.  
  84. -- part contents for card part 2
  85. ----- text -----
  86. TurnSpeechOn exceptionFile
  87.  
  88. TurnSpeechOff
  89.  
  90. SayPhonetic phoneticString
  91.  
  92. Phonemes(theEnglishString)
  93. -- returns phonetic string
  94.  
  95. SetPitch thePitch, theMode
  96.  
  97. SetRate theRate
  98.  
  99. Say theEnglishString
  100.  
  101. -- part contents for card part 3
  102. ----- text -----
  103. The HyperTalk command ΓÇÿSayΓÇÖ has no single equivalent among the Macintalk procedures, but it is directly equivalent to a call to Reader followed by a call to Macintalk.