3 texidoc = "\\consists can take a scheme alist as arguments, which
4 should be functions, which will be invoked as engraver functions."
17 (display (list "initialize"
18 (ly:context-current-moment
19 (ly:translator-context trans)) "\n"))))
20 (cons 'start-translation-timestep
22 (display (list "start-trans"
23 (ly:context-current-moment
24 (ly:translator-context trans)) "\n"))))
27 (cons 'rest-event (lambda (engraver event)
29 ((x (ly:engraver-make-grob engraver 'TextScript event)))
30 (display (list "caught event" event "\ncreate:\n" x "\n"))
31 (ly:grob-set-property! x 'text "hi"))
36 (cons 'note-head-interface
37 (lambda (engraver grob source-engraver)
38 (display (list "saw head: " grob " coming from " source-engraver))
41 (cons 'end-acknowledgers
44 (lambda (engraver grob source-engraver)
45 (display (list "saw end of beam: " grob " coming from " source-engraver))
50 (display (list "process-music"
51 (ly:context-current-moment
52 (ly:translator-context trans)) "\n"))))
53 (cons 'process-acknowledged
55 (display (list "process-acknowledged"
56 (ly:context-current-moment
57 (ly:translator-context trans)) "\n"))))
58 (cons 'stop-translation-timestep
60 (display (list "stop-trans"
61 (ly:context-current-moment
62 (ly:translator-context trans)) "\n"))))
65 (display (list "finalize"
66 (ly:context-current-moment
67 (ly:translator-context trans)) "\n"))))