home *** CD-ROM | disk | FTP | other *** search
/ The Electronic Whole Earth Catalog / ElectronicWholeEarthCatalog.img / MUSIC / card_184053.txt < prev    next >
Text File  |  1989-02-14  |  6KB  |  305 lines
  1. -- card: 184053 from stack: in
  2. -- bmap block id: 274587
  3. -- flags: 0000
  4. -- background id: 5956
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- do not remove
  8. on openCard
  9.   initRadioButtons
  10.   pass openCard
  11. end openCard
  12.  
  13. on initRadioButtons
  14.   global radioBtnNum
  15.  
  16.   -- init radioBtnNum and DX7Voice
  17.   repeat with i = 1 to 4
  18.     put item i of "Organ 1,Organ 2,Funk Clav,Pluck Brass" into thisVoice
  19.     if hilite of btn thisVoice is true then
  20.       put number of btn thisVoice into radioBtnNum
  21.     end if
  22.   end repeat
  23.   lock screen
  24.   send mouseUp to btn radioBtnNum  -- init DX7voice
  25.   unlock screen
  26. end initRadioButtons
  27.  
  28. on selectVoice
  29.   global radioBtnNum, DX7voice
  30.  
  31.   -- take care of radio buttons
  32.   put number of target into newVoiceNum
  33.   if radioBtnNum is not empty then
  34.     set hilite of card button radioBtnNum to false
  35.   end if
  36.   set hilite of card button newVoiceNum to true
  37.   put newVoiceNum into radioBtnNum
  38.  
  39.   -- get DX7voice
  40.   repeat with i = 1 to 4
  41.     put item i of "Organ 1,Organ 2,Funk Clav,Pluck Brass" into thisVoice
  42.     if hilite of btn thisVoice is true then
  43.       put item i of "org 1 c,org 2 c,clav c4,brass c4" into DX7voice
  44.     end if
  45.   end repeat
  46. end selectVoice
  47.  
  48. on keyboardPress
  49.   global DX7voice
  50.  
  51.   get the clickloc
  52.   put item 1 of it into noteNum
  53.   put 1 + (noteNum - 71) DIV 13 into noteNum
  54.   -- put word noteNum of keymap into realNote
  55.   put word noteNum of ("C3 D3 E3 F3 G3 A3 B3 C4 D4 E4 F4 G4 A4 B4 C5" && "D5 E5 F5 G5 A5 B5 C6 D6 E6 F6 G6 A6 B6 C7") into realNote
  56.  
  57.   play DX7voice realnote &"W"
  58. end keyboardPress
  59.  
  60.  
  61.  
  62. -- part 1 (field)
  63. -- low flags: 01
  64. -- high flags: 0004
  65. -- rect: left=74 top=93 right=157 bottom=165
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 3
  70. -- text size: 10
  71. -- style flags: 0
  72. -- line height: 13
  73. -- part name: theCaption
  74.  
  75.  
  76. -- part 10 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=123 top=222 right=299 bottom=397
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Keyboard
  88. ----- HyperTalk script -----
  89. on mouseDown
  90.   keyboardPress
  91. end mouseDown
  92.  
  93. on mouseUp
  94. end mouseUp
  95.  
  96.  
  97. -- part 11 (button)
  98. -- low flags: 00
  99. -- high flags: 8006
  100. -- rect: left=297 top=129 right=151 bottom=397
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Pluck Brass
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   selectVoice
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 12 (button)
  117. -- low flags: 00
  118. -- high flags: 8006
  119. -- rect: left=297 top=100 right=122 bottom=397
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Funk Clav
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   selectVoice
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 13 (button)
  136. -- low flags: 00
  137. -- high flags: C006
  138. -- rect: left=198 top=100 right=122 bottom=285
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Organ 1
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   selectVoice
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 14 (button)
  155. -- low flags: 00
  156. -- high flags: 8006
  157. -- rect: left=198 top=129 right=151 bottom=284
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Organ 2
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   selectVoice
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 75 (field)
  174. -- low flags: 01
  175. -- high flags: 0002
  176. -- rect: left=345 top=22 right=41 bottom=463
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: theHeading
  185. ----- HyperTalk script -----
  186. on mouseDown
  187.   popMenuArticle
  188. end mouseDown
  189.  
  190. -- eat the mouseUp
  191. on mouseUp
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 76 (field)
  197. -- low flags: 01
  198. -- high flags: 0000
  199. -- rect: left=354 top=318 right=340 bottom=456
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 3
  204. -- text size: 9
  205. -- style flags: 0
  206. -- line height: 15
  207. -- part name: thePage
  208.  
  209.  
  210. -- part 77 (button)
  211. -- low flags: 00
  212. -- high flags: 0000
  213. -- rect: left=353 top=317 right=338 bottom=386
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 1014 / 1014
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: Up
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   doArticleUpButton
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 78 (button)
  230. -- low flags: 00
  231. -- high flags: 0000
  232. -- rect: left=423 top=317 right=338 bottom=453
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 1013 / 1013
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Down
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   doArticleDownButton
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part contents for background part 5
  249. ----- text -----
  250. Picture
  251.  
  252. -- part contents for background part 25
  253. ----- text -----
  254. ‚Ä¢ WHOLE EARTH
  255.  ‚Ä¢ MUSIC
  256.   ‚Ä¢ PLAYING  
  257.    ‚Ä¢ Instruments
  258.  
  259. -- part contents for background part 12
  260. ----- text -----
  261. Yamaha DX-7 II
  262.  
  263. -- part contents for background part 26
  264. ----- text -----
  265. 14111140
  266.  
  267. -- part contents for card part 1
  268. ----- text -----
  269.  
  270. Select a voice, click on the keyboard
  271.  
  272. -- part contents for card part 75
  273. ----- text -----
  274. Menu
  275.  
  276. -- part contents for card part 76
  277. ----- text -----
  278. 4 of 6
  279.  
  280. -- part contents for background part 34
  281. ----- text -----
  282. card id 184188
  283.  
  284. -- part contents for background part 35
  285. ----- text -----
  286. card id 286305
  287.  
  288. -- part contents for background part 36
  289. ----- text -----
  290. stack "WHOLE EARTH"
  291. stack "MUSIC"
  292. card id 105944
  293. card id 279761
  294.  
  295. -- part contents for background part 31
  296. ----- text -----
  297. card id 279761
  298.  
  299. -- part contents for background part 32
  300. ----- text -----
  301. card id 188476
  302.  
  303. -- part contents for background part 33
  304. ----- text -----
  305. card id 169031