http://codereview.appspot.com/181109/show
there are some open todos, which I'll look into, probably over the
weekend, but here is a sample:
Interpreting music... (initialize #<Mom -infinity>
)(start-trans #<Mom 0>
)(process-music #<Mom 0>
)(process-acknowledged #<Mom 0>
)(saw: #<Grob NoteHead > coming from #<Translator
Note_heads_engraver >)(process-acknowledged #<Mom 0>
)(process-acknowledged #<Mom 0>
)(process-acknowledged #<Mom 0>
)(start-trans #<Mom 1/4>
)(caught event #<Prob: Stream_event C++: Stream_event((music-cause .
#<Prob: Music C++: Music((length . #<Mom 1/4>) (elements) (duration .
#<Duration 4 >) (origin . #<location
input/regression/scheme-engraver.ly:59:15>))((display-methods
#<procedure #f (rest parser)>) (name . RestEvent) (types general-music
event rhythmic-event rest-event)) >
) (length . #<Mom 1/4>) (elements) (duration . #<Duration 4 >) (origin
. #<location input/regression/scheme-engraver.ly:59:15>))((class .
rest-event)) >
create:
#<Grob TextScript >
)(process-music #<Mom 1/4>
)(process-acknowledged #<Mom 1/4>
)(process-acknowledged #<Mom 1/4>
)(process-acknowledged #<Mom 1/4>
)(start-trans #<Mom 1/2>
)(process-music #<Mom 1/2>
)(process-acknowledged #<Mom 1/2>
)(saw: #<Grob NoteHead > coming from #<Translator
Note_heads_engraver >)(process-acknowledged #<Mom 1/2>
)(process-acknowledged #<Mom 1/2>
)(start-trans #<Mom 3/4>
)(process-music #<Mom 3/4>
)(process-acknowledged #<Mom 3/4>
)(finalize #<Mom 3/4>
)
Preprocessing graphical objects...
Solving 1 page-breaking chunks...[1: 1 pages]
Drawing systems...
Layout output to `scheme-engraver.ps'...
Converting to `./scheme-engraver.pdf'...
--
Han-Wen Nienhuys - [email protected] - http://www.xs4all.nl/~hanwen
\header {
texidoc = "\\consists can take a scheme alist as arguments, which
should be functions, which will be invoked as engraver functions."
}
\layout {
\context {
\Voice
\consists
#(list
(cons 'initialize
(lambda (trans)
(display (list "initialize"
(ly:context-moment (ly:translator-context trans)) "\n"))))
(cons 'start-translation-timestep
(lambda (trans)
(display (list "start-trans"
(ly:context-moment (ly:translator-context trans)) "\n"))))
(cons 'listeners
(list
(cons 'rest-event (lambda (engraver event)
(let*
((x (ly:engraver-make-grob engraver 'TextScript event)))
(display (list "caught event" event "\ncreate:\n" x "\n"))
(ly:grob-set-property! x 'text "hi"))
))
))
(cons 'acknowledgers
(list
(cons 'note-head-interface
(lambda (engraver grob source-engraver)
(display (list "saw: " grob " coming from " source-engraver))
))
))
(cons 'process-music
(lambda (trans)
(display (list "process-music"
(ly:context-moment (ly:translator-context trans)) "\n"))))
(cons 'process-acknowledged
(lambda (trans)
(display (list "process-acknowledged"
(ly:context-moment (ly:translator-context trans)) "\n"))))
(cons 'start-translation-timestep
(lambda (trans)
(display (list "stop-trans"
(ly:context-moment (ly:translator-context trans)) "\n"))))
(cons 'finalize
(lambda (trans)
(display (list "finalize"
(ly:context-moment (ly:translator-context trans)) "\n"))))
)
}}
\relative { c4 r4 c }
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
