]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/score-performer.cc
release: 0.1.0
[lilypond.git] / lily / score-performer.cc
index 5d3c98b84263ed13a54cdd8924ad108c59f1de91..df8ff16747e06cf2d3f89a8a20c43d34ef025d63 100644 (file)
@@ -105,6 +105,9 @@ Score_performer::header(Midi_stream &output_stream)
                          + String_convert::i2dec_str( 0, 0, '0' ) );
     midi_track.add( Moment( 0 ), &track_name );
 
+    Midi_tempo tempo ( get_tempo_i());
+    midi_track.add( Moment(0), &tempo);
+
     output_stream  << midi_track;
 }
 
@@ -131,6 +134,11 @@ Score_performer::set_score(Score* score_l )
 void
 Score_performer::start()
 {
+    //<ugh>
+    int track_i = 1;
+    Performer_group_performer::set_track( track_i );
+    //</ugh>
+
     if ( midi_l_->outfile_str_ == "" )
        midi_l_->outfile_str_ = default_out_fn + ".midi";
 }