home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hypermid.sit / HyperMIDI / card_7027.txt < prev    next >
Text File  |  1988-02-23  |  7KB  |  185 lines
  1. -- card: 7027 from stack: in
  2. -- bmap block id: 4626
  3. -- flags: 0000
  4. -- background id: 2702
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   -- initial settings are the same as DX7 "INIT VOICE"
  9.   -- operator output levels
  10.   get NewSlider("240,60,264,85",99,0,99,"240 67 16 0 121 x 247")
  11.   get NewSlider("240,100,264,125",0,0,99,"240 67 16 0 100 x 247")
  12.   get NewSlider("240,140,264,165",0,0,99,"240 67 16 0 79 x 247")
  13.   get NewSlider("240,180,264,205",0,0,99,"240 67 16 0 58 x 247")
  14.   get NewSlider("240,220,264,245",0,0,99,"240 67 16 0 37 x 247")
  15.   get NewSlider("240,260,264,285",0,0,99,"240 67 16 0 16 x 247")
  16.   --- envelope #1
  17.   get NewSlider("36,65,56,132",99,0,99,"240 67 16 0 105 x 247")
  18.   get NewSlider("60,65,80,132",99,0,99,"240 67 16 0 106 x 247")
  19.   get NewSlider("84,65,104,132",99,0,99,"240 67 16 0 107 x 247")
  20.   get NewSlider("108,65,128,132",99,0,99,"240 67 16 0 108 x 247")
  21.   get NewSlider("132,65,152,132",99,0,99,"240 67 16 0 109 x 247")
  22.   get NewSlider("156,65,176,132",99,0,99,"240 67 16 0 110 x 247")
  23.   get NewSlider("180,65,200,132",99,0,99,"240 67 16 0 111 x 247")
  24.   get NewSlider("204,65,224,132",0,0,99,"240 67 16 0 112 x 247")
  25.   --- envelope #2
  26.   get NewSlider("36,153,56,220",99,0,99,"240 67 16 0 84 x 247")
  27.   get NewSlider("60,153,80,220",99,0,99,"240 67 16 0 85 x 247")
  28.   get NewSlider("84,153,104,220",99,0,99,"240 67 16 0 86 x 247")
  29.   get NewSlider("108,153,128,220",99,0,99,"240 67 16 0 87 x 247")
  30.   get NewSlider("132,153,152,220",99,0,99,"240 67 16 0 88 x 247")
  31.   get NewSlider("156,153,176,220",99,0,99,"240 67 16 0 89 x 247")
  32.   get NewSlider("180,153,200,220",99,0,99,"240 67 16 0 90 x 247")
  33.   get NewSlider("204,153,224,220",0,0,99,"240 67 16 0 91 x 247")
  34.   --- envelope #3
  35.   get NewSlider("36,241,56,308",99,0,99,"240 67 16 0 63 x 247")
  36.   get NewSlider("60,241,80,308",99,0,99,"240 67 16 0 64 x 247")
  37.   get NewSlider("84,241,104,308",99,0,99,"240 67 16 0 65 x 247")
  38.   get NewSlider("108,241,128,308",99,0,99,"240 67 16 0 66 x 247")
  39.   get NewSlider("132,241,152,308",99,0,99,"240 67 16 0 67 x 247")
  40.   get NewSlider("156,241,176,308",99,0,99,"240 67 16 0 68 x 247")
  41.   get NewSlider("180,241,200,308",99,0,99,"240 67 16 0 69 x 247")
  42.   get NewSlider("204,241,224,308",0,0,99,"240 67 16 0 70 x 247")
  43.   --- envelope #4
  44.   get NewSlider("288,65,308,132",99,0,99,"240 67 16 0 42 x 247")
  45.   get NewSlider("312,65,332,132",99,0,99,"240 67 16 0 43 x 247")
  46.   get NewSlider("336,65,356,132",99,0,99,"240 67 16 0 44 x 247")
  47.   get NewSlider("360,65,380,132",99,0,99,"240 67 16 0 45 x 247")
  48.   get NewSlider("384,65,404,132",99,0,99,"240 67 16 0 46 x 247")
  49.   get NewSlider("408,65,428,132",99,0,99,"240 67 16 0 47 x 247")
  50.   get NewSlider("432,65,452,132",99,0,99,"240 67 16 0 48 x 247")
  51.   get NewSlider("456,65,476,132",0,0,99,"240 67 16 0 49 x 247")
  52.   --- envelope #5
  53.   get NewSlider("288,153,308,220",99,0,99,"240 67 16 0 21 x 247")
  54.   get NewSlider("312,153,332,220",99,0,99,"240 67 16 0 22 x 247")
  55.   get NewSlider("336,153,356,220",99,0,99,"240 67 16 0 23 x 247")
  56.   get NewSlider("360,153,380,220",99,0,99,"240 67 16 0 24 x 247")
  57.   get NewSlider("384,153,404,220",99,0,99,"240 67 16 0 25 x 247")
  58.   get NewSlider("408,153,428,220",99,0,99,"240 67 16 0 26 x 247")
  59.   get NewSlider("432,153,452,220",99,0,99,"240 67 16 0 27 x 247")
  60.   get NewSlider("456,153,476,220",0,0,99,"240 67 16 0 28 x 247")
  61.   --- envelope #6
  62.   get NewSlider("288,241,308,308",99,0,99,"240 67 16 0 0 x 247")
  63.   get NewSlider("312,241,332,308",99,0,99,"240 67 16 0 1 x 247")
  64.   get NewSlider("336,241,356,308",99,0,99,"240 67 16 0 2 x 247")
  65.   get NewSlider("360,241,380,308",99,0,99,"240 67 16 0 3 x 247")
  66.   get NewSlider("384,241,404,308",99,0,99,"240 67 16 0 4 x 247")
  67.   get NewSlider("408,241,428,308",99,0,99,"240 67 16 0 5 x 247")
  68.   get NewSlider("432,241,452,308",99,0,99,"240 67 16 0 6 x 247")
  69.   get NewSlider("456,241,476,308",0,0,99,"240 67 16 0 7 x 247")
  70.   UpdateSlider  -- use SetSlider if you want to send initial settings
  71. end openCard
  72.  
  73. on mouseDown
  74.   put FindSlider(the mouseLoc) into theSlider
  75.   if theSlider <> 0 then
  76.     get TrackSlider(theSlider)
  77.   end if
  78. end mouseDown
  79.  
  80. on closeCard
  81.   disposeSlider
  82.   hide card field "help"
  83. end closeCard
  84.  
  85.  
  86.  
  87. -- part 123 (field)
  88. -- low flags: 01
  89. -- high flags: 0001
  90. -- rect: left=190 top=41 right=61 bottom=307
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 3
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: 
  99.  
  100.  
  101. -- part 118 (button)
  102. -- low flags: 00
  103. -- high flags: 0000
  104. -- rect: left=196 top=31 right=61 bottom=227
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 32462 / 32462
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: help
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   show card field "help"
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 120 (button)
  121. -- low flags: 00
  122. -- high flags: 8003
  123. -- rect: left=274 top=31 right=53 bottom=360
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Redraw
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   UpdateSlider
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 124 (button)
  140. -- low flags: 00
  141. -- high flags: 8003
  142. -- rect: left=375 top=31 right=53 bottom=475
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Send Settings
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   SetSlider
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 117 (field)
  159. -- low flags: 81
  160. -- high flags: 2004
  161. -- rect: left=32 top=31 right=288 bottom=475
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 0
  165. -- font id: 3
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: help
  170. ----- HyperTalk script -----
  171. on mousedown
  172.   set visible of me to false
  173.   UpdateSlider
  174. end mousedown
  175.  
  176.  
  177. -- part contents for card part 117
  178. ----- text -----
  179. DX7 Envelopes:
  180.  
  181. Full envelope control for all 6 DX7 operators, and output level for each operator.  The sliders are initialized at the same settings as the DX7's "INIT VOICE", but do not send their initial settings.
  182.  
  183. Clicking on a sliders will send its setting to the DX7.  You can send all slider settings to the DX7 with the "Send Settings" button.  If you want this panel to initialize the DX7 to its initial settings automatically, substitute a SetSlider command for the GetSlider command in the card script.
  184.  
  185. With a bit more code, you could get the envelope and output level settings from the DX7 and set the sliders up to match.