<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>InitialVoiceTwo</after>
        <action>InitialVoiceThree</action>
        <scheme>;;;InitialVoiceThree
(let ((tag "InitialVoice") (move-right #f))
(d-PushPosition)
(d-DirectivePut-voice-display tag "Voice Three")
(d-DirectivePut-voice-postfix tag "\\voiceThree")
(d-DirectivePut-voice-override tag DENEMO_OVERRIDE_GRAPHIC)
(d-MoveToBeginning)
(if (StemDirective?) (d-DeleteObject) (set! move-right #t))
(d-StartUpStems)
(d-MoveCursorLeft)
(d-DirectivePut-stemdirective-graphic tag "
v3
Serif
24
1
1")
(d-PopPosition)
(if move-right
  (d-MoveCursorRight));;to compensate for the insertion of the stem directive
(d-SetSaved #f))</scheme>
        <label>Initial Voice Three</label>
        <tooltip>Sets the (initial) voice of the staff to be voice three (this affects stems up, slurs etc on printing)</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
