<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>EnterRest</after>
        <action>WholeMeasureRest</action>
        <scheme>;;;MeasureRest with spacer
(let ((timesig #f) (rests 0))
  (set! timesig (d-InsertTimeSig "query=timesigname"))
  (set! rests (d-PutWholeMeasureRests))
  (cond 
   ((= 1 rests)
    (d-DirectivePut-chord-graphic "WholeMeasureRest" "WholeMeasureRest" )
    (d-DirectivePut-chord-gx "WholeMeasureRest" 30)
    (d-DirectivePut-chord-gy "WholeMeasureRest" -7)
    (d-DirectivePut-chord-minpixels "WholeMeasureRest" 100)
    (d-DirectivePut-chord-override "WholeMeasureRest" DENEMO_OVERRIDE_GRAPHIC)
    (d-DirectivePut-chord-prefix "WholeMeasureRest" (string-append "R1*" timesig " %{"))
    (d-DirectivePut-chord-postfix "WholeMeasureRest" "%} "))
   ((= 2 rests)
    (d-DirectivePut-chord-graphic "WholeMeasureRest" "WholeMeasureRestLH" )
    (d-DirectivePut-chord-gx "WholeMeasureRest" 30)
    (d-DirectivePut-chord-gy "WholeMeasureRest" -7)
    (d-DirectivePut-chord-minpixels "WholeMeasureRest" 100)
    (d-DirectivePut-chord-override "WholeMeasureRest" DENEMO_OVERRIDE_GRAPHIC)
    (d-DirectivePut-chord-prefix "WholeMeasureRest" (string-append "R1*" timesig " %{"))
    (d-MoveCursorRight)
    (d-DirectivePut-chord-graphic "WholeMeasureRest" "WholeMeasureRestRH" )
    (d-DirectivePut-chord-gx "WholeMeasureRest" -113)
    (d-DirectivePut-chord-gy "WholeMeasureRest" -7)
    (d-DirectivePut-chord-minpixels "WholeMeasureRest" 100)
    (d-DirectivePut-chord-override "WholeMeasureRest" DENEMO_OVERRIDE_GRAPHIC)
    (d-DirectivePut-chord-postfix "WholeMeasureRest" "%} "))
   (#t
    (d-WarningDialog "Not supported in this timesig")))
  (d-RefreshDisplay))
;;;End of scheme script
</scheme>
        <label>Whole Measure Rest</label>
        <tooltip>Inserts a whole measure rest at the cursor</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
