ly/piano-tkit.ly

   1 %\version "2.19.22"
   2
   3 \include "staff-tkit.ly"
   4
   5 make-pianostaff =
   6 #(define-music-function () ()
   7
   8 (if (not PianoRHMidiInstrument)
   9        (set! PianoRHMidiInstrument
  10              (if PianoMidiInstrument
  11                  PianoMidiInstrument
  12                  "acoustic grand")))
  13
  14 (if (not PianoLHMidiInstrument)
  15        (set! PianoLHMidiInstrument
  16              (if PianoMidiInstrument
  17                  PianoMidiInstrument
  18                  "acoustic grand")))
  19
  20   (if (or
  21         PianoRHMusic
  22         PianoLHMusic)
  23        #{
  24
  25 \new PianoStaff = "PianoStaff"
  26   \with {
  27     instrumentName = \markup \smallCaps
  28       #(if PianoInstrumentName
  29            PianoInstrumentName
  30            "Piano" )
  31     shortInstrumentName = \markup \smallCaps
  32       #(if PianoShortInstrumentName
  33            PianoShortInstrumentName
  34            "")
  35   }
  36   <<
  37     \make-one-voice-staff ##f "PianoRH" "treble" ""
  38     #(if PianoDynamics
  39          #{ \new Dynamics = "PianoDynamics" { #PianoDynamics } #} )
  40     \make-one-voice-staff ##f "PianoLH" "bass" ""
  41   >>
  42        #}
  43      (make-music 'SequentialMusic 'void #t)))