SCM gn = me->get_property ("glyph-name");
if (!me->is_live ())
return ly_interval2scm (Interval ());
-
+
string gl = ly_scm2string (gn);
/*
}
string type = ly_scm2string (gl);
- if (type == "|:")
+ if (type == "|:" || type == "||:")
type = ".|";
else if (type == ":|")
type = "|.";
type = "|.|";
else if (type == ":|.:")
type = "|.";
+ else if (type == "S" || type == "S|" || type == "|S")
+ type = "||";
+ else if (type == "S|:" || type == ".S|:")
+ type = ".|";
+ else if (type == ":|S" || type == ":|S.")
+ type = "|.";
+ else if (type == ":|S|:" || type == ":|S.|:")
+ type = "|._.|";
else if (type == "'")
type = "";
/* properties */
"glyph-name "
"elements "
+ "pure-Y-common "
+ "pure-relevant-grobs "
+ "pure-relevant-items "
+ "pure-relevant-spanners "
);