input/no-notation/recording.ly

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