-bass = \context Voice=bass \notes\relative c{
- % Allow ugly slurs
- \property Voice.Slur \override #'beautiful = #5.0
- \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . -4))
- \property Voice.Stem \revert #'direction
- \property Voice.Slur \override #'direction = #-1
- % huh, auto-beamer?
- r8. e,16_2( [<a8 a,> <b b,>] |
- %2
- <cis4 cis,>
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
- \translator Staff=treble
- % Get back
- \context Voice
- \property Voice.Stem \revert #'direction
- \property Voice.Stem \override #'direction = #-1
- \property Voice.Slur \override #'attachment = #'(stem . stem)
- <)a''4\arpeggio eis cis>
- %\stemBoth
- \property Voice.Slur \revert #'attachment
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
- \translator Staff=bass
- % Get back
- \context Voice
- \property Voice.Stem \revert #'direction
- \property Voice.Slur \revert #'y-free
- \property Voice.Slur \override #'y-free = #0.1
- \property Voice.Slur \revert #'attachment-offset
- \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . 8))
- r8. cis,,16( <fis8 fis,> <gis gis,>
- %3
- \property Voice.Stem \revert #'length
- \property Voice.Stem \override #'length = #5
- <a4 a,>
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
- \translator Staff=treble
- % Get back
- \context Voice
- \property Voice.Stem \revert #'length
- \property Voice.Stem \revert #'direction
- \property Voice.Stem \override #'direction = #-1
- <)a'\arpeggio fis cis>
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
- \translator Staff=bass
- % Get back
- \context Voice
- \property Voice.Stem \revert #'direction
+bass = \new Voice \relative c{
+ \partial 2
+ \key a \major
+
+ \slurDown
+ \dynamicUp
+
+ r8. e,16(\f_2 <a a,>8[ <b b,>]
+ | %2
+ \override Staff.SustainPedalLineSpanner #'staff-padding = #5 %tweak
+
+ <cis cis,>4\sustainDown
+ \change Staff=treble
+ \stemDown
+ <a'' eis cis>4)\arpeggio
+
+ \change Staff=bass
+ \stemNeutral
+
+ r8. cis,,16(\sustainUp <fis fis,>8 <gis gis,>
+
+ | %3
+% \once \override Stem #'length = #6 %tweak
+ <a a,>4\sustainDown
+ \change Staff=treble
+
+ \stemNeutral
+ \stemDown
+ <a' fis cis>)\arpeggio
+ \change Staff=bass
+ \stemNeutral