- s8-\!
- s2 s8 s-\> s
- | %7
- s8-\!
-}
-
-lowerDynamics = \context Dynamics=lower \notes{
- s2
- | %2
- s2-\sustainDown s8. s16-\sustainUp s4
- | %3
- s2-\sustainDown s8. s16-\sustainUp s4
- | %4
- s4-\sustainDown
- \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "*")
-
- % grace destroys pedal-line-spanner?
- % let's do manual tweak:
- \once\property Dynamics.SustainPedal \set #'extra-offset = #'(10 . 0) %tweak
- s8-\sustainUp
- \once\property Dynamics.SustainPedal \set #'extra-offset = #'(16 . 0) %tweak
- s8-\sustainDown
-%{
- s4
- \grace {
- s8
- s16 s s
- s32 s s s-\sustainUp
- s32 s s s-\sustainDown
- }
-%}
- s2
-
- | %5
- % ugh, I don't think that 'mixed should show last edge, but rather:
- %
- % Ped__________/\__________ *
- %
- % that's what gray wants, anyway.
-
- \property Dynamics.pedalSustainStyle = #'mixed
- s8-\sustainDown s s
- s s-\sustainUp-\sustainDown s
- s
- \once \property Dynamics.pedalSustainStyle = #'text
- s-\sustainUp
-
- | %6
- \property Dynamics.pedalSustainStyle = #'mixed
- s8-\sustainDown s s
- s s-\sustainUp-\sustainDown s
- s
- \once \property Dynamics.pedalSustainStyle = #'text
- s-\sustainUp