3 \include "staff-tkit.ly"
6 #(define-music-function (parser location) ()
8 (if (not PianoRHMidiInstrument)
9 (set! PianoRHMidiInstrument
10 (if PianoMidiInstrument
14 (if (not PianoLHMidiInstrument)
15 (set! PianoLHMidiInstrument
16 (if PianoMidiInstrument
25 \new PianoStaff = "PianoStaff"
27 instrumentName = \markup \smallCaps
28 #(if PianoInstrumentName
31 shortInstrumentName = \markup \smallCaps
32 #(if PianoShortInstrumentName
33 PianoShortInstrumentName
35 \override VerticalAxisGroup.remove-empty = ##t
36 \override VerticalAxisGroup.remove-first = ##t
39 \make-one-voice-staff ##f "PianoRH" "treble" ""
41 #{ \new Dynamics = "PianoDynamics" { #PianoDynamics } #} )
42 \make-one-voice-staff ##f "PianoLH" "bass" ""
45 (make-music 'SequentialMusic 'void #t)))