input/template/piano-dynamics.ly

   1 \version "1.5.1"
   2
   3 \header {
   4   dedication = "dedication"
   5   title = "Title"
   6   subtitle = "Subtitle"
   7   subsubtitle = "Subsubtitle"
   8   composer = "Composer (xxxx-yyyy)"
   9   opus = "Opus 0"
  10   piece = "Piece I"
  11   instrument = "Instrument"
  12   arranger = "Arranger"
  13   poet = "Poet"
  14   texttranslator = "Translator"
  15   copyright = "public domain"
  16   enteredby = "jcn"
  17   source =  "urtext"
  18 }
  19
  20 upper = \notes\relative c'' {
  21   a b c d
  22 }
  23
  24 lower = \notes\relative c {
  25   a2 c
  26 }
  27
  28 dynamics = \notes {
  29   \outputproperty #(make-type-checker 'dynamic-interface)
  30     #'extra-offset = #'(0 . 2.5)
  31   s2\fff\> s4
  32   \outputproperty #(make-type-checker 'dynamic-interface)
  33     #'extra-offset = #'(0 . 2.5)
  34   \!s\pp
  35 }
  36
  37 pedal = \notes {
  38  s2\sustainDown s2\sustainUp
  39 }
  40
  41 \score {
  42   \context PianoStaff <
  43     \context Staff=upper \upper
  44     \context Dynamics=dynamics \dynamics
  45     \context Staff=lower <
  46       \clef bass
  47       \lower
  48     >
  49     \context Dynamics=pedal \pedal
  50   >
  51   \paper {
  52     \translator {
  53       \type "Engraver_group_engraver"
  54       \name Dynamics
  55       \consists "Output_property_engraver"
  56       Generic_property_list = #generic-voice-properties
  57       \consists "Property_engraver"
  58       MinimumVerticalExtent = #'(-1 . 1)
  59
  60       pedalSustainStrings = #'("Ped." "*Ped." "*")
  61       pedalUnaCordaStrings = #'("una corda" "" "tre corde")
  62
  63       \consists "Piano_pedal_engraver"
  64       \consists "Script_engraver"
  65       \consists "Dynamic_engraver"
  66       \consists "Text_engraver"
  67
  68       TextScript \override #'font-relative-size = #1
  69       TextScript \override #'font-shape = #'italic
  70
  71       \consists "Skip_req_swallow_translator"
  72
  73       \consistsend "Axis_group_engraver"
  74     }
  75     \translator {
  76       \PianoStaffContext
  77       \accepts Dynamics
  78       VerticalAlignment \override #'forced-distance = #7
  79     }
  80   }
  81   \midi {
  82     \translator {
  83       \type "Performer_group_performer"
  84       \name Dynamics
  85       Generic_property_list = #generic-voice-properties
  86
  87       \consists "Piano_pedal_performer"
  88       \consists "Span_dynamic_performer"
  89       \consists "Dynamic_performer"
  90     }
  91     \translator {
  92       \PianoStaffContext
  93       \accepts Dynamics
  94     }
  95   }
  96 }