On 1 April 2010 18:01, Andrew Hawryluk <ahawry...@gmail.com> wrote:
> This looks like a bug to me. My minimal example:
>
> \version "2.13.16"
> {
> \set Staff.pedalSustainStyle = #'text
> c''1\sustainOn
> }
>
> If the pedalSustainStyle is set to #'mixed or #'bracket then the
> bracket indicates the sustain up at the end of the piece. With #'text
> style there is no sustain up mark.
Here's a possible workaround while you're waiting for this to be fixed:
\relative c {
\set Staff.pedalSustainStyle = #'mixed
\override Staff.PianoPedalBracket #'stencil =
#(lambda (grob)
(let* (;; the bracket stencil
(bracket (ly:piano-pedal-bracket::print grob))
;; its horizontal extent
(bracket-ext (ly:stencil-extent bracket X))
;; a pedal asterisk, aligned on its right edge
(asterisk (grob-interpret-markup grob (markup
#:right-align #:musicglyph "pedal.*")))
;; the vertical parent of this bracket (a PianoPedalLineSpanner)
(pedal-span (ly:grob-parent grob Y))
;; the right NonMusicalPaperColumn of the line spanner
(right-column (ly:spanner-bound pedal-span RIGHT))
;; the column's length relative to the system (effectively
the width of the barline)
(col-length (interval-length (ly:grob-extent right-column
(ly:grob-system grob) X))))
;; return an asterisk moved the same distance as a bracket,
minus the width of the barline
(ly:stencil-translate-axis asterisk (- (cdr bracket-ext) col-length) X)))
\time 6/8
\clef bass
<a e' a>2.\fermata\sustainOn
\bar "|."
}
Cheers,
Neil
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
