From: fred <fred>
Date: Sun, 24 Mar 2002 19:52:27 +0000 (+0000)
Subject: lilypond-0.1.0
X-Git-Tag: release/1.5.59~4196
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5673fa200f133603d3ffad7d64cdaa5eac02a63d;p=lilypond.git

lilypond-0.1.0
---

diff --git a/lily/score-performer.cc b/lily/score-performer.cc
index 5d3c98b842..df8ff16747 100644
--- a/lily/score-performer.cc
+++ b/lily/score-performer.cc
@@ -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";
 }