3 texidoc = "\\consists can take a scheme alist as arguments, which
4 should be functions, which will be invoked as engraver functions."
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)))
24 ((rest-event engraver event)
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"))))
30 ((note-head-interface engraver grob source-engraver)
31 (display (list "saw head: " grob " coming from " source-engraver) (current-error-port))))
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)))
48 (display (list "finalize"
49 (ly:context-current-moment
50 (ly:translator-context trans)) "\n") (current-error-port))))