home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hypermid.sit / HyperMIDI / card_3831.txt < prev    next >
Text File  |  1988-02-23  |  8KB  |  240 lines
  1. -- card: 3831 from stack: in
  2. -- bmap block id: 5287
  3. -- flags: 0000
  4. -- background id: 2702
  5. -- name: 
  6. ----- HyperTalk script -----
  7. global radix
  8. on opencard
  9.   if hilite of card button "hex" is true then
  10.     put "hex" into radix
  11.   else
  12.     put empty into radix
  13.   end if
  14. end opencard
  15.  
  16.  
  17.  
  18. -- part 2 (field)
  19. -- low flags: 00
  20. -- high flags: 0007
  21. -- rect: left=165 top=75 right=293 bottom=471
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 4
  26. -- text size: 9
  27. -- style flags: 0
  28. -- line height: 12
  29. -- part name: Display
  30.  
  31.  
  32. -- part 3 (button)
  33. -- low flags: 00
  34. -- high flags: 8003
  35. -- rect: left=43 top=86 right=107 bottom=152
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Load Display
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   get GetFile("TEXT")
  47.   if it <> "" then
  48.     put it into filename
  49.     open file filename
  50.     read from file filename until ""
  51.     put it into card field "Display"
  52.     close file filename
  53.   end if
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 4 (button)
  59. -- low flags: 00
  60. -- high flags: 8003
  61. -- rect: left=44 top=109 right=129 bottom=150
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Save Display
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   get PutFile()
  73.   if it <> "" then
  74.     put it into filename
  75.     open file filename
  76.     write card field "Display" to file filename
  77.     close file filename
  78.   end if
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 6 (button)
  84. -- low flags: 00
  85. -- high flags: 8003
  86. -- rect: left=18 top=168 right=190 bottom=157
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: MIDI in to Display
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   global radix
  98.   put RxMIDI(radix,"all") after card field "Display"
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 7 (button)
  104. -- low flags: 00
  105. -- high flags: 8003
  106. -- rect: left=18 top=238 right=261 bottom=158
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: Flush MIDI Rx buffer
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   put RxMIDI("flush") into dummy    -- flush receive buffer
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 8 (button)
  123. -- low flags: 00
  124. -- high flags: 8003
  125. -- rect: left=18 top=265 right=287 bottom=159
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Clear Display
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   put empty into card field "Display"    -- clear the display field
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 9 (button)
  142. -- low flags: 00
  143. -- high flags: A005
  144. -- rect: left=113 top=149 right=168 bottom=164
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Hex
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   global radix
  156.   if hilite of me is true then
  157.     put "hex" into radix
  158.   else
  159.     put empty into radix
  160.   end if
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 10 (button)
  166. -- low flags: 00
  167. -- high flags: 8003
  168. -- rect: left=18 top=194 right=216 bottom=157
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Display to MIDI out
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   if hilite of card button "hex" is true then
  180.     TxMIDI "hex",card field "Display"
  181.   else
  182.     TxMIDI card field "Display"
  183.   end if
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 12 (button)
  189. -- low flags: 00
  190. -- high flags: 8003
  191. -- rect: left=313 top=49 right=71 bottom=471
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Decimal to Symbolic
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   put card field "Display" into junk
  203.   put convertmidi("symbolic",junk) into card field "Display"
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 13 (button)
  209. -- low flags: 00
  210. -- high flags: 8003
  211. -- rect: left=20 top=36 right=58 bottom=168
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Save Patch To File
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   get RxMIDI("flush")
  223.   answer "Initiate data dump, press OK when completed" with "OK"
  224.   if it <> "Cancel" then
  225.     put RxMIDI("all") into myBuf
  226.     get PutFile()
  227.     if it <> "" then
  228.       put it into filename
  229.       open file filename
  230.       write myBuf to file filename
  231.       close file filename
  232.     end if
  233.   end if
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part contents for card part 2
  239. ----- text -----
  240. 144 72 52 144 72 0 144 70 64 224 6 67 224 10 69 224 16 72 224 20 74 224 26 77 224 30 79 224 36 82 224 40 84 224 44 86 224 48 88 224 50 89 224 54 91 224 56 92 224 58 93 224 60 94 224 62 95 224 64 96 224 66 97 224 68 98 224 70 99 224 72 100 224 74 101 224 72 100 224 70 99 224 68 98 224 64 96 224 62 95 224 52 90 224 32 80 224 6 67 144 70 0 224 0 64 144 67 64 144 67 0 144 65 91 176 1 1 176 1 2 176 1 4 176 1 6 176 1 8 176 1 9 176 1 11 176 1 13 176 1 15 176 1 17 176 1 18 176 1 20 176 1 21 176 1 23 176 1 25 176 1 26 176 1 27 176 1 29 176 1 30 176 1 32 176 1 33 176 1 35 176 1 36 176 1 38 176 1 39 176 1 40 176 1 41 176 1 43 176 1 44 176 1 45 176 1 46 176 1 47 176 1 49 176 1 50 176 1 51 176 1 52 176 1 53 176 1 54 176 1 55 176 1 56 176 1 57 176 1 58 176 1 59 176 1 60 176 1 59 176 1 57 176 1 56 176 1 55 176 1 53 176 1 52 176 1 50 176 1 48 176 1 46 176 1 44 176 1 41 176 1 39 176 1 36 176 1 33 144 65 0 176 1 30 176 1 24 144 67 60 176 1 19 176 1 15 176 1 11 176 1 8 176 1 4 176 1 1 176 1 0 144 67 0 144 60 60 144 60 0 192 115 144 60 48 224 2 65 224 6 67 224 8 68 224 12 70 224 16 72 224 20 74 224 24 76 224 28 78 224 32 80 224 34 81 224 38 83 224 42 85 224 44 86 224 48 88 224 50 89 224 54 91 224 56 92 224 58 93 224 60 94 224 62 95 224 64 96 224 60 94 224 58 93 224 56 92 224 54 91 224 50 89 224 44 86 224 40 84 224 36 82 224 30 79 224 24 76 224 18 73 224 12 70 224 4 66 224 0 64 144 60 0 144 63 40 144 63 0 144 60 48 144 60 0 144 48 64 144 48 0 192 119 144 72 52 176 1 1 176 1 2 176 1 3 176 1 4 176 1 6 176 1 7 176 1 8 176 1 9 176 1 10 176 1 11 176 1 13 176 1 14 176 1 15 176 1 16 176 1 17 176 1 18 176 1 19 176 1 20 176 1 21 176 1 23 176 1 24 176 1 25 176 1 27 176 1 28 176 1 29 176 1 30 176 1 31 176 1 32 176 1 33 176 1 34 176 1 35 176 1 36 176 1 37 176 1 38 176 1 39 176 1 40 176 1 41 176 1 42 176 1 43 176 1 45 176 1 46 176 1 48 176 1 49 176 1 50 176 1 51 176 1 52 176 1 53 176 1 54 176 1 55 176 1 56 176 1 57 176 1 56 176 1 55 176 1 54 176 1 53 176 1 52 176 1 50 176 1 49 176 1 48 176 1 46 176 1 45 176 1 43 176 1 41 176 1 39 176 1 37 176 1 35 176 1 32 176 1 29 176 1 26 176 1 22 176 1 18 176 1 15 144 72 0 176 1 11 176 1 6 176 1 1 176 1 0 144 77 48 224 4 66 224 6 67 224 8 68 224 10 69 224 12 70 224 14 71 224 16 72 224 18 73 224 20 74 224 22 75 224 24 76 224 26 77 224 28 78 224 30 79 224 32 80 224 34 81 224 36 82 224 38 83 224 40 84 224 42 85 224 46 87 224 48 88 224 52 90 224 54 91 224 56 92 224 58 93 224 60 94 224 62 95 224 66 97 224 68 98 224 70 99 224 72 100 224 74 101 224 76 102 224 72 100 224 70 99 224 66 97 224 64 96 224 60 94 224 52 90 144 77 0 224 28 78 224 0 64 144 72 16 144 72 0 144 70 48 144 70 0 144 67 52 144 67 0 144 60 40 144 60 0