home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hypermac.sit / HyperMacintalk / card_13265.txt < prev    next >
Text File  |  1987-09-30  |  2KB  |  75 lines

  1. -- card: 13265 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 7110
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0004
  11. -- rect: left=16 top=94 right=180 bottom=498
  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: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   repeat with i = 1 to number of lines in card field 1
  23.     do line i of card field 1
  24.   end repeat
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 2 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=253 top=193 right=205 bottom=339
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: 
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   push this card
  44.   visual effect iris open
  45.   go to card id 6265
  46. end mouseUp
  47.  
  48.  
  49.  
  50.  
  51. -- part contents for background part 7
  52. ----- text -----
  53. How Macintalk Works (continued)
  54.  
  55. -- part contents for background part 8
  56. ----- text -----
  57. The command SetRate allows you to set the rate of speech. The initial rate is
  58. 150 words/minute, but it can be set to any value between 85 and 425. Try it:
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67. Finally, there is a utility function called LowerToUpperΓÇá, for use with the command SayPhonetic. SayPhonetic is quite picky about the format of the phonetic strings, and in particular, all letters must be in upper case. This can be quite a pain at times, so LowerToUpper was provided - it takes a string as an argument, and returns the same string with any lower case letters converted to upper case letters. This could have been implemented as a function written in HyperTalk, but this XFCN is much faster.
  68.  
  69. -- part contents for card part 1
  70. ----- text -----
  71. SetRate 85
  72. Say "Now I am talking quite slowly."
  73. SetRate 300
  74. Say "Now I am talking quite rapidly."
  75. SetRate 150 -- Restore normal speed