Re: resetting accidentals at word breaks

[Benjamin Bloomfield]

Thanks, this works beautifully, and insertBar also solves a problem that I had of needing to put empty bars in between syllables to allow line breaks there, which I had previously been solving by preprocessing the lyrics to add \bar "" in between all the lyric syllables.

Thanks so much!

Now I need to figure out automatically adding cautionary accidentals the first time the pitch appears after the accidental has been reset.  I've been having trouble finding documentation on defining new accidental Styles, but I will continue looking a bit before turning to the forum for more help.

Benjamin Bloomfield

On Tue, Apr 14, 2020 at 3:02 PM Aaron Hill <address@hidden> wrote:

On 2020-04-14 9:14 am, Benjamin Bloomfield wrote:
> However, I am still trying to figure out how engravers and contexts
> work to
> be able to know exactly what's going on.
>
> Thanks for any help or ideas,

Here is my take that works from events not grobs, plus it allows
flexibility in what you want to do between words:

%%%%
\version "2.20.0"

modifyContextPropertyWhereDefined =
#(define-scheme-function
   (prop value-or-proc) (symbol? scheme?)
   (lambda (context)
     (ly:context-set-property!
       (ly:context-property-where-defined context prop)
       prop
       (if (procedure? value-or-proc)
         (value-or-proc (ly:context-property context prop))
         value-or-proc))))

incrementBarNumber =
   \modifyContextPropertyWhereDefined
   internalBarNumber #1+

insertBar =
   \modifyContextPropertyWhereDefined
   whichBar \etc

betweenLyrics = #(define-scheme-function
   (proc) (procedure?)
   (lambda (context)
     (let ((first-lyric? #t) (hyphen? #f))
       (make-engraver
         (listeners
           ((hyphen-event engraver event) (set! hyphen? #t))
           ((lyric-event engraver event)
            (if first-lyric?
              (set! first-lyric? #f)
              (if (not hyphen?) (proc context)))
            (set! hyphen? #f)))))))

doBoth = #(define-scheme-function
   (proc1 proc2) (procedure? procedure?)
   (lambda args (apply proc1 args) (apply proc2 args)))

repetitions = #3
notes = \repeat unfold \repetitions {
   fis'4 4 4 4 4 4 4( 4) 4( 4 4) 4 4 }
words = \repeat unfold \repetitions \lyricmode {
   a b -- b c -- c -- c d e -- e f }

<< \new Staff { \cadenzaOn \new Voice = melody \notes }
    \new Lyrics \with {
     \consists \betweenLyrics \incrementBarNumber
    } \lyricsto melody \words >>

<< \new Staff { \cadenzaOn \new Voice = melody \notes }
    \new Lyrics \with {
     \consists \betweenLyrics \insertBar "'"
    } \lyricsto melody \words >>

<< \new Staff { \cadenzaOn \new Voice = melody \notes }
    \new Lyrics \with {
     \consists \betweenLyrics \doBoth \insertBar "" \incrementBarNumber
    } \lyricsto melody \words >>
%%%%


-- Aaron Hill