If anybody else needs this heres some first-aid to start with.

It works in the special case below (with input from a 'SequentialMusic
structure).  It should use some lilypond-aware mapping-procedure finding
all the 'EventChord's in the input and applying the filtering to these,
leaving the rest intact.  Maybe there is such a ly-map thing already?

\version "2.11.57"

filterChords = #(define-music-function (parser location music) (ly:music?)
  "Return: { list of chords with only one note in each }."
  (make-music 'SequentialMusic 'elements
            (map (lambda (chord)
                   (make-music 'EventChord 'elements
                               (list (car (ly:music-property chord 
'elements)))))
                 (ly:music-property music 'elements))))

music = { g16[ g < g a> g]}

\score {
  <<
  \new RhythmicStaff { \time 4/8 \relative c'' { \filterChords \music }}
  \new Staff { \time 4/8 \relative c'' \music }
  >>
}

And a nice picture:

<<attachment: tmp.png>>

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to