home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hypermid.sit / HyperMIDI / card_3055.txt < prev    next >
Text File  |  1988-02-23  |  7KB  |  381 lines
  1. -- card: 3055 from stack: in
  2. -- bmap block id: 4518
  3. -- flags: 0000
  4. -- background id: 2702
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global noUpdate
  9.  
  10.   -- Here we use the buttons to setup and to find our sliders.
  11.   -- If you wish, you can rearrange the slider on the card by
  12.   -- moving the "Pitch" and "Mod" buttons.  Then, when you close
  13.   -- and re-open the card, the sliders will be moved also.
  14.   global PitchSlider, ModSlider
  15.   put NewSlider(rect of button "pitch",64,0,127,"224 x x") into PitchSlider
  16.   put NewSlider(rect of button "Mod",0,0,127,"176 1 x") into ModSlider
  17.  
  18.   -- don't draw sliders if About message is displayed:
  19.   if noUpdate <> true then
  20.     SetSlider  -- we make sure the synth is set the same as our sliders
  21.   end if
  22. end openCard
  23.  
  24. on closeCard
  25.   disposeSlider
  26.   -- or, we could have said:
  27.   --   global PitchSlider, ModSlider
  28.   --   DisposeSlider(PitchSlider)
  29.   --   DisposeSlider(ModSlider)
  30. end closeCard
  31.  
  32.  
  33.  
  34. -- part 3 (button)
  35. -- low flags: 00
  36. -- high flags: 8003
  37. -- rect: left=126 top=294 right=316 bottom=226
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Flush buffer
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   put RxMIDI("flush") into dummy     -- flushes receive buffer
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 4 (field)
  54. -- low flags: 00
  55. -- high flags: 0007
  56. -- rect: left=152 top=176 right=273 bottom=458
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 4
  61. -- text size: 9
  62. -- style flags: 0
  63. -- line height: 12
  64. -- part name: Receive
  65.  
  66.  
  67. -- part 5 (button)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=71 top=95 right=172 bottom=436
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Keyboard
  79. ----- HyperTalk script -----
  80. on mouseDown
  81.   global keymap
  82.   global realNote
  83.   get the clickloc
  84.   put item 1 of it into noteNum
  85.   put 1 + (noteNum - 71) DIV 13 into noteNum
  86.   put word noteNum of keymap into realNote
  87.   TxMIDI "hex",90,realNote,60 -- synth must be MIDI ch #1 or OMNI
  88. end mouseDown
  89.  
  90. on mouseUp
  91.   global realNote
  92.   TxMIDI "hex",80,realNote,60
  93. end mouseUp
  94.  
  95.  
  96. -- part 6 (button)
  97. -- low flags: 00
  98. -- high flags: 8003
  99. -- rect: left=285 top=294 right=316 bottom=385
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Clear Display
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   put empty into card field "Receive"    -- clear the display field
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 11 (button)
  116. -- low flags: 00
  117. -- high flags: 8003
  118. -- rect: left=20 top=294 right=316 bottom=120
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Display buffer
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   put RxMIDI("all") after card field "Receive"
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 14 (button)
  135. -- low flags: 00
  136. -- high flags: 8003
  137. -- rect: left=387 top=294 right=316 bottom=487
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Symbolic
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   put card field "receive" into junk
  149.   put convertmidi("symbolic",junk) into card field "receive"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 16 (button)
  155. -- low flags: 00
  156. -- high flags: 0001
  157. -- rect: left=305 top=28 right=52 bottom=336
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 2478 / 2478
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: About
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   global noUpdate
  169.   put true into noUpdate  -- don't draw sliders if About message is out
  170.   Show card field "About"
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 19 (button)
  176. -- low flags: 00
  177. -- high flags: 0002
  178. -- rect: left=76 top=183 right=260 bottom=101
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Pitch
  187. ----- HyperTalk script -----
  188. on mouseDown
  189.   global PitchSlider
  190.   get TrackSlider(PitchSlider)
  191. end mouseDown
  192.  
  193.  
  194.  
  195. -- part 20 (button)
  196. -- low flags: 00
  197. -- high flags: 0002
  198. -- rect: left=113 top=183 right=260 bottom=138
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Mod
  207. ----- HyperTalk script -----
  208. on mouseDown
  209.   global ModSlider
  210.   get TrackSlider(ModSlider)
  211. end mouseDown
  212.  
  213.  
  214.  
  215. -- part 18 (field)
  216. -- low flags: 01
  217. -- high flags: 2004
  218. -- rect: left=37 top=62 right=303 bottom=473
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 3
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: About
  227. ----- HyperTalk script -----
  228. on MouseUp
  229.   global noUpdate
  230.   put false into noUpdate
  231.   set visible of me to false
  232.   UpdateSlider
  233. end mouseUp
  234.  
  235.  
  236.  
  237. -- part contents for card part 18
  238. ----- text -----
  239.  
  240. HyperMIDI v1.0, ┬⌐ 1988, Nigel J. Redmon
  241.  
  242. MAKE A COPY OF THIS STACK BEFORE MESSING WITH IT
  243.  
  244. HyperMIDI is shareware.  Please read the accompanying documentation.  If you wish to keep HyperMIDI, please send $30 to become a licensed user to:
  245.  
  246. EarLevel Engineering
  247. 21810 Barbara Street
  248. Torrance, CA 90503
  249.  
  250. CompuServe: 72736,753      PAN: NIGELR     Delphi: NREDMON
  251.  
  252.  
  253.  
  254. -- part contents for card part 4
  255. ----- text -----
  256. NON:1 72 52
  257. NON:1 72 0
  258. NON:1 70 64
  259. PWL:1 6 67
  260. PWL:1 10 69
  261. PWL:1 16 72
  262. PWL:1 20 74
  263. PWL:1 26 77
  264. PWL:1 30 79
  265. PWL:1 36 82
  266. PWL:1 40 84
  267. PWL:1 44 86
  268. PWL:1 48 88
  269. PWL:1 50 89
  270. PWL:1 54 91
  271. PWL:1 56 92
  272. PWL:1 58 93
  273. PWL:1 60 94
  274. PWL:1 62 95
  275. PWL:1 64 96
  276. PWL:1 66 97
  277. PWL:1 68 98
  278. PWL:1 70 99
  279. PWL:1 72 100
  280. PWL:1 74 101
  281. PWL:1 72 100
  282. PWL:1 70 99
  283. PWL:1 68 98
  284. PWL:1 64 96
  285. PWL:1 62 95
  286. PWL:1 52 90
  287. PWL:1 32 80
  288. PWL:1 6 67
  289. NON:1 70 0
  290. PWL:1 0 64
  291. NON:1 67 64
  292. NON:1 67 0
  293. NON:1 65 91
  294. CCH:1 1 1
  295. CCH:1 1 2
  296. CCH:1 1 4
  297. CCH:1 1 6
  298. CCH:1 1 8
  299. CCH:1 1 9
  300. CCH:1 1 11
  301. CCH:1 1 13
  302. CCH:1 1 15
  303. CCH:1 1 17
  304. CCH:1 1 18
  305. CCH:1 1 20
  306. CCH:1 1 21
  307. CCH:1 1 23
  308. CCH:1 1 25
  309. CCH:1 1 26
  310. CCH:1 1 27
  311. CCH:1 1 29
  312. CCH:1 1 30
  313. CCH:1 1 32
  314. CCH:1 1 33
  315. CCH:1 1 35
  316. CCH:1 1 36
  317. CCH:1 1 38
  318. CCH:1 1 39
  319. CCH:1 1 40
  320. CCH:1 1 41
  321. CCH:1 1 43
  322. CCH:1 1 44
  323. CCH:1 1 45
  324. CCH:1 1 46
  325. CCH:1 1 47
  326. CCH:1 1 49
  327. CCH:1 1 50
  328. CCH:1 1 51
  329. CCH:1 1 52
  330. CCH:1 1 53
  331. CCH:1 1 54
  332. CCH:1 1 55
  333. CCH:1 1 56
  334. CCH:1 1 57
  335. CCH:1 1 58
  336. CCH:1 1 59
  337. CCH:1 1 60
  338. CCH:1 1 59
  339. CCH:1 1 57
  340. CCH:1 1 56
  341. CCH:1 1 55
  342. CCH:1 1 53
  343. CCH:1 1 52
  344. CCH:1 1 50
  345. CCH:1 1 48
  346. CCH:1 1 46
  347. CCH:1 1 44
  348. CCH:1 1 41
  349. CCH:1 1 39
  350. CCH:1 1 36
  351. CCH:1 1 33
  352. NON:1 65 0
  353. CCH:1 1 30
  354. CCH:1 1 24
  355. NON:1 67 60
  356. CCH:1 1 19
  357. CCH:1 1 15
  358. CCH:1 1 11
  359. CCH:1 1 8
  360. CCH:1 1 4
  361. CCH:1 1 1
  362. CCH:1 1 0
  363. NON:1 67 0
  364. NON:1 60 60
  365. NON:1 60 0
  366. PCH:1 115
  367. NON:1 60 48
  368. PWL:1 2 65
  369. PWL:1 6 67
  370. PWL:1 8 68
  371. PWL:1 12 70
  372. PWL:1 16 72
  373. PWL:1 20 74
  374. PWL:1 24 76
  375. PWL:1 28 78
  376. PWL:1 32 80
  377. PWL:1 34 81
  378. PWL:1 38 83
  379. PWL:1 42 85
  380. PWL:1 44 86
  381.