source file of the GNU LilyPond music typesetter
- (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2002--2007 Juergen Reuter <reuter@ipd.uka.de>
Han-Wen Nienhuys <hanwen@xs4all.nl
*/
#include "engraver.hh"
#include "axis-group-interface.hh"
+#include "item.hh"
#include "note-head.hh"
#include "pitch-interval.hh"
#include "pointer-group-interface.hh"
handle = scm_assoc (scm_from_int (p.get_notename ()),
start_key_sig_);
- int sig_alter = (handle != SCM_BOOL_F)
- ? scm_to_int (scm_cdr (handle)) : 0;
+ Rational sig_alter = (handle != SCM_BOOL_F)
+ ? ly_scm2rational (scm_cdr (handle)) : Rational (0);
if (sig_alter == p.get_alteration ())
{
}
else
{
- SCM l = scm_list_1 (scm_from_int (p.get_alteration ()));
- accidentals_[d]->set_property ("accidentals", l);
+ accidentals_[d]->set_property ("alteration", ly_rational2scm (p.get_alteration ()));
}
}
while (flip (&d) != DOWN);