]> git.donarmstrong.com Git - lilypond.git/blob - lily/audio-staff.cc
Run `make grand-replace'.
[lilypond.git] / lily / audio-staff.cc
1 /*
2   audio-staff.cc -- implement Audio_staff
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2008 Jan Nieuwenhuizen <janneke@gnu.org>
7 */
8
9 #include "audio-staff.hh"
10
11 #include "midi-chunk.hh"
12 #include "midi-stream.hh"
13 #include "midi-walker.hh"
14
15 void
16 Audio_staff::add_audio_item (Audio_item *l)
17 {
18   audio_items_.push_back (l);
19 }
20
21 Audio_staff::Audio_staff ()
22 {
23   channel_ = -1; 
24 }
25
26 void
27 Audio_staff::output (Midi_stream &midi_stream, int channel)
28 {
29   Midi_track midi_track;
30   midi_track.number_ = channel;
31
32   Midi_walker i (this, &midi_track, channel);
33   for (; i.ok (); i++)
34     i.process ();
35
36   i.finalize ();
37   
38   midi_stream.write (midi_track);
39 }
40