4 // source file of the LilyPond music typesetter
6 // (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
12 #include "midiitem.hh"
13 #include "midistream.hh"
16 Midi_stream::Midi_stream( String filename_str, int tracks_i, int clocks_per_4_i )
18 filename_str_ = filename_str;
20 clocks_per_4_i_ = clocks_per_4_i;
25 Midi_stream::~Midi_stream()
31 Midi_stream::operator <<( String str )
35 str = StringConversion::bin2hex_str( str );
36 // string now 1.0.26-2 handles binary streaming
42 Midi_stream::operator <<( Midi_item& mitem_r )
44 mitem_r.output_midi( *this );
51 Midi_stream::operator <<( int i )
53 // output binary string ourselves
54 *this << Midi_item::int2varlength_str( i );
61 // *os_p_ << "% Creator: " << get_version();
62 // *os_p_ << "% Automatically generated, at ";
64 // *os_p_ << ctime(&t);
67 // String str = "MThd";
68 // 00 00 00 06 chunk length
71 // 00 60 96 per quarter-note
73 // char const ch_c_l = "0000" "0006" "0001" "0001" "0060";
74 // str += StringConversion::hex2bin_str( ch_c_l );
77 // *this << Midi_header( 1, 1, tempo_i_ );
78 *this << Midi_header( 1, tracks_i_, clocks_per_4_i_ );
84 os_p_ = new ofstream( filename_str_ );
86 error ("can't open `" + filename_str_ + "\'" );