]> git.donarmstrong.com Git - lilypond.git/blob - m2m/track-column.cc
release: 0.0.39-1
[lilypond.git] / m2m / track-column.cc
1 //
2 // track-column.cc -- implement Track_column
3 //
4 // copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
5
6 #include "m2m.hh"
7
8 Track_column::Track_column( Moment mom )
9 {
10         mom_ = mom;
11 }
12
13 void 
14 Track_column::add_event( Midi_event* midi_event_p )
15 {
16         midi_event_p_list_.bottom().add( midi_event_p );
17 }
18
19 Moment
20 Track_column::mom()
21 {
22         return mom_;
23 }