]> git.donarmstrong.com Git - lilypond.git/blob - ly/piano-tkit.ly
Web-es: update Introduction.
[lilypond.git] / 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)))