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_
+ "\'" );