[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: sustainOff apparantly does not seem to work in bracket style
From: |
Graham Percival |
Subject: |
Re: sustainOff apparantly does not seem to work in bracket style |
Date: |
Tue, 22 Dec 2009 00:33:11 +0000 |
User-agent: |
Mutt/1.5.18 (2008-05-17) |
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