-- card: 7027 from stack: in
-- bmap block id: 4626
-- flags: 0000
-- background id: 2702
-- name: 
----- HyperTalk script -----
on openCard
  -- initial settings are the same as DX7 "INIT VOICE"
  -- operator output levels
  get NewSlider("240,60,264,85",99,0,99,"240 67 16 0 121 x 247")
  get NewSlider("240,100,264,125",0,0,99,"240 67 16 0 100 x 247")
  get NewSlider("240,140,264,165",0,0,99,"240 67 16 0 79 x 247")
  get NewSlider("240,180,264,205",0,0,99,"240 67 16 0 58 x 247")
  get NewSlider("240,220,264,245",0,0,99,"240 67 16 0 37 x 247")
  get NewSlider("240,260,264,285",0,0,99,"240 67 16 0 16 x 247")
  --- envelope #1
  get NewSlider("36,65,56,132",99,0,99,"240 67 16 0 105 x 247")
  get NewSlider("60,65,80,132",99,0,99,"240 67 16 0 106 x 247")
  get NewSlider("84,65,104,132",99,0,99,"240 67 16 0 107 x 247")
  get NewSlider("108,65,128,132",99,0,99,"240 67 16 0 108 x 247")
  get NewSlider("132,65,152,132",99,0,99,"240 67 16 0 109 x 247")
  get NewSlider("156,65,176,132",99,0,99,"240 67 16 0 110 x 247")
  get NewSlider("180,65,200,132",99,0,99,"240 67 16 0 111 x 247")
  get NewSlider("204,65,224,132",0,0,99,"240 67 16 0 112 x 247")
  --- envelope #2
  get NewSlider("36,153,56,220",99,0,99,"240 67 16 0 84 x 247")
  get NewSlider("60,153,80,220",99,0,99,"240 67 16 0 85 x 247")
  get NewSlider("84,153,104,220",99,0,99,"240 67 16 0 86 x 247")
  get NewSlider("108,153,128,220",99,0,99,"240 67 16 0 87 x 247")
  get NewSlider("132,153,152,220",99,0,99,"240 67 16 0 88 x 247")
  get NewSlider("156,153,176,220",99,0,99,"240 67 16 0 89 x 247")
  get NewSlider("180,153,200,220",99,0,99,"240 67 16 0 90 x 247")
  get NewSlider("204,153,224,220",0,0,99,"240 67 16 0 91 x 247")
  --- envelope #3
  get NewSlider("36,241,56,308",99,0,99,"240 67 16 0 63 x 247")
  get NewSlider("60,241,80,308",99,0,99,"240 67 16 0 64 x 247")
  get NewSlider("84,241,104,308",99,0,99,"240 67 16 0 65 x 247")
  get NewSlider("108,241,128,308",99,0,99,"240 67 16 0 66 x 247")
  get NewSlider("132,241,152,308",99,0,99,"240 67 16 0 67 x 247")
  get NewSlider("156,241,176,308",99,0,99,"240 67 16 0 68 x 247")
  get NewSlider("180,241,200,308",99,0,99,"240 67 16 0 69 x 247")
  get NewSlider("204,241,224,308",0,0,99,"240 67 16 0 70 x 247")
  --- envelope #4
  get NewSlider("288,65,308,132",99,0,99,"240 67 16 0 42 x 247")
  get NewSlider("312,65,332,132",99,0,99,"240 67 16 0 43 x 247")
  get NewSlider("336,65,356,132",99,0,99,"240 67 16 0 44 x 247")
  get NewSlider("360,65,380,132",99,0,99,"240 67 16 0 45 x 247")
  get NewSlider("384,65,404,132",99,0,99,"240 67 16 0 46 x 247")
  get NewSlider("408,65,428,132",99,0,99,"240 67 16 0 47 x 247")
  get NewSlider("432,65,452,132",99,0,99,"240 67 16 0 48 x 247")
  get NewSlider("456,65,476,132",0,0,99,"240 67 16 0 49 x 247")
  --- envelope #5
  get NewSlider("288,153,308,220",99,0,99,"240 67 16 0 21 x 247")
  get NewSlider("312,153,332,220",99,0,99,"240 67 16 0 22 x 247")
  get NewSlider("336,153,356,220",99,0,99,"240 67 16 0 23 x 247")
  get NewSlider("360,153,380,220",99,0,99,"240 67 16 0 24 x 247")
  get NewSlider("384,153,404,220",99,0,99,"240 67 16 0 25 x 247")
  get NewSlider("408,153,428,220",99,0,99,"240 67 16 0 26 x 247")
  get NewSlider("432,153,452,220",99,0,99,"240 67 16 0 27 x 247")
  get NewSlider("456,153,476,220",0,0,99,"240 67 16 0 28 x 247")
  --- envelope #6
  get NewSlider("288,241,308,308",99,0,99,"240 67 16 0 0 x 247")
  get NewSlider("312,241,332,308",99,0,99,"240 67 16 0 1 x 247")
  get NewSlider("336,241,356,308",99,0,99,"240 67 16 0 2 x 247")
  get NewSlider("360,241,380,308",99,0,99,"240 67 16 0 3 x 247")
  get NewSlider("384,241,404,308",99,0,99,"240 67 16 0 4 x 247")
  get NewSlider("408,241,428,308",99,0,99,"240 67 16 0 5 x 247")
  get NewSlider("432,241,452,308",99,0,99,"240 67 16 0 6 x 247")
  get NewSlider("456,241,476,308",0,0,99,"240 67 16 0 7 x 247")
  UpdateSlider  -- use SetSlider if you want to send initial settings
end openCard

on mouseDown
  put FindSlider(the mouseLoc) into theSlider
  if theSlider <> 0 then
    get TrackSlider(theSlider)
  end if
end mouseDown

on closeCard
  disposeSlider
  hide card field "help"
end closeCard



-- part 123 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=190 top=41 right=61 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 118 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=196 top=31 right=61 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
  show card field "help"
end mouseUp



-- part 120 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=274 top=31 right=53 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Redraw
----- HyperTalk script -----
on mouseUp
  UpdateSlider
end mouseUp



-- part 124 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=375 top=31 right=53 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Send Settings
----- HyperTalk script -----
on mouseUp
  SetSlider
end mouseUp



-- part 117 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=32 top=31 right=288 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mousedown
  set visible of me to false
  UpdateSlider
end mousedown


-- part contents for card part 117
----- text -----
DX7 Envelopes:

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.

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.

With a bit more code, you could get the envelope and output level settings from the DX7 and set the sliders up to match.