Side_position_interface::add_support (a, right_objects_[i]);
a->set_parent (note_head, Y_AXIS);
- if (cautionary)
- a->set_property ("cautionary", SCM_BOOL_T);
-
if (!accidental_placement_)
accidental_placement_ = make_item ("AccidentalPlacement",
if (Accidental_interface::has_interface (g))
{
penalty = parameters_.accidental_collision_;
- /* Begin copy accidental.cc */
- bool parens = false;
- if (to_boolean (g->get_property ("cautionary")))
- {
- SCM cstyle = g->get_property ("cautionary-style");
- parens = ly_is_equal (cstyle, ly_symbol2scm ("parentheses"));
- }
SCM alt = g->get_property ("alteration");
SCM scm_style = g->get_property ("style");
if (!scm_is_symbol (scm_style)
- && !parens
+ && !to_boolean (g->get_property ("parenthesized"))
&& !to_boolean (g->get_property ("restore-first")))
{
/* End copy accidental.cc */
(Accidental
. (
(avoid-slur . inside)
- (cautionary-style . parentheses)
(stencil . ,ly:accidental-interface::print)
(stencils . ,ly:accidental-interface::calc-stencils)
(after-line-breaking