This is indeed the first time I'm really understanding adding properties to
notes with music functions, and it makes much more sense to me now that I'm
deeper in this than it did in the past. Thanks, I'll stop bugging the lits
and will get writing now.
On Fri, Feb 17, 2023 at 5:06 PM Jean Abou Samra <j...@abou-samra.fr> wrote:
> Le vendredi 17 février 2023 à 16:58 -0600, Matthew Probst a écrit :
>
> One last question regarding this:
>
> - Given that now I have a way to not have to set the N.C. symbol to
> the empty string, is there a way to preserve a method of using the N.C
> symbol when I *want* it? In other words, can you *escape* a rest so
> that it doesn't get converted to a skip, say by using a variable or
> function to wrap it?
>
> That would be nice to know, but not absolutely necessary.
>
> Thanks yet again.
>
> Sure. Something like this should do:
>
> \version "2.24.1"
>
> firstNoteOfChord =
> #(define-music-function (music) (ly:music?)
> (define (iter mus)
> (let ((elt (ly:music-property mus 'element))
> (elts (ly:music-property mus 'elements)))
> (map iter elts)
> (if (not (null? elt)) (iter elt))
> (if (and (music-is-of-type? mus 'event-chord) (not (null? elts)))
> (ly:music-set-property! mus 'elements (list (car elts))))))
> (iter music)
> music)
>
> restsToSkips =
> #(define-music-function (music) (ly:music?)
> (music-map (lambda (m)
> (if (and (music-is-of-type? m 'general-rest-event)
> (not (ly:music-property m 'keep-as-rest #f)))
> (make-music 'SkipEvent m)
> m))
> music))
>
> keepAsRest = \withMusicProperty keep-as-rest ##t \etc
>
>
> VerseRhythmChords = {
> \chordmode {
> e16:9 r8 q16 r8 q16 r16 r16 q16 r8 q16 q16 r8
> e16:9 r8 q16 r8 q16 r16 r16 q16 r8 q16 q16 r8
> e16:9 r8 q16 r8 q16 r16 r16 q16 r8 q16 q16 r8
> bes16 q16 r16 q16 q4 g16 q16 \keepAsRest r16 q16 q4
> }
> }
>
> <<
> \new ChordNames {
> \set chordChanges = ##t
> \restsToSkips \VerseRhythmChords
> }
> \new Voice \with {
> \consists "Pitch_squash_engraver"
> } {
> \improvisationOn
> \firstNoteOfChord \VerseRhythmChords
> \improvisationOff
> }
> >>
>
>
