Steve,
When you see the music expression as a tree, then the NoteEvent's belonging
to a chord are branches of an EventChord.
This is for all chords including <a c>4 etc.
And as an extra bonus:
When you have chords like "c:7+" the EventChord's are branches (or
sub-branches) of an ContextSpeccedMusic event with the music-attribute
'context-type' = "ChordsName"
Jaap
Van: lilypond-user <lilypond-user-bounces+lilypond=de-wolff....@gnu.org>
Namens Steve Cummings
Verzonden: Tuesday, November 26, 2019 7:31 PM
Aan: lilypond-user@gnu.org
Onderwerp: Identifying non-chord notes in Scheme
What's the test for differentiating between non-chord notes and notes within
a chord, when iterating through events in music? I can examine the notes
within a chord individually, but I can't been able to find the way to
capture notes that don't belong to a chord (or alternatively, to discard
note events do belong to a chord).
Leaning heavily on code from Giles T, here's a simple routine that displays
pitches of note events when they are encountered as such, and also when they
occur within a chord. If the goal is to process non-chord notes only, how
can I pick them out? In the listing below I've marked relevant places with
"<<--"
Thanks,
Steve
\version "2.19"
#(use-modules (ice-9 receive)) %% so 'receive' can be used
#(define (noteEvent? music)
(eq? (name-of music) 'NoteEvent))
#(define (name-of music)
" (display-scheme-music (ly:music-property music 'name))"
(ly:music-property music 'name)
)
#(define* (music-to-console music #:optional (strict-comp? #t))
(music-map
(lambda(mus)
(display (name-of mus))
(newline)
(cond
((eq? 'EventChord (name-of mus))
(display "Chord")(newline)
(receive (notes others)
(partition noteEvent? (ly:music-property mus 'elements))
<<--Examine different music property?
(map(lambda(note)(display (ly:music-property note 'pitch))) notes)
(newline)))
((eq? 'NoteEvent (name-of mus))
<<----- Test here?
(display "A note event, but does it stand alone, or is it part of a
chord?") <<----- or here?
(newline) (display (ly:music-property mus 'pitch))(newline))
(else (display "(Not a note or a chord)")(newline))
)
(newline)
#{
#mus
#})
music))
showNotesAndChords = #(define-music-function (music) (ly:music?)
(music-to-console music #t))
someNotes = \transpose c f { <g b d'>4 c'4 d'4 \transpose f c {<f' a' c''>2
c'}}
\showNotesAndChords \someNotes
