- SCM old = me->get_grob_property ("old-accidentals");
-
- /*
- Add half a space between cancellation and key sig.
-
- As suggested by [Ross], p.148.
- */
- Interval x (0, inter);
- Interval y (0,0);
-
- mol.add_at_edge (X_AXIS, LEFT, Lookup::blank (Box (x,y)), 0, 0);
-
- Molecule natural;
- if (gh_pair_p (old))
- natural=Font_interface::get_default_font (me)->
- find_by_name (String ("accidentals-") + style + String ("0"));
-
- for (; gh_pair_p (old); old = ly_cdr (old))
- {
- SCM found = scm_assoc (ly_caar (old), newas);
+ SCM old = me->get_property ("old-accidentals");
+
+ Stencil natural;
+ if (scm_is_pair (old))
+ natural = Font_interface::get_default_font (me)->
+ find_by_name (String ("accidentals.") + style + String ("0"));
+
+ int last_pos = -100;
+ for (; scm_is_pair (old); old = scm_cdr (old))
+ {
+ SCM found = scm_assoc (scm_caar (old), newas);