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;
26 Midi_stream::~Midi_stream()
32 Midi_stream::operator <<( String str )
36 str = String_convert::bin2hex_str( str );
37 // string now 1.0.26-2 handles binary streaming
43 Midi_stream::operator <<( Midi_item& mitem_r )
45 mitem_r.output_midi( *this );
52 Midi_stream::operator <<( int i )
54 // output binary string ourselves
55 *this << Midi_item::i2varint_str( i );
62 // *os_p_ << "% Creator: " << get_version();
63 // *os_p_ << "% Automatically generated, at ";
65 // *os_p_ << ctime(&t);
68 // String str = "MThd";
69 // 00 00 00 06 chunk length
72 // 00 60 96 per quarter-note
74 // char const ch_c_l = "0000" "0006" "0001" "0001" "0060";
75 // str += String_convert::hex2bin_str( ch_c_l );
78 // *this << Midi_header( 1, 1, tempo_i_ );
79 *this << Midi_header( 1, tracks_i_, clocks_per_4_i_ );
85 os_p_ = new ofstream( filename_str_ );
87 error ("can't open `" + filename_str_ + "\'" );