/*
UGH. don't use eval.
*/
- SCM proc = scm_primitive_eval (ly_symbol2scm ("midi-program"));
+ SCM proc = ly_scheme_function ("midi-program");
SCM program = gh_call1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
found = (program != SCM_BOOL_F);
if (found)
- program_byte = gh_scm2int(program);
+ program_byte = gh_scm2int (program);
else
warning (_f ("no such MIDI instrument: `%s'", audio_->str_.to_str0 ()));
Midi_note::get_fine_tuning () const
{
int ft = audio_->pitch_.quartertone_pitch ();
- ft -= 2 * audio_->pitch_.semitone_pitch();
+ ft -= 2 * audio_->pitch_.semitone_pitch ();
ft *= 50; // 1 quarter tone = 50 cents
return ft;
}