-bass = \context Voice=bass \notes\relative c{
- \property Voice.Slur \pop #'details
- \property Voice.Slur \push #'details =
-% #'((height-limit . 2.0) (ratio . 0.333) (force-blowfit . 0.5) (beautiful . 1.0))
- #'((height-limit . 6.0) (ratio . 0.333) (force-blowfit . 1.0) (beautiful . 0.1))
- \property Voice.Slur \pop #'de-uglify-parameters
- \property Voice.Slur \push #'de-uglify-parameters =
-% #'(1.5 0.8 -2.0)
- #'(2.4 0.8 4.0)
- \property Voice.Stem \pop #'direction
- \property Voice.Slur \push #'direction = #-1
- % huh, auto-beamer?
- r8. e,16-2( [<a8 a,> <b b,>] <cis4 cis,> |
- %2
- \translator Staff=treble
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #-1
- \property Voice.slurEndAttachment = #'stem
- <)a''4 eis cis>
- %\stemboth
- \property Voice.slurEndAttachment = ##f
- \translator Staff=bass
- \property Voice.Stem \pop #'direction
- \property Voice.Slur \pop #'y-free
- \property Voice.Slur \push #'y-free = #0.1
- r8. cis,,16( <fis8 fis,> <gis gis,>
- %3
- \property Voice.Stem \pop #'length
- \property Voice.Stem \push #'length = #5
- <a4 a,>
- \translator Staff=treble
- \property Voice.Stem \pop #'length
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #-1
- <)a' fis cis>
- \translator Staff=bass
- \property Voice.Stem \pop #'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