input/template/piano-dynamics.ly

   1 \version "2.1.7"
   2 \header {
   3 texidoc ="
   4   Template that puts dynamics on a separate line, so it is neatly
   5 centered between staffs.
   6 "
   7 }
   8
   9 upper = \notes\relative c'' {
  10   a b c d
  11 }
  12
  13 lower = \notes\relative c {
  14   a2 c
  15 }
  16
  17 dynamics = \notes {
  18   s2\fff\> s4
  19   s\!\pp
  20 }
  21
  22 pedal = \notes {
  23  s2\sustainDown s2\sustainUp
  24 }
  25
  26 \score {
  27   \context PianoStaff <<
  28     \context Staff=upper \upper
  29     \context Dynamics=dynamics \dynamics
  30     \context Staff=lower <<
  31       \clef bass
  32       \lower
  33     >>
  34     \context Dynamics=pedal \pedal
  35   >>
  36   \paper {
  37     \translator {
  38       \type "Engraver_group_engraver"
  39       \name Dynamics
  40       \alias Voice % So that \cresc works, for example.
  41       \consists "Output_property_engraver"
  42
  43       minimumVerticalExtent = #'(-1 . 1)
  44       pedalSustainStrings = #'("Ped." "*Ped." "*")
  45       pedalUnaCordaStrings = #'("una corda" "" "tre corde")
  46
  47       \consists "Piano_pedal_engraver"
  48       \consists "Script_engraver"
  49       \consists "Dynamic_engraver"
  50       \consists "Text_engraver"
  51
  52       TextScript \override #'font-size = #2
  53       TextScript \override #'font-shape = #'italic
  54       DynamicText \override #'extra-offset = #'(0 . 2.5)
  55       Hairpin \override #'extra-offset = #'(0 . 2.5)
  56
  57       \consists "Skip_event_swallow_translator"
  58
  59       \consistsend "Axis_group_engraver"
  60     }
  61     \translator {
  62       \PianoStaffContext
  63       \accepts Dynamics
  64       VerticalAlignment \override #'forced-distance = #7
  65     }
  66   }
  67   \midi {
  68     \translator {
  69       \type "Performer_group_performer"
  70       \name Dynamics
  71       \consists "Piano_pedal_performer"
  72       \consists "Span_dynamic_performer"
  73       \consists "Dynamic_performer"
  74     }
  75     \translator {
  76       \PianoStaffContext
  77       \accepts Dynamics
  78     }
  79   }
  80 }