2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--2011 Jan Nieuwenhuizen <janneke@gnu.org>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "midi-item.hh"
22 #include "duration.hh"
23 #include "international.hh"
25 #include "midi-stream.hh"
27 #include "program-option.hh"
28 #include "string-convert.hh"
31 #define PITCH_WHEEL_TOP 0x3FFF
32 #define PITCH_WHEEL_CENTER 0x2000
33 #define PITCH_WHEEL_BOTTOM 0x0000
34 #define PITCH_WHEEL_RANGE (PITCH_WHEEL_TOP - PITCH_WHEEL_BOTTOM)
37 Midi_item::get_midi (Audio_item
*a
)
39 if (Audio_key
*i
= dynamic_cast<Audio_key
*> (a
))
40 return new Midi_key (i
);
41 else if (Audio_instrument
*i
= dynamic_cast<Audio_instrument
*> (a
))
42 return i
->str_
.length () ? new Midi_instrument (i
) : 0;
43 else if (Audio_note
*i
= dynamic_cast<Audio_note
*> (a
))
44 return new Midi_note (i
);
45 else if (Audio_dynamic
*i
= dynamic_cast<Audio_dynamic
*> (a
))
46 return new Midi_dynamic (i
);
47 else if (Audio_piano_pedal
*i
= dynamic_cast<Audio_piano_pedal
*> (a
))
48 return new Midi_piano_pedal (i
);
49 else if (Audio_tempo
*i
= dynamic_cast<Audio_tempo
*> (a
))
50 return new Midi_tempo (i
);
51 else if (Audio_time_signature
*i
= dynamic_cast<Audio_time_signature
*> (a
))
52 return new Midi_time_signature (i
);
53 else if (Audio_text
*i
= dynamic_cast<Audio_text
*> (a
))
54 return new Midi_text (i
);
63 Midi_duration::Midi_duration (Real seconds_f
)
69 Midi_duration::to_string () const
71 return string ("<duration: ") + ::to_string (seconds_
) + ">";
74 Midi_instrument::Midi_instrument (Audio_instrument
*a
)
75 : Midi_channel_item (a
)
78 audio_
->str_
= String_convert::to_lower (audio_
->str_
);
82 Midi_instrument::to_string () const
84 Byte program_byte
= 0;
87 SCM proc
= ly_lily_module_constant ("midi-program");
88 SCM program
= scm_call_1 (proc
, ly_symbol2scm (audio_
->str_
.c_str ()));
89 found
= (program
!= SCM_BOOL_F
);
91 program_byte
= (Byte
) scm_to_int (program
);
93 warning (_f ("no such MIDI instrument: `%s'", audio_
->str_
.c_str ()));
95 string str
= ::to_string ((char) (0xc0 + channel_
)); //YIKES! FIXME : Should be track. -rz
96 str
+= ::to_string ((char)program_byte
);
100 Midi_item::Midi_item ()
104 Midi_channel_item::Midi_channel_item (Audio_item
*ai
)
105 : channel_ (ai
->channel_
)
109 Midi_item::~Midi_item ()
114 int2midi_varint_string (int i
)
116 int buffer
= i
& 0x7f;
117 while ((i
>>= 7) > 0)
121 buffer
+= (i
& 0x7f);
127 str
+= ::to_string ((char)buffer
);
136 Midi_key::Midi_key (Audio_key
*a
)
142 Midi_key::to_string () const
144 string str
= "ff5902";
145 str
+= String_convert::int2hex (audio_
->accidentals_
, 2, '0');
147 str
+= String_convert::int2hex (0, 2, '0');
149 str
+= String_convert::int2hex (1, 2, '0');
150 return String_convert::hex2bin (str
);
153 Midi_time_signature::Midi_time_signature (Audio_time_signature
*a
)
160 Midi_time_signature::to_string () const
162 int num
= abs (audio_
->beats_
);
165 warning ("Time signature with more than 255 beats. Truncating");
169 int den
= audio_
->one_beat_
;
173 string str
= "ff5804";
174 str
+= String_convert::int2hex (num
, 2, '0');
175 str
+= String_convert::int2hex (intlog2 (den
), 2, '0');
176 str
+= String_convert::int2hex (clocks_per_1_
, 2, '0');
177 str
+= String_convert::int2hex (8, 2, '0');
178 return String_convert::hex2bin (str
);
181 Midi_note::Midi_note (Audio_note
*a
)
182 : Midi_channel_item (a
)
184 , dynamic_byte_ (a
->volume_
> 0 ? Byte (a
->volume_
* 0x7f) : Byte (0x5a))
189 Midi_note::get_fine_tuning () const
191 Rational tune
= (audio_
->pitch_
.tone_pitch ()
192 + audio_
->transposing_
.tone_pitch ()) * Rational (2);
193 tune
-= Rational (get_semitone_pitch ());
196 return (int) double (tune
);
200 Midi_note::get_semitone_pitch () const
202 return int (double ((audio_
->pitch_
.tone_pitch ()
203 + audio_
->transposing_
.tone_pitch ()) * Rational (2)));
207 Midi_note::to_string () const
209 Byte status_byte
= (char) (0x90 + channel_
);
213 // print warning if fine tuning was needed, HJJ
214 if (get_fine_tuning () != 0)
216 finetune
= PITCH_WHEEL_CENTER
;
217 // Move pitch wheel to a shifted position.
218 // The pitch wheel range (of 4 semitones) is multiplied by the cents.
219 finetune
+= (PITCH_WHEEL_RANGE
*get_fine_tuning ()) / (4 * 100);
221 str
+= ::to_string ((char) (0xE0 + channel_
));
222 str
+= ::to_string ((char) (finetune
& 0x7F));
223 str
+= ::to_string ((char) (finetune
>> 7));
224 str
+= ::to_string ((char) (0x00));
227 str
+= ::to_string ((char) status_byte
);
228 str
+= ::to_string ((char) (get_semitone_pitch () + c0_pitch_
));
229 str
+= ::to_string ((char) dynamic_byte_
);
234 Midi_note_off::Midi_note_off (Midi_note
*n
)
235 : Midi_note (n
->audio_
)
238 channel_
= n
->channel_
;
240 // use note_on with velocity=0 instead of note_off
241 aftertouch_byte_
= 0;
245 Midi_note_off::to_string () const
247 Byte status_byte
= (char) (0x90 + channel_
);
249 string str
= ::to_string ((char)status_byte
);
250 str
+= ::to_string ((char) (get_semitone_pitch () + Midi_note::c0_pitch_
));
251 str
+= ::to_string ((char)aftertouch_byte_
);
253 if (get_fine_tuning () != 0)
255 // Move pitch wheel back to the central position.
256 str
+= ::to_string ((char) 0x00);
257 str
+= ::to_string ((char) (0xE0 + channel_
));
258 str
+= ::to_string ((char) (PITCH_WHEEL_CENTER
&0x7F));
259 str
+= ::to_string ((char) (PITCH_WHEEL_CENTER
>> 7));
265 Midi_dynamic::Midi_dynamic (Audio_dynamic
*a
)
266 : Midi_channel_item (a
)
272 Midi_dynamic::to_string () const
274 if (audio_
->volume_
< 0)
277 Byte status_byte
= (char) (0xB0 + channel_
);
278 string str
= ::to_string ((char)status_byte
);
281 Main volume controller (per channel):
285 static Real
const full_scale
= 127;
287 int volume
= (int) (audio_
->volume_
* full_scale
);
290 if (volume
> full_scale
)
291 volume
= (int)full_scale
;
293 str
+= ::to_string ((char)0x07);
294 str
+= ::to_string ((char)volume
);
298 Midi_piano_pedal::Midi_piano_pedal (Audio_piano_pedal
*a
)
299 : Midi_channel_item (a
)
305 Midi_piano_pedal::to_string () const
307 Byte status_byte
= (char) (0xB0 + channel_
);
308 string str
= ::to_string ((char)status_byte
);
310 if (audio_
->type_string_
== "Sostenuto")
311 str
+= ::to_string ((char)0x42);
312 else if (audio_
->type_string_
== "Sustain")
313 str
+= ::to_string ((char)0x40);
314 else if (audio_
->type_string_
== "UnaCorda")
315 str
+= ::to_string ((char)0x43);
317 int pedal
= ((1 - audio_
->dir_
) / 2) * 0x7f;
318 str
+= ::to_string ((char)pedal
);
322 Midi_tempo::Midi_tempo (Audio_tempo
*a
)
328 Midi_tempo::to_string () const
330 int useconds_per_4
= 60 * (int)1e6
/ audio_
->per_minute_4_
;
331 string str
= "ff5103";
332 str
+= String_convert::int2hex (useconds_per_4
, 6, '0');
333 return String_convert::hex2bin (str
);
336 Midi_text::Midi_text (Audio_text
*a
)
342 Midi_text::to_string () const
344 string str
= "ff" + String_convert::int2hex (audio_
->type_
, 2, '0');
345 str
= String_convert::hex2bin (str
);
346 str
+= int2midi_varint_string (audio_
->text_string_
.length ());
347 str
+= audio_
->text_string_
;
352 Midi_item::name () const
354 return this->class_name ();