source file of the GNU LilyPond music typesetter
- (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2000--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "system-start-delimiter.hh"
Stencil bracket = Lookup::filled_box (box);
Direction d = DOWN;
do
- bracket.add_at_edge (Y_AXIS, d, tips[d], -overlap, 0.0);
+ bracket.add_at_edge (Y_AXIS, d, tips[d], -overlap);
while (flip (&d) != DOWN);
bracket = Stencil (box, bracket.expr ());
SCM glyph_sym = me->get_property ("style");
Real len = ext.length ();
if (ext.is_empty ()
- || (robust_scm2double (me->get_property ("collapse-height"), 0.0) >= ext.length ())
- || (glyph_sym == ly_symbol2scm ("bar-line")
- && non_empty_count <= 1))
+ || (robust_scm2double (me->get_property ("collapse-height"), 0.0) >= ext.length ()))
{
me->suicide ();
return SCM_UNSPECIFIED;
while (hi - lo > 1);
Stencil stil (fm->find_by_name ("brace" + to_string (lo)));
- stil.translate_axis (-b[X_AXIS].length()/2, X_AXIS);
+ stil.translate_axis (-b[X_AXIS].length ()/2, X_AXIS);
stil.translate_axis (-0.2, X_AXIS);
}
ADD_INTERFACE (System_start_delimiter,
- "The brace, bracket or bar in front of the system. "
- ,
+ "The brace, bracket or bar in front of the system. The "
+ "following values for @code{style} are recognized:\n"
+ "\n"
+ "@table @code\n"
+ "@item bracket\n"
+ " A thick bracket, normally used to group similar "
+ " instruments in a score. Default for @code{StaffGroup}. "
+ " @code{SystemStartBracket} uses this style.\n"
+ "@item brace\n"
+ " A @q{piano style} brace normally used for an instrument "
+ " that uses two staves. The default style for "
+ " @code{GrandStaff}. @code{SystemStartBrace} uses this "
+ " style.\n"
+ "@item bar-line\n"
+ " A simple line between the staves in a score. Default "
+ " for staves enclosed in @code{<<} and @code{>>}. "
+ " @code{SystemStartBar} uses this style.\n"
+ "@item line-bracket\n"
+ " A simple square, normally used for subgrouping "
+ " instruments in a score. @code{SystemStartSquare} uses "
+ " this style.\n"
+ "@end table\n"
+ "\n"
+ "See also @file{input/regression/system-start-nesting.ly}.",
/* properties */
"collapse-height "