lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Ottavation text too long for next line


From: Kieren MacMillan
Subject: Re: Ottavation text too long for next line
Date: Sat, 16 May 2015 20:04:58 -0400

Hi Knute,

Maybe something like this will work for you?

\version "2.19.20"
\language "english"

#(define (ottava-jr grob)
   (let* (
          ;; have we been split?
          (orig (ly:grob-original grob))

          ;; if yes, get the split pieces (our siblings)
          (siblings (if (ly:grob? orig)
                        (ly:spanner-broken-into orig)
                        '())))

     (if (and (>= (length siblings) 2)
              (eq? (car (last-pair siblings)) grob))
         (ly:grob-set-property! grob 'text '"8va m.d."))))

octaveUp = { 
  \once \override Staff.OttavaBracket.direction = #UP
  \set Staff.ottavation = #"8va pour la main droite seulement"
  \once \override Staff.OttavaBracket.after-line-breaking = #ottava-jr
  \set Voice.middleCPosition = #(- 6 5)
}

octaveOff = {
  \unset Staff.ottavation
  \unset Voice.middleCPosition
}

\relative c' {
  <<
    {
      s1 | s1 | s1 | s1 |
      \octaveUp
      \repeat unfold 4 { e4 f g a }
      \octaveOff
      s1 | s1 | s1 | s1 | s1 | s1 | s1 | s1 | 
    }
    \\
    {
      \repeat unfold 16 { c4 d e f }
    }
  >>
}

Hope that helps!
Kieren.
________________________________

Kieren MacMillan, composer
‣ website: www.kierenmacmillan.info
‣ email: address@hidden




reply via email to

[Prev in Thread] Current Thread [Next in Thread]