4 Dynamics on a separate line, neatly centered between staffs.
8 upper = \notes\relative c'' {
12 lower = \notes\relative c {
22 s2\sustainDown s2\sustainUp
26 \context PianoStaff <<
27 \context Staff=upper \upper
28 \context Dynamics=dynamics \dynamics
29 \context Staff=lower <<
33 \context Dynamics=pedal \pedal
37 \type "Engraver_group_engraver"
39 \alias Voice % So that \cresc works, for example.
40 \consists "Output_property_engraver"
42 minimumVerticalExtent = #'(-1 . 1)
43 pedalSustainStrings = #'("Ped." "*Ped." "*")
44 pedalUnaCordaStrings = #'("una corda" "" "tre corde")
46 \consists "Piano_pedal_engraver"
47 \consists "Script_engraver"
48 \consists "Dynamic_engraver"
49 \consists "Text_engraver"
51 TextScript \override #'font-size = #2
52 TextScript \override #'font-shape = #'italic
53 DynamicText \override #'extra-offset = #'(0 . 2.5)
54 Hairpin \override #'extra-offset = #'(0 . 2.5)
56 \consists "Skip_event_swallow_translator"
58 \consistsend "Axis_group_engraver"
63 VerticalAlignment \override #'forced-distance = #7
68 \type "Performer_group_performer"
70 \consists "Piano_pedal_performer"
71 \consists "Span_dynamic_performer"
72 \consists "Dynamic_performer"