]> git.donarmstrong.com Git - lilypond.git/blob - input/no-notation/recording.ly
Test more parts of Page_turn_engraver
[lilypond.git] / input / no-notation / recording.ly
1 \version "2.10.0"
2 \header {
3
4 texidoc = "The @code{Recording_group_engraver} will record events
5 synchronized in time, collecting them in a list.  This file also shows
6 how to skip the rendering and outputting step of the process, using
7 @code{ly:run-translator}."
8
9 }
10
11 theMusic = \context Staff  { c4 d8-. }
12
13 #(define (notice-the-events context lst)
14   (map (lambda (x) (display x) (newline))  lst))
15
16 listener = \layout {
17  \context {
18    \Voice
19    \type "Recording_group_engraver"
20    recordEventSequence = #notice-the-events
21  }
22 }
23
24 #(ly:run-translator theMusic listener)