Add a user-level interface to the event-chord-reduce function.
Document its use for squishing chords in music being used to
provide the rhythms to RhythmicStaff and the Pitch_squash_engraver.
>>
@end lilypond
+Music containing chords can also be used as input to @code{RhythmicStaff}
+and for use with the @code{Pitch_squash_engraver} if the chords are first
+reduced to single notes with the @code{\reduceChords} music function:
+
+@lilypond[quote,verbatim]
+\new RhythmicStaff {
+ \time 4/4
+ \reduceChords {
+ <c>2
+ <e>2
+ <c e g>2
+ <c e g>4
+ <c e g>4
+ }
+}
+@end lilypond
@predefined
@code{\improvisationOn},
'element main-music
'quoted-music-name what))
+reduceChords =
+#(define-music-function (music) (ly:music?)
+ (_i "Reduce chords contained in @var{music} to single notes,
+intended mainly for reusing music in RhythmicStaff. Does not
+reduce parallel music.")
+ (event-chord-reduce music))
relative =
#(define-music-function (pitch music)