3 texidoc = "\\consists can take a scheme alist as arguments, which
4 should be functions, which will be invoked as engraver functions."
11 "Return the current moment of translator object @var{t}."
12 (ly:context-current-moment (ly:translator-context t)))
16 ((initialize translator)
17 (format 1 "\n\n~16a: (initialize)\n" (t->m translator)))
18 ((start-translation-timestep translator)
19 (format 1 "~16a: (start-translation-timestep)\n" (t->m translator)))
21 ((rest-event engraver event)
22 (let ((grob (ly:engraver-make-grob engraver 'TextScript event)))
23 (ly:grob-set-property! grob 'text "hi")
24 (format 1 "~16a: detected this rest event: ~a\n~16a: created this grob: ~a\n"
25 (t->m engraver) event (t->m engraver) grob))))
27 ((note-head-interface engraver grob source-engraver)
28 (format 1 "~16a: saw ~a coming from ~a\n"
29 (t->m engraver) grob source-engraver)))
31 ((beam-interface engraver grob source-engraver)
32 (format 1 "~16a: saw end of ~a coming from ~a\n"
33 (t->m engraver) grob source-engraver)))
34 ((process-music translator)
35 (format 1 "~16a: (process-music)\n" (t->m translator)))
36 ((process-acknowledged translator)
37 (format 1 "~16a: (process-acknowledged)\n" (t->m translator)))
38 ((stop-translation-timestep translator)
39 (format 1 "~16a: (stop-translation-timestep)\n" (t->m translator)))
40 ((finalize translator)
41 (format 1 "~16a: (finalize)\n" (t->m translator))))