<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>TypesettingOn</after>
        <action>SetTuningStaff</action>
        <scheme> ;;;;;SetTuningForStaff
 (d-Directive-standalone "Tuning")
(d-DirectivePut-standalone-midibytes "Tuning" (string-append "0xf0 0x7f 0x7f 0x08 0x08   0x0 0x0 0x0$ " (d-GetMidiTuning)  "0xf7"))
(d-DirectivePut-standalone-display "Tuning" (string-append (_ "This Staff: ") (d-GetTemperament) " " (d-GetFlattest) "-" (d-GetSharpest)))
(d-DirectivePut-standalone-ty "Tuning" -25)
(d-DirectivePut-standalone-minpixels "Tuning" 15)
(d-RefreshDisplay)

</scheme>
        <label>Set Tuning for Current Staff</label>
        <tooltip>At this time in playback the current staff's tuning will switch to the temperament selected when this command is invoked.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
