X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fambitus-engraver.cc;h=cd5402b2a0ac50768f80209484a92dc9d435c3c6;hb=489ffb188ae02237fa0a22763d08841a669dc2a4;hp=b8310ad3569236993c81480fdd2e3c9ff54dc475;hpb=75eebcb49e52d296b1da3e1074e0825d2c780db4;p=lilypond.git diff --git a/lily/ambitus-engraver.cc b/lily/ambitus-engraver.cc index b8310ad356..cd5402b2a0 100644 --- a/lily/ambitus-engraver.cc +++ b/lily/ambitus-engraver.cc @@ -3,18 +3,22 @@ source file of the GNU LilyPond music typesetter - (c) 2002--2006 Juergen Reuter + (c) 2002--2007 Juergen Reuter Han-Wen Nienhuys is_mus_type ("note-event")) + Stream_event *nr = info.event_cause (); + if (nr && nr->in_event_class ("note-event")) { Pitch pitch = *unsmob_pitch (nr->get_property ("pitch")); pitch_interval_.add_point (pitch); @@ -144,8 +145,8 @@ Ambitus_engraver::finalize () 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) + ? robust_scm2rational (scm_cdr (handle), Rational (0)) : Rational (0); if (sig_alter == p.get_alteration ()) { @@ -154,14 +155,14 @@ Ambitus_engraver::finalize () } 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); - ambitus_->set_object ("note-heads", scm_list_2 (heads_[DOWN]->self_scm (), - heads_[UP]->self_scm ())); + + Pointer_group_interface::add_grob (ambitus_, ly_symbol2scm ("note-heads"), heads_[DOWN]); + Pointer_group_interface::add_grob (ambitus_, ly_symbol2scm ("note-heads"), heads_[UP]); } else { @@ -180,7 +181,10 @@ Ambitus_engraver::finalize () ADD_ACKNOWLEDGER (Ambitus_engraver, note_head); ADD_TRANSLATOR (Ambitus_engraver, /* doc */ "", - /* create */ "Ambitus AmbitusLine AmbitusNoteHead AmbitusAccidental", - /* accept */ "", + /* create */ + "Ambitus " + "AmbitusLine " + "AmbitusNoteHead " + "AmbitusAccidental", /* read */ "", /* write */ "");