input/no-notation/recording.ly

   1 \version "2.1.7"
   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 \notes { c4 d8-. }
  12
  13 #(define (notice-the-events context lst)
  14   (map (lambda (x) (display x) (newline))  lst))
  15
  16 listener = \paper {
  17  \translator {
  18    \ThreadContext
  19    \type "Recording_group_engraver"
  20    recordEventSequence = #notice-the-events
  21  }
  22 }
  23
  24 #(ly:run-translator theMusic listener)