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 > lilypond-user@gnu.org > http://lists.gnu.org/mailman/listinfo/lilypond-user _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user