Hi, I have not worked with scheme and lilypond for some years. I realize that this is more of a scheme question than Lilypond, but perhaps someone knows how to do this. I can generate four notes with the following:
\version "2.18.0" \score { { $ (make-sequential-music (map (lambda (x) (make-music 'NoteEvent 'pitch (ly:make-pitch 0 x) 'duration (ly:make-duration 2))) (list 1 2 3 4))) } } However, if I would like to add a markup to each note to each note I fail. I would have guessed something like this would do it but it generates an (almost) empty staff: \version "2.18.0" \score { { $(make-sequential-music (map (lambda (x) (make-music 'NoteEvent 'pitch (ly:make-pitch 0 x) 'duration (ly:make-duration 2)) (make-music 'MarkEvent 'label (markup #:line (#:override (cons (quote font-size) -3) "10")))) (list 1))) } } /h