<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <action>VoiceSetting</action>
        <scheme>;;;VoiceSetting
        (let ( (choice (d-GetOption (string-append (_ "Voice 1") stop  (_ "Voice 2") stop (_ "Voice 3") stop (_ "Voice 4") stop (_ "Automatic Voice") stop))))
          (if choice
            (cond ((string=? choice (_ "Voice 1"))
                    (d-VoicePreset1))
                  ((string=? choice (_ "Voice 2"))
                    (d-VoicePreset2))
                  ((string=? choice (_ "Voice 3"))
                    (d-VoicePreset3))
                  ((string=? choice (_ "Voice 4"))
                    (d-VoicePreset4))
                  ((string=? choice (_ "Automatic Voice"))
                  (d-VoicePresetAutomatic)))))
        </scheme>
        <label>Choose Voice</label>
        <tooltip>The Voice 1,2,3,4 commands set up the voices so that first and third voices get stems up, second and fourth voices get stems down, third and fourth voice note heads are horizontally shifted, and rests in the respective voices are automatically moved to avoid collisions. The Automatic Voice command returns all the voice settings to the neutral default directions</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
