source file of the GNU LilyPond music typesetter
- (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
+ (c) 1997--1999 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "proto.hh"
-#include "plist.hh"
#include "debug.hh"
#include "misc.hh"
#include "string.hh"
#include "midi-stream.hh"
#include "audio-item.hh"
-IMPLEMENT_IS_TYPE_B(Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_chunk, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_duration, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_header, Midi_chunk);
-IMPLEMENT_IS_TYPE_B1(Midi_instrument, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_key,Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_meter, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_note, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_note_off, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_tempo, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_text, Midi_item);
-IMPLEMENT_IS_TYPE_B1(Midi_track, Midi_chunk);
-
-Midi_chunk::Midi_chunk()
- : Midi_item (0)
-{
-}
+#include "killing-cons.tcc"
-void
-Midi_chunk::add (String str)
+Midi_chunk::Midi_chunk ()
+ : Midi_item (0)
{
- data_str_ += str;
}
void
}
String
-Midi_chunk::str() const
+Midi_chunk::data_str () const
+{
+ return data_str_;
+}
+
+String
+Midi_chunk::str () const
{
String str = header_str_;
- String length_str = String_convert::i2hex_str (data_str_.length_i() + footer_str_.length_i (), 8, '0');
+ String dat = data_str ();
+#if 1
+ String length_str = String_convert::i2hex_str (dat.length_i ()
+#else
+ // huh, huh??
+ String length_str = String_convert::i2hex_str (data_str_.length_i ()
+#endif
+ + footer_str_.length_i (), 8, '0');
length_str = String_convert::hex2bin_str (length_str);
str += length_str;
- str += data_str_;
+ str += dat;
str += footer_str_;
return str;
}
}
String
-Midi_duration::str() const
+Midi_duration::str () const
+{
+ return String ("<duration: ") + to_str (seconds_f_) + ">";
+}
+
+Midi_event::Midi_event (Moment delta_mom, Midi_item* mitem_p)
{
- return String ("<duration: ") + String (seconds_f_ ) + ">";
+ delta_mom_ = delta_mom;
+ mitem_p_ = mitem_p;
}
+Midi_event::~Midi_event ()
+{
+// uhuh
+// delete mitem_p_;
+}
+
+String
+Midi_event::str () const
+{
+ int delta_i = delta_mom_ * Moment (Duration::division_1_i_s);
+ String delta_str = Midi_item::i2varint_str (delta_i);
+ String mitem_str = mitem_p_->str ();
+ assert (mitem_str.length_i ());
+ return delta_str + mitem_str;
+}
+
+
Midi_header::Midi_header (int format_i, int tracks_i, int clocks_per_4_i)
- : Midi_chunk()
+ : Midi_chunk ()
{
String str;
set ("MThd", str, "");
}
+/* why doesn't this start at 0 ?
+ */
char const* const instrument_name_sz_a_[ ] = {
-
/* default is usually piano */
- /* 0 */ "piano",
+ /* 0 "piano", */
- /* (1-8 piano) */
- /* 1 */ "acoustic grand",
+ /* (1-8 piano) */
+ /* 1 */ "acoustic grand",
/* 2 */ "bright acoustic",
/* 3 */ "electric grand",
/* 4 */ "honky-tonk",
/* 19 */ "rock organ",
/* 20 */ "church organ",
/* 21 */ "reed organ",
- /* 22 */ "accoridan",
+ /* 22 */ "accordion",
/* 23 */ "harmonica",
- /* 24 */ "tango accordian",
+ /* 24 */ "concertina",
/* (25-32 guitar) */
/* 25 */ "acoustic guitar (nylon)",
/* 28 */ "electric guitar (clean)",
/* 29 */ "electric guitar (muted)",
/* 30 */ "overdriven guitar",
- /* 31 */ "distortion guitar",
+ /* 31 */ "distorted guitar",
/* 32 */ "guitar harmonics",
/* (33-40 bass) */
: Midi_item (0)
{
instrument_str_ = instrument_str;
- instrument_str_.to_lower();
+ instrument_str_.to_lower ();
channel_i_ = channel_i;
}
-
+
+Midi_item::~Midi_item ()
+{
+}
+
String
-Midi_instrument::str() const
+Midi_instrument::str () const
{
Byte program_byte = 0;
- for ( int i = 0; instrument_name_sz_a_[i]; i++)
- if ( instrument_str_ == String (instrument_name_sz_a_[ i ]))
+ bool found = false;
+ for (int i = 0; !found && instrument_name_sz_a_[i]; i++)
+ if (instrument_str_ == String (instrument_name_sz_a_[ i ]))
{
program_byte = (Byte)i;
- break;
+ found = true;
}
- String str = String ((char)( 0xc0 + channel_i_) );
- str += String ((char)program_byte);
+ if (!found)
+ {
+ warning (_f("No such instrument: `%s'", instrument_str_.ch_C ()));
+ }
+
+ String str = to_str ((char) (0xc0 + channel_i_));
+ str += to_str ((char)program_byte);
return str;
}
channel_i_ = 0;
}
-void
-Midi_item::output (Midi_stream* midi_stream_l) const
-{
- *midi_stream_l << str();
-}
-
String
Midi_item::i2varint_str (int i)
{
}
String str;
- while ( 1)
+ while (1)
{
- str += (char)buffer_i;
- if ( buffer_i & 0x80)
+ str += to_str ((char)buffer_i);
+ if (buffer_i & 0x80)
buffer_i >>= 8;
else
break;
}
String
-Midi_key::str() const
+Midi_key::str () const
{
- Key_change_req* k = audio_item_l_->req_l_->command()->keychange ();
- int sharps_i = k->sharps_i();
- int flats_i = k->flats_i();
+ Key_change_req* k = dynamic_cast <Key_change_req *> (audio_item_l_->req_l_);
+ int sharps_i = k->sharps_i ();
+ int flats_i = k->flats_i ();
// midi cannot handle non-conventional keys
- if ( flats_i && sharps_i)
- return "";
+ if (flats_i && sharps_i)
+ {
+ String str = _f ("unconventional key: flats: %d, sharps: %d", flats_i,
+ sharps_i);
+ flats_i = sharps_i = 0;
+ }
int accidentals_i = sharps_i - flats_i;
String str = "ff5902";
str += String_convert::i2hex_str (accidentals_i, 2, '0');
- int minor_i = k->minor_b();
+ int minor_i = k->minor_b ();
str += String_convert::i2hex_str (minor_i, 2, '0');
return String_convert::hex2bin_str (str);
}
-Midi_meter::Midi_meter (Audio_item* audio_item_l)
+Midi_time_signature::Midi_time_signature (Audio_item* audio_item_l)
: Midi_item (audio_item_l)
{
clocks_per_1_i_ = 18;
}
String
-Midi_meter::str() const
+Midi_time_signature::str () const
{
- Meter_change_req* m = audio_item_l_->req_l_->command()->meterchange ();
+ Time_signature_change_req* m = dynamic_cast <Time_signature_change_req *> (audio_item_l_->req_l_);
int num_i = m->beats_i_;
int den_i = m->one_beat_i_;
String str = "ff5804";
str += String_convert::i2hex_str (num_i, 2, '0');
- str += String_convert::i2hex_str (intlog2( den_i) , 2, '0' );
+ str += String_convert::i2hex_str (intlog2 (den_i) , 2, '0');
str += String_convert::i2hex_str (clocks_per_1_i_, 2, '0');
str += String_convert::i2hex_str (8, 2, '0');
return String_convert::hex2bin_str (str);
: Midi_item (audio_item_l)
{
dynamic_byte_ = 0x7f;
+ assert (dynamic_cast<Audio_note*> (audio_item_l));
}
Moment
-Midi_note::duration() const
+Midi_note::length_mom () const
{
- return audio_item_l_->req_l_->musical()->rhythmic ()->duration ();
+ Moment m = dynamic_cast <Rhythmic_req *> (audio_item_l_->req_l_)->length_mom ();
+ if (m < Moment (1, 1000))
+ {
+ warning (_ ("silly duration"));
+ m = 1;
+ }
+ return m;
}
int
-Midi_note::pitch_i() const
+Midi_note::pitch_i () const
{
- return audio_item_l_->req_l_->musical()->melodic ()->pitch ();
+ int p = dynamic_cast <Melodic_req*> (audio_item_l_->req_l_)->pitch_.semitone_pitch ()
+ + dynamic_cast<Audio_note*>(audio_item_l_)->transposing_i_;
+ if (p == INT_MAX)
+ {
+ warning (_ ("silly pitch"));
+ p = 0;
+ }
+ return p;
}
String
-Midi_note::str() const
+Midi_note::str () const
{
- if ( pitch_i() == INT_MAX)
- return String ("");
-
- Byte status_byte = (char)( 0x90 + channel_i_);
-
- String str = String ((char)status_byte);
- str += (char)( pitch_i() + c0_pitch_i_c_);
+ Byte status_byte = (char) (0x90 + channel_i_);
- // poor man's staff dynamics:
- str += (char)( dynamic_byte_ - 0x10 * channel_i_);
+ String str = to_str ((char)status_byte);
+ str += to_str ((char) (pitch_i () + c0_pitch_i_c_));
+ str += to_str ((char)dynamic_byte_);
return str;
}
}
int
-Midi_note_off::pitch_i() const
+Midi_note_off::pitch_i () const
{
- return audio_item_l_->req_l_->musical()->melodic ()->pitch ();
+ return dynamic_cast <Melodic_req *> (audio_item_l_->req_l_)->pitch_.semitone_pitch ()
+ + dynamic_cast<Audio_note*>(audio_item_l_)->transposing_i_;
}
String
-Midi_note_off::str() const
+Midi_note_off::str () const
{
- if ( pitch_i() == INT_MAX)
- return String ("");
+ Byte status_byte = (char) (0x80 + channel_i_);
- Byte status_byte = (char)( 0x80 + channel_i_);
-
- String str = String ((char)status_byte);
- str += (char)( pitch_i() + Midi_note::c0_pitch_i_c_);
- str += (char)aftertouch_byte_;
+ String str = to_str ((char)status_byte);
+ str += to_str ((char) (pitch_i () + Midi_note::c0_pitch_i_c_));
+ str += to_str ((char)aftertouch_byte_);
return str;
}
Midi_tempo::Midi_tempo (Audio_item* audio_item_l)
: Midi_item (audio_item_l)
{
- per_minute_4_i_ = ( (Audio_tempo*)audio_item_l_)->per_minute_4_i_;
+ per_minute_4_i_ = dynamic_cast<Audio_tempo*>(audio_item_l_)->per_minute_4_i_;
}
Midi_tempo::Midi_tempo (int per_minute_4_i)
}
String
-Midi_tempo::str() const
+Midi_tempo::str () const
{
int useconds_per_4_i = 60 * (int)1e6 / per_minute_4_i_;
String str = "ff5103";
Midi_text::Midi_text (Audio_item* audio_item_l)
: Midi_item (audio_item_l)
{
- text_str_ = ( (Audio_text*)audio_item_l_)->text_str_;
- type_ = (Type)( (Audio_text*)audio_item_l_)->type_;
+ text_str_ = dynamic_cast<Audio_text*>(audio_item_l_)->text_str_;
+ type_ = (Type) dynamic_cast<Audio_text*>(audio_item_l_)->type_;
}
Midi_text::Midi_text (Midi_text::Type type, String text_str)
}
String
-Midi_text::str() const
+Midi_text::str () const
{
String str = "ff" + String_convert::i2hex_str (type_, 2, '0');
str = String_convert::hex2bin_str (str);
- str += i2varint_str (text_str_.length_i());
+ str += i2varint_str (text_str_.length_i ());
str += text_str_;
return str;
}
-Midi_track::Midi_track()
- : Midi_chunk()
+Midi_track::Midi_track ()
+ : Midi_chunk ()
{
// 4D 54 72 6B MTrk
// 00 00 00 3B chunk length (59)
}
void
-Midi_track::add (int delta_time_i, String event_str)
+Midi_track::add (Moment delta_time_mom, Midi_item* mitem_p)
+{
+ assert (delta_time_mom >= Moment (0));
+
+ Midi_event * e = new Midi_event (delta_time_mom, mitem_p);
+ event_p_list_.append (new Killing_cons<Midi_event> (e, 0));
+}
+
+String
+Midi_track::data_str () const
{
- if ( delta_time_i < 0)
+ String str = Midi_chunk::data_str ();
+ if (check_debug && !monitor->silent_b ("Midistrings"))
+ str += "\n";
+ for (Cons<Midi_event> *i=event_p_list_.head_; i; i = i->next_)
{
- cout << String_convert::bin2hex_str (i2varint_str (delta_time_i) ) << endl;
- cout << String_convert::bin2hex_str (event_str) << endl;
+ str += i->car_->str ();
+ if (check_debug && !monitor->silent_b ("Midistrings"))
+ str += "\n";
}
- assert (delta_time_i >= 0);
- assert(event_str.length_i());
- Midi_chunk::add (i2varint_str (delta_time_i) + event_str );
+ return str;
}
-void
-Midi_track::add (Moment delta_time_moment, Midi_item* mitem_l)
+Midi_track::~Midi_track ()
{
- // use convention of 384 clocks per 4
- // use Duration_convert
- int delta_time_i = delta_time_moment * Moment (384) / Moment (1, 4 );
- // ? int ( delta_time_moment * 4 * 384)
- add (delta_time_i, mitem_l->str());
}
-