-- card: 184053 from stack: in
-- bmap block id: 274587
-- flags: 0000
-- background id: 5956
-- name: 
----- HyperTalk script -----
-- do not remove
on openCard
  initRadioButtons
  pass openCard
end openCard

on initRadioButtons
  global radioBtnNum

  -- init radioBtnNum and DX7Voice
  repeat with i = 1 to 4
    put item i of "Organ 1,Organ 2,Funk Clav,Pluck Brass" into thisVoice
    if hilite of btn thisVoice is true then
      put number of btn thisVoice into radioBtnNum
    end if
  end repeat
  lock screen
  send mouseUp to btn radioBtnNum  -- init DX7voice
  unlock screen
end initRadioButtons

on selectVoice
  global radioBtnNum, DX7voice

  -- take care of radio buttons
  put number of target into newVoiceNum
  if radioBtnNum is not empty then
    set hilite of card button radioBtnNum to false
  end if
  set hilite of card button newVoiceNum to true
  put newVoiceNum into radioBtnNum

  -- get DX7voice
  repeat with i = 1 to 4
    put item i of "Organ 1,Organ 2,Funk Clav,Pluck Brass" into thisVoice
    if hilite of btn thisVoice is true then
      put item i of "org 1 c,org 2 c,clav c4,brass c4" into DX7voice
    end if
  end repeat
end selectVoice

on keyboardPress
  global DX7voice

  get the clickloc
  put item 1 of it into noteNum
  put 1 + (noteNum - 71) DIV 13 into noteNum
  -- put word noteNum of keymap into realNote
  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

  play DX7voice realnote &"W"
end keyboardPress



-- part 1 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=74 top=93 right=157 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: theCaption


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=222 right=299 bottom=397
-- 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: Keyboard
----- HyperTalk script -----
on mouseDown
  keyboardPress
end mouseDown

on mouseUp
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=297 top=129 right=151 bottom=397
-- 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: Pluck Brass
----- HyperTalk script -----
on mouseUp
  selectVoice
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=297 top=100 right=122 bottom=397
-- 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: Funk Clav
----- HyperTalk script -----
on mouseUp
  selectVoice
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=198 top=100 right=122 bottom=285
-- 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: Organ 1
----- HyperTalk script -----
on mouseUp
  selectVoice
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=198 top=129 right=151 bottom=284
-- 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: Organ 2
----- HyperTalk script -----
on mouseUp
  selectVoice
end mouseUp



-- part 75 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=345 top=22 right=41 bottom=463
-- 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: theHeading
----- HyperTalk script -----
on mouseDown
  popMenuArticle
end mouseDown

-- eat the mouseUp
on mouseUp
end mouseUp



-- part 76 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=354 top=318 right=340 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 15
-- part name: thePage


-- part 77 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=353 top=317 right=338 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Up
----- HyperTalk script -----
on mouseUp
  doArticleUpButton
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=317 right=338 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Down
----- HyperTalk script -----
on mouseUp
  doArticleDownButton
end mouseUp



-- part contents for background part 5
----- text -----
Picture

-- part contents for background part 25
----- text -----
• WHOLE EARTH
 • MUSIC
  • PLAYING  
   • Instruments

-- part contents for background part 12
----- text -----
Yamaha DX-7 II

-- part contents for background part 26
----- text -----
14111140

-- part contents for card part 1
----- text -----

Select a voice, click on the keyboard

-- part contents for card part 75
----- text -----
Menu

-- part contents for card part 76
----- text -----
4 of 6

-- part contents for background part 34
----- text -----
card id 184188

-- part contents for background part 35
----- text -----
card id 286305

-- part contents for background part 36
----- text -----
stack "WHOLE EARTH"
stack "MUSIC"
card id 105944
card id 279761

-- part contents for background part 31
----- text -----
card id 279761

-- part contents for background part 32
----- text -----
card id 188476

-- part contents for background part 33
----- text -----
card id 169031