Re: sustainOff apparantly does not seem to work in bracket style

[stefankaegi]

I'm sorry, but it isn't really possible to demonstrate my problem when I
make my example shorter.

Best wishes,
Stefan

Am Dienstag, den 22.12.2009, 00:33 +0000 schrieb Graham Percival:
> Please send a tiny example.
> http://lilypond.org/doc/v2.13/Documentation/web/tiny-examples
> 
> Cheers,
> - Graham
> 
> On Tue, Dec 22, 2009 at 01:12:26AM +0100, stefankaegi wrote:
> > Hi
> > 
> > It seems I have a problem with pedal in bracket style. Please check out
> > the files I send with this mail. Actually there should be pedal until
> > the beginning of the 6. bar. But instead there's nothing like that. If I
> > use the regular pedal style this problem doesn't appear. But bracket
> > style is desired.
> > 
> > Thank you,
> > Stefan
> 
> > \version "2.12.0"
> > 
> > 
> > tempoMark =
> >     #(define-music-function (parser location prependText notevalue 
> > appendText) (string? string? string?)
> >         #{
> >             \mark \markup
> >             { \line { \fontsize #-2 \italic $prependText " (" \fontsize #-4 
> > \general-align #Y #DOWN 
> > \note #$notevalue #1 \fontsize #-2 $appendText ) } }
> >         #})
> > 
> > 
> > 
> > RH = \relative c' {
> > 
> > %20
> > 
> > \time 5/4
> > 
> > b1 ~ b4
> > 
> > 
> > 
> > %21
> > 
> > \once \override Score.RehearsalMark #'self-alignment-X = #-1
> > \time 4/4 \tempoMark "sehr langsam" "8" "= 60"    
> > 
> > 
> > \once \override Staff.OttavaBracket #'padding = #4
> > \ottava #1
> > 
> > \times 2/3 { b'''8^\markup { \halign #-0.72 \italic "anzuschlagen wie 
> > Regentropfen" } \( c,8 
> > \ottava #0 r8 } 
> > 
> > \once \override Staff.OttavaBracket #'padding = #2
> > 
> > \ottava #1 es'4 
> > 
> > \change Staff = "LH"
> > 
> > r4
> > 
> > \change Staff = "RH"
> > 
> > es,4 \) \ottava #0
> > 
> > 
> > %22
> > 
> > \time 5/4
> > 
> > des,4 \( 
> > \once \override Staff.OttavaBracket #'dash-period = #-1 
> > \once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)
> > 
> > \ottava #1 fis'4 
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(5 . -1.5)
> > 
> > \ottava #2 as'4
> > \ottava #0 e,,2 ~ 
> > 
> > 
> > 
> > %23
> > 
> > e4 \) 
> > 
> > \once \override PhrasingSlur #'extra-offset = #'(0 . 2)
> > 
> > r4 \( g2 
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(5 . 0)
> > 
> > \ottava #2 d''4 \ottava #0
> > 
> > 
> > 
> > %24
> > 
> > \time 6/4
> > 
> > ces,,2 e,4 
> > 
> > \change Staff = "LH"
> > 
> > r4
> > 
> > \change Staff = "RH"
> > 
> > es'4 \ottava #2 
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(5 . -1.2)
> > \once \override Script #'padding = #4
> > 
> > d''4\fermata \)
> > \ottava #0
> > 
> > \bar "||"
> > 
> > 
> > 
> > %25
> > 
> > \once \override Score.RehearsalMark #'self-alignment-X = #-1
> > \time 7/4 \tempoMark "schneller" "4" "= 80"
> > 
> > r8 e,,16 (
> > as16-. ) r8 f,16-. d16-. r4 fis'4 ( des'4 ) bes,,16->-. r8. r4
> > 
> > }
> > 
> > 
> > LH = \relative c, {
> > 
> > \clef bass
> > 
> > %20
> > 
> > \time 5/4
> > 
> > d16_\markup { \italic "rubato, acc." } ( ges16-. ) es16-. c16-. 
> > e4\tenuto_\markup { \italic "a tempo" } \( 
> > \acciaccatura ces'16^\markup { \italic "r.h." } as,4 g'4 \) 
> > des16-. f,16_\markup { \italic "poco rit." } ( bes16 a16 )
> > 
> > 
> > 
> > %21
> > 
> > \time 4/4
> > 
> > \times 2/3 { r4 g'8 }
> > 
> > \ottava #-1
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)
> > 
> > d,4 \ottava #0 
> > 
> > \once \override Slur #'direction = #UP
> > 
> > \acciaccatura ges'16
> > 
> > \change Staff = "RH"
> > 
> > a''''4
> > 
> > \change Staff = "LH"
> > 
> > bes,,,4
> > 
> > 
> > 
> > %22
> > 
> > \time 5/4
> > 
> > r2 \times 2/3 { d,,8 e''8^\markup { \italic r.h. } as,,,8 }
> > 
> > g'4 \clef treble
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(5 . 0)
> > 
> > \ottava #2 des'''''4 \ottava #0
> > 
> > 
> > 
> > %23
> > 
> > \clef bass \ottava #-2
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(5 . 0)
> > 
> > a,,,,,,4\ppp \ottava #0
> > 
> > f''8 des''8^\markup { \italic "r.h." }
> > 
> > r2
> > 
> > as4
> > 
> > 
> > 
> > %24
> > 
> > \time 6/4
> > 
> > \clef bass
> > 
> > \ottava #-1
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)
> > 
> > fis,,4 \ottava #0 des''4 r4 
> > 
> > \once \override Slur #'direction = #UP
> > 
> > \acciaccatura g16
> > 
> > \change Staff = "RH"
> > 
> > c''4
> > 
> > \change Staff = "LH"
> > 
> > \once \override Staff.OttavaBracket #'dash-period = #-1
> > \once \override Staff.OttavaBracket #'extra-offset = #'(3.2 . 0)
> > 
> > \ottava #-1 c,,,,,4 \ottava #0 r4\fermata
> > 
> > \bar "||"
> > 
> > 
> > 
> > %25
> > 
> > \time 7/4
> > 
> > <ges''\harmonic d'\harmonic es\harmonic>1*7/4_\markup { \italic "stumm 
> > niederdrücken" } 
> > 
> > 
> > }
> > 
> > 
> > 
> > 
> > 
> > dynamics = {
> > 
> > %20
> > s4\p\< s4\!\mp s4\> s4\!\p s4
> > 
> > %21
> > s1
> > 
> > %22
> > s1 s4
> > 
> > %23
> > s4 s2.\p s4
> > 
> > %24
> > s1.
> > 
> > %25
> > s8 s8\mf s8 s8\mp s4 s2\mf s2\f
> > 
> > }
> > 
> > pedal = {
> > 
> > \set PianoStaff.pedalSustainStyle = #'bracket
> > 
> > %20
> > s4 s8\sustainOn s8\sustainOff s4 s4 s8.
> > \override Staff.SustainPedalLineSpanner #'staff-padding = #1
> > s16\sustainOn 
> > |
> > %21
> > s1
> > 
> > %22
> > s1 s4
> > 
> > %23
> > s1 s4
> > 
> > %24
> > s1.
> > 
> > %25
> > \override Staff.SustainPedalLineSpanner #'staff-padding = #5
> > s8 s8\sustainOff s4 s4 s4 s4 s4 s4\sustainOn
> > 
> > }
> > 
> > 
> > 
> > \score {
> > 
> >  \new PianoStaff <<
> >   \new Staff = "RH" << \RH >>
> >   \new Dynamics = "dynamics" \dynamics
> >   \new Staff = "LH" << \LH \pedal >>
> > >>
> > 
> > \layout {
> >   % define Dynamics context
> >   \context {
> >     \type "Engraver_group"
> >     \name Dynamics
> >     \alias Voice
> >     \consists "Output_property_engraver"
> >     \consists "Piano_pedal_engraver"
> >     \consists "Script_engraver"
> >     \consists "New_dynamic_engraver"
> >     \consists "Dynamic_align_engraver"
> >     \consists "Text_engraver"
> >     \consists "Skip_event_swallow_translator"
> >     \consists "Axis_group_engraver"
> > 
> >     pedalSustainStrings = #'("Ped." "*Ped." "*")
> >     pedalUnaCordaStrings = #'("una corda" "" "tre corde")
> > 
> >     \override DynamicLineSpanner #'Y-offset = #0
> >     \override TextScript #'font-size = #2
> >     \override TextScript #'font-shape = #'italic
> >     \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
> >     \consists "Text_spanner_engraver"    
> > 
> > 
> > }
> > 
> >     \context {
> >      \PianoStaff
> >      \accepts Dynamics
> >      
> >      \override TupletBracket #'bracket-visibility = ##f
> > 
> >   
> >     }
> >   }
> > }
> > 
> > \score {
> >  \new PianoStaff <<
> >   \new Staff = "RH" << \RH \dynamics >>
> >   \new Staff = "LH" << \LH \dynamics >>
> >   \new Dynamics = "pedal" \pedal
> > >>
> > 
> > \midi {
> >  \context {
> >   \type "Performer_group"
> >    \name Dynamics
> >    \consists "Piano_pedal_performer" 
> >    }
> > 
> >  }
> > 
> > 
> > }
> > 
> > \paper {
> > 
> > paper-height = 28\cm
> > ragged-last = ##t
> > 
> > }
> > 
> 
> 
> > _______________________________________________
> > lilypond-user mailing list
> > address@hidden
> > http://lists.gnu.org/mailman/listinfo/lilypond-user
>