I am interested in the code necessary to output the event streams, as
in your Master's thesis. I am looking at event streams with repect to
using them to help generate better MIDI output. My naive attempt
(below) obviously does not work.
(Note, the following causes a segmentation fault. Is this considered
the cost of doing business when playing around with guile embeddeds,
or should this be considered a bug?)
\version "2.9.19"
#(define (process-event event)
(display event)
(newline))
#(define (test music)
(let* ((odef (ly:make-output-def))
(global (ly:make-global-context odef))
(listener (ly:make-listener process-event))
(global-disp (ly:context-events-below global))
(disp (ly:make-dispatcher)))
(ly:connect-dispatchers disp global-disp)
(ly:add-listener listener disp 'StreamEvent)
(ly:interpret-music-expression music global)))
#(test #{ <a b>4 << a \\ b >> #})
--
Michael Welsh Duggan
([EMAIL PROTECTED])
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
