source file of the GNU LilyPond music typesetter
- (c) 1997--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1997--2004 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "warn.hh"
/*
UGH. don't use eval.
*/
- SCM proc = scm_primitive_eval (ly_symbol2scm ("midi-program"));
- SCM program = gh_call1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
+ SCM proc = ly_scheme_function ("midi-program");
+ SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
found = (program != SCM_BOOL_F);
if (found)
- program_byte = gh_scm2int(program);
+ program_byte = ly_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;
}