input/regression/scheme-engraver.ly

   1 \header {
   2
   3   texidoc = "\\consists can take a scheme alist as arguments, which
   4   should be functions, which will be invoked as engraver functions."
   5
   6 }
   7
   8 \version "2.16.0"
   9
  10 \layout {
  11   \context {
  12     \Voice
  13     \consists
  14     #(make-engraver
  15       ((initialize trans)
  16        (display (list "initialize"
  17                       (ly:context-current-moment
  18                        (ly:translator-context trans)) "\n") (current-error-port)))
  19       ((start-translation-timestep trans)
  20        (display (list "start-trans"
  21                       (ly:context-current-moment
  22                        (ly:translator-context trans)) "\n") (current-error-port)))
  23       (listeners
  24        ((rest-event engraver event)
  25         (let*
  26             ((x (ly:engraver-make-grob engraver 'TextScript event)))
  27           (display (list "caught event" event "\ncreate:\n" x "\n") (current-error-port))
  28           (ly:grob-set-property! x 'text "hi"))))
  29       (acknowledgers
  30        ((note-head-interface engraver grob source-engraver)
  31         (display (list "saw head: " grob " coming from " source-engraver) (current-error-port))))
  32       (end-acknowledgers
  33        ((beam-interface engraver grob source-engraver)
  34         (display (list "saw end of beam: " grob " coming from " source-engraver) (current-error-port))))
  35       ((process-music trans)
  36        (display (list "process-music"
  37                       (ly:context-current-moment
  38                        (ly:translator-context trans)) "\n") (current-error-port)))
  39       ((process-acknowledged trans)
  40        (display (list "process-acknowledged"
  41                       (ly:context-current-moment
  42                        (ly:translator-context trans)) "\n") (current-error-port)))
  43       ((stop-translation-timestep trans)
  44        (display (list "stop-trans"
  45                       (ly:context-current-moment
  46                        (ly:translator-context trans)) "\n") (current-error-port)))
  47       ((finalize trans)
  48        (display (list "finalize"
  49                       (ly:context-current-moment
  50                        (ly:translator-context trans)) "\n") (current-error-port))))
  51                 }}
  52
  53
  54 \relative c' {
  55   c8[ r c]
  56 }