input/new/piano-template-with-centered-dynamics.ly

   1 \version "2.11.35"
   2
   3 \header {
   4   lsrtags = "expressive-marks,keyboards,template"
   5   texidoc = "
   6 Many piano scores have the dynamics centered between the two staves.
   7 This requires a bit of tweaking to implement, but since the template is
   8 right here, you don't have to do the tweaking yourself.
   9 "
  10   doctitle = "Piano template with centered dynamics"
  11 }
  12
  13 upper = \relative c'' {
  14   \clef treble
  15   \key c \major
  16   \time 4/4
  17
  18   a4 b c d
  19 }
  20
  21 lower = \relative c {
  22   \clef bass
  23   \key c \major
  24   \time 4/4
  25
  26   a2 c
  27 }
  28
  29 dynamics = {
  30   s2\fff\> s4 s\!\pp
  31 }
  32
  33 pedal = {
  34   s2\sustainDown s\sustainUp
  35 }
  36
  37 \score {
  38   \new PianoStaff <<
  39     \new Staff = "upper" \upper
  40     \new Dynamics = "dynamics" \dynamics
  41     \new Staff = "lower" <<
  42       \clef bass
  43       \lower
  44     >>
  45     \new Dynamics = "pedal" \pedal
  46   >>
  47   \layout {
  48     \context {
  49       \type "Engraver_group"
  50       \name Dynamics
  51       % So that \cresc works, for example.
  52       \alias Voice
  53       \consists "Output_property_engraver"
  54
  55       \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
  56       \override DynamicLineSpanner #'Y-offset = #0
  57       pedalSustainStrings = #'("Ped." "*Ped." "*")
  58       pedalUnaCordaStrings = #'("una corda" "" "tre corde")
  59
  60       \consists "Piano_pedal_engraver"
  61       \consists "Script_engraver"
  62       \consists "Dynamic_engraver"
  63       \consists "Text_engraver"
  64
  65       \override TextScript #'font-size = #2
  66       \override TextScript #'font-shape = #'italic
  67
  68       \consists "Skip_event_swallow_translator"
  69
  70       \consists "Axis_group_engraver"
  71     }
  72     \context {
  73       \PianoStaff
  74       \accepts Dynamics
  75     }
  76   }
  77 }
  78 \score {
  79   \new PianoStaff <<
  80     \new Staff = "upper" << \upper \dynamics \pedal >>
  81     \new Staff = "lower" << \lower \dynamics \pedal >>
  82   >>
  83   \midi { }
  84 }