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"))))