input/template/piano-dynamics.ly

   1 #(ly:set-option 'old-relative)
   2 \version "1.9.2"
   3 \header {
   4 texidoc ="
   5   Template that puts dynamics on a separate line, so it is neatly
   6 centered between staffs.
   7 "
   8 }
   9
  10 upper = \notes\relative c'' {
  11   a b c d
  12 }
  13
  14 lower = \notes\relative c {
  15   a2 c
  16 }
  17
  18 dynamics = \notes {
  19   s2\fff\> s4
  20   s\!\pp
  21 }
  22
  23 pedal = \notes {
  24  s2\sustainDown s2\sustainUp
  25 }
  26
  27 \score {
  28   \context PianoStaff <
  29     \context Staff=upper \upper
  30     \context Dynamics=dynamics \dynamics
  31     \context Staff=lower <
  32       \clef bass
  33       \lower
  34     >
  35     \context Dynamics=pedal \pedal
  36   >
  37   \paper {
  38     \translator {
  39       \type "Engraver_group_engraver"
  40       \name Dynamics
  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-relative-size = #1
  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 }