2 midi-item.cc -- implement Midi items.
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Jan Nieuwenhuizen <janneke@gnu.org>
12 #include "string-convert.hh"
13 #include "midi-item.hh"
14 #include "midi-stream.hh"
15 #include "audio-item.hh"
16 #include "duration.hh"
18 #include "killing-cons.tcc"
21 Midi_item::midi_p (Audio_item
* a
)
23 if (Audio_key
* i
= dynamic_cast<Audio_key
*> (a
))
24 return new Midi_key (i
);
25 else if (Audio_instrument
* i
= dynamic_cast<Audio_instrument
*> (a
))
26 return i
->str_
.length_i () ? new Midi_instrument (i
) : 0;
27 else if (Audio_note
* i
= dynamic_cast<Audio_note
*> (a
))
28 return new Midi_note (i
);
29 else if (Audio_dynamic
* i
= dynamic_cast<Audio_dynamic
*> (a
))
30 return new Midi_dynamic (i
);
31 else if (Audio_piano_pedal
* i
= dynamic_cast<Audio_piano_pedal
*> (a
))
32 return new Midi_piano_pedal (i
);
33 else if (Audio_tempo
* i
= dynamic_cast<Audio_tempo
*> (a
))
34 return new Midi_tempo (i
);
35 else if (Audio_time_signature
* i
= dynamic_cast<Audio_time_signature
*> (a
))
36 return new Midi_time_signature (i
);
37 else if (Audio_text
* i
= dynamic_cast<Audio_text
*> (a
))
38 return i
->text_str_
.length_i () ? new Midi_text (i
) : 0;
47 Midi_chunk::set (String header_str
, String data_str
, String footer_str
)
50 footer_str_
= footer_str
;
51 header_str_
= header_str
;
55 Midi_chunk::data_str () const
61 Midi_chunk::str () const
63 String str
= header_str_
;
64 String dat
= data_str ();
65 String length_str
= String_convert::i2hex_str (dat
.length_i ()
66 + footer_str_
.length_i (), 8, '0');
67 length_str
= String_convert::hex2bin_str (length_str
);
74 Midi_duration::Midi_duration (Real seconds_f
)
76 seconds_f_
= seconds_f
;
80 Midi_duration::str () const
82 return String ("<duration: ") + to_str (seconds_f_
) + ">";
85 Midi_event::Midi_event (Moment delta_mom
, Midi_item
* midi_p
)
87 delta_mom_
= delta_mom
;
92 Midi_event::str () const
94 int delta_i
= delta_mom_
* Moment (384 * 4); // ugh.
96 String delta_str
= Midi_item::i2varint_str (delta_i
);
97 String midi_str
= midi_p_
->str ();
98 assert (midi_str
.length_i ());
99 return delta_str
+ midi_str
;
103 Midi_header::Midi_header (int format_i
, int tracks_i
, int clocks_per_4_i
)
107 String format_str
= String_convert::i2hex_str (format_i
, 4, '0');
108 str
+= String_convert::hex2bin_str (format_str
);
110 String tracks_str
= String_convert::i2hex_str (tracks_i
, 4, '0');
111 str
+= String_convert::hex2bin_str (tracks_str
);
113 String tempo_str
= String_convert::i2hex_str (clocks_per_4_i
, 4, '0');
114 str
+= String_convert::hex2bin_str (tempo_str
);
116 set ("MThd", str
, "");
120 /* why doesn't this start at 0 ?
124 char const* const instrument_name_sz_a_
[ ] = {
125 /* default is usually piano */
129 /* 1 */ "acoustic grand",
130 /* 2 */ "bright acoustic",
131 /* 3 */ "electric grand",
132 /* 4 */ "honky-tonk",
133 /* 5 */ "electric piano 1",
134 /* 6 */ "electric piano 2",
135 /* 7 */ "harpsichord",
138 /* (9-16 chrom percussion) */
140 /* 10 */ "glockenspiel",
141 /* 11 */ "music box",
142 /* 12 */ "vibraphone",
144 /* 14 */ "xylophone",
145 /* 15 */ "tubular bells",
149 /* 17 */ "drawbar organ",
150 /* 18 */ "percussive organ",
151 /* 19 */ "rock organ",
152 /* 20 */ "church organ",
153 /* 21 */ "reed organ",
154 /* 22 */ "accordion",
155 /* 23 */ "harmonica",
156 /* 24 */ "concertina",
159 /* 25 */ "acoustic guitar (nylon)",
160 /* 26 */ "acoustic guitar (steel)",
161 /* 27 */ "electric guitar (jazz)",
162 /* 28 */ "electric guitar (clean)",
163 /* 29 */ "electric guitar (muted)",
164 /* 30 */ "overdriven guitar",
165 /* 31 */ "distorted guitar",
166 /* 32 */ "guitar harmonics",
169 /* 33 */ "acoustic bass",
170 /* 34 */ "electric bass (finger)",
171 /* 35 */ "electric bass (pick)",
172 /* 36 */ "fretless bass",
173 /* 37 */ "slap bass 1",
174 /* 38 */ "slap bass 2",
175 /* 39 */ "synth bass 1",
176 /* 40 */ "synth bass 2",
178 /* (41-48 strings) */
182 /* 44 */ "contrabass",
183 /* 45 */ "tremolo strings",
184 /* 46 */ "pizzicato strings",
185 /* 47 */ "orchestral strings",
188 /* (49-56 ensemble) */
189 /* 49 */ "string ensemble 1",
190 /* 50 */ "string ensemble 2",
191 /* 51 */ "synthstrings 1",
192 /* 52 */ "synthstrings 2",
193 /* 53 */ "choir aahs",
194 /* 54 */ "voice oohs",
195 /* 55 */ "synth voice",
196 /* 56 */ "orchestra hit",
202 /* 60 */ "muted trumpet",
203 /* 61 */ "french horn",
204 /* 62 */ "brass section",
205 /* 63 */ "synthbrass 1",
206 /* 64 */ "synthbrass 2",
209 /* 65 */ "soprano sax",
211 /* 67 */ "tenor sax",
212 /* 68 */ "baritone sax",
214 /* 70 */ "english horn",
222 /* 76 */ "pan flute",
223 /* 77 */ "blown bottle",
224 /* 78 */ "skakuhachi",
228 /* (81-88 synth lead) */
229 /* 81 */ "lead 1 (square)",
230 /* 82 */ "lead 2 (sawtooth)",
231 /* 83 */ "lead 3 (calliope)",
232 /* 84 */ "lead 4 (chiff)",
233 /* 85 */ "lead 5 (charang)",
234 /* 86 */ "lead 6 (voice)",
235 /* 87 */ "lead 7 (fifths)",
236 /* 88 */ "lead 8 (bass+lead)",
238 /* (89-96 synth pad) */
239 /* 89 */ "pad 1 (new age)",
240 /* 90 */ "pad 2 (warm)",
241 /* 91 */ "pad 3 (polysynth)",
242 /* 92 */ "pad 4 (choir)",
243 /* 93 */ "pad 5 (bowed)",
244 /* 94 */ "pad 6 (metallic)",
245 /* 95 */ "pad 7 (halo)",
246 /* 96 */ "pad 8 (sweep)",
248 /* (97-104 synth effects) */
249 /* 97 */ "fx 1 (rain)",
250 /* 98 */ "fx 2 (soundtrack)",
251 /* 99 */ "fx 3 (crystal)",
252 /* 100 */ "fx 4 (atmosphere)",
253 /* 101 */ "fx 5 (brightness)",
254 /* 102 */ "fx 6 (goblins)",
255 /* 103 */ "fx 7 (echoes)",
256 /* 104 */ "fx 8 (sci-fi)",
258 /* (105-112 ethnic) */
261 /* 107 */ "shamisen",
268 /* (113-120 percussive) */
269 /* 113 */ "tinkle bell",
271 /* 115 */ "steel drums",
272 /* 116 */ "woodblock",
273 /* 117 */ "taiko drum",
274 /* 118 */ "melodic tom",
275 /* 119 */ "synth drum",
276 /* 120 */ "reverse cymbal",
278 /* (121-128 sound effects) */
279 /* 121 */ "guitar fret noise",
280 /* 122 */ "breath noise",
281 /* 123 */ "seashore",
282 /* 124 */ "bird tweet",
283 /* 125 */ "telephone ring",
284 /* 126 */ "helicopter",
285 /* 127 */ "applause",
290 Midi_instrument::Midi_instrument (Audio_instrument
* a
)
293 audio_l_
->str_
.to_lower ();
297 Midi_instrument::str () const
299 Byte program_byte
= 0;
301 for (int i
= 0; !found
&& instrument_name_sz_a_
[i
]; i
++)
302 if (audio_l_
->str_
== String (instrument_name_sz_a_
[ i
]))
304 program_byte
= (Byte
)i
;
310 warning (_f ("no such instrument: `%s'", audio_l_
->str_
.ch_C ()));
313 String str
= to_str ((char) (0xc0 + channel_i_
));
314 str
+= to_str ((char)program_byte
);
318 Midi_item::Midi_item ()
323 Midi_item::~Midi_item ()
328 Midi_item::i2varint_str (int i
)
330 int buffer_i
= i
& 0x7f;
331 while ( (i
>>= 7) > 0)
335 buffer_i
+= (i
& 0x7f);
341 str
+= to_str ((char)buffer_i
);
350 Midi_key::Midi_key (Audio_key
*a
)
356 Midi_key::str () const
359 int sharps_i
= 0; //audio_l_->key_.sharps_i ();
360 int flats_i
= 0; //audio_l_->key_.flats_i ();
362 // midi cannot handle non-conventional keys
363 if (flats_i
&& sharps_i
)
365 String str
= _f ("unconventional key: flats: %d, sharps: %d", flats_i
,
367 flats_i
= sharps_i
= 0;
369 int accidentals_i
= sharps_i
- flats_i
;
371 String str
= "ff5902";
372 str
+= String_convert::i2hex_str (accidentals_i
, 2, '0');
374 // (int)audio_l_->key_.minor_b ()
375 str
+= String_convert::i2hex_str (0, 2, '0');
376 return String_convert::hex2bin_str (str
);
379 Midi_time_signature::Midi_time_signature (Audio_time_signature
* a
)
382 clocks_per_1_i_
= 18;
386 Midi_time_signature::str () const
388 int num_i
= audio_l_
->beats_i_
;
389 int den_i
= audio_l_
->one_beat_i_
;
391 String str
= "ff5804";
392 str
+= String_convert::i2hex_str (num_i
, 2, '0');
393 str
+= String_convert::i2hex_str (intlog2 (den_i
) , 2, '0');
394 str
+= String_convert::i2hex_str (clocks_per_1_i_
, 2, '0');
395 str
+= String_convert::i2hex_str (8, 2, '0');
396 return String_convert::hex2bin_str (str
);
399 Midi_note::Midi_note (Audio_note
* a
)
402 dynamic_byte_
= 0x7f;
406 Midi_note::length_mom () const
408 Moment m
= audio_l_
->length_mom_
;
410 if (m
< Moment (1, 1000))
412 warning (_ ("silly duration"));
420 Midi_note::pitch_i () const
422 int p
= audio_l_
->pitch_
.semitone_pitch () + audio_l_
->transposing_i_
;
425 warning (_ ("silly pitch"));
432 Midi_note::str () const
434 Byte status_byte
= (char) (0x90 + channel_i_
);
436 String str
= to_str ((char)status_byte
);
437 str
+= to_str ((char) (pitch_i () + c0_pitch_i_c_
));
439 str
+= to_str ((char)dynamic_byte_
);
443 Midi_note_off::Midi_note_off (Midi_note
* n
)
444 : Midi_note (n
->audio_l_
)
447 channel_i_
= n
->channel_i_
;
449 // Anybody who hears any difference, or knows how this works?
450 // 0 should definitely be avoided, notes stick on some sound cards.
451 // 64 is supposed to be neutral
452 aftertouch_byte_
= 64;
457 Midi_note_off::str () const
459 Byte status_byte
= (char) (0x80 + channel_i_
);
461 String str
= to_str ((char)status_byte
);
462 str
+= to_str ((char) (pitch_i () + Midi_note::c0_pitch_i_c_
));
463 str
+= to_str ((char)aftertouch_byte_
);
467 Midi_dynamic::Midi_dynamic (Audio_dynamic
* a
)
473 Midi_dynamic::str () const
475 Byte status_byte
= (char) (0xB0 + channel_i_
);
476 String str
= to_str ((char)status_byte
);
479 Main volume controller (per channel):
483 static Real
const full_scale
= 127;
485 int volume
= (int)(audio_l_
->volume_
*full_scale
);
488 if (volume
> full_scale
)
489 volume
= (int)full_scale
;
491 str
+= to_str ((char)0x07);
492 str
+= to_str ((char)volume
);
496 Midi_piano_pedal::Midi_piano_pedal (Audio_piano_pedal
* a
)
502 Midi_piano_pedal::str () const
504 Byte status_byte
= (char) (0xB0 + channel_i_
);
505 String str
= to_str ((char)status_byte
);
507 if (audio_l_
->type_str_
== "Sostenuto")
508 str
+= to_str ((char)0x42);
509 else if (audio_l_
->type_str_
== "Sustain")
510 str
+= to_str ((char)0x40);
511 else if (audio_l_
->type_str_
== "UnaChorda")
512 str
+= to_str ((char)0x43);
514 int pedal
= ((1 - audio_l_
->dir_
) / 2 ) * 0x7f;
515 str
+= to_str ((char)pedal
);
519 Midi_tempo::Midi_tempo (Audio_tempo
* a
)
525 Midi_tempo::str () const
527 int useconds_per_4_i
= 60 * (int)1e6
/ audio_l_
->per_minute_4_i_
;
528 String str
= "ff5103";
529 str
+= String_convert::i2hex_str (useconds_per_4_i
, 6, '0');
530 return String_convert::hex2bin_str (str
);
533 Midi_text::Midi_text (Audio_text
* a
)
539 Midi_text::Midi_text (Midi_text::Type type
, String text_str
)
542 text_str_
= text_str
;
548 Midi_text::str () const
550 String str
= "ff" + String_convert::i2hex_str (audio_l_
->type_
, 2, '0');
551 str
= String_convert::hex2bin_str (str
);
552 str
+= i2varint_str (audio_l_
->text_str_
.length_i ());
553 str
+= audio_l_
->text_str_
;
557 Midi_track::Midi_track ()
561 // 00 00 00 3B chunk length (59)
562 // 00 FF 58 04 04 02 18 08 time signature
563 // 00 FF 51 03 07 A1 20 tempo
565 // FF 59 02 sf mi Key Signature
576 char const* data_ch_C
= ""
577 // "00" "ff58" "0404" "0218" "08"
578 // "00" "ff51" "0307" "a120"
579 // why a key at all, in midi?
581 // "00" "ff59" "02" "00" "00"
582 // key: F (scsii-menuetto)
583 // "00" "ff59" "02" "ff" "00"
587 // only for format 0 (currently using format 1)?
588 data_str
+= String_convert::hex2bin_str (data_ch_C
);
590 char const* footer_ch_C
= "00" "ff2f" "00";
591 String footer_str
= String_convert::hex2bin_str (footer_ch_C
);
593 set ("MTrk", data_str
, footer_str
);
597 Midi_track::add (Moment delta_time_mom
, Midi_item
* midi_p
)
599 assert (delta_time_mom
>= Moment (0));
601 Midi_event
* e
= new Midi_event (delta_time_mom
, midi_p
);
602 event_p_list_
.append (new Killing_cons
<Midi_event
> (e
, 0));
606 Midi_track::data_str () const
608 String str
= Midi_chunk::data_str ();
609 if (flower_dstream
&& !flower_dstream
->silent_b ("Midistrings"))
611 for (Cons
<Midi_event
> *i
=event_p_list_
.head_
; i
; i
= i
->next_
)
613 str
+= i
->car_
->str ();
614 if (flower_dstream
&& !flower_dstream
->silent_b ("Midistrings"))