<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>PrintTwoReduced</after>
        <action>PrintThreeReduced</action>
        <scheme>;;;PrintThreeReduced
(d-PushPosition)
(let ((saved (d-GetSaved)))
	(ForAllMovements "(d-GoToPosition #f 1 1 1) (d-SmallerStaff) (d-VoicePreset1)
			  (d-GoToPosition #f 2 1 1) (d-SmallerStaff) (d-VoicePreset2)  (d-SetCurrentStaffAsVoice)
			   (d-GoToPosition #f 3 1 1) (d-SmallerStaff)   (d-SetCurrentStaffAsVoice)
			  ")
	
	(d-TypesetForScript "(d-PrintThreeReduced)")
	
	(ForAllMovements  "(d-GoToPosition #f 1 1 1)  (d-SmallerStaff) (if (StemDirective?) (d-DeleteObject))	
	  (d-GoToPosition #f 2 1 1) (d-SmallerStaff) (if (StemDirective?) (d-DeleteObject))  (d-SetCurrentVoiceAsStaff)
	   (d-GoToPosition #f 3 1 1) (d-SmallerStaff) (if (StemDirective?) (d-DeleteObject))  (d-SetCurrentVoiceAsStaff)
	   ")
	(d-SetSaved saved))
(d-PopPosition)
</scheme>
        <label>Print Three Parts as Cue for Accompanist</label>
        <tooltip>Prints top three parts on one staff as cues.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
