X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsystem-start-delimiter.cc;h=c3fe50250a0a9e0bc20de549bffe1bb99c91a828;hb=9e1dc8e44017d472fda6533cc749a8918f5b72a6;hp=48522d74c6aea3e4420fcaf7e6918c3b598b7a4c;hpb=75f8a001fe30f30fa2d32a961218d0f1cdbeeb7e;p=lilypond.git diff --git a/lily/system-start-delimiter.cc b/lily/system-start-delimiter.cc index 48522d74c6..c3fe50250a 100644 --- a/lily/system-start-delimiter.cc +++ b/lily/system-start-delimiter.cc @@ -1,185 +1,185 @@ -/* - system-start-delimiter.cc -- implement System_start_delimiter - +/* + system-start-delimiter.cc -- implement System_start_delimiter + source file of the GNU LilyPond music typesetter - - (c) 2000--2001 Han-Wen Nienhuys - - */ -#include -#include "axis-group-interface.hh" + (c) 2000--2006 Han-Wen Nienhuys +*/ + #include "system-start-delimiter.hh" -#include "paper-def.hh" -#include "molecule.hh" -#include "font-interface.hh" +#include "text-interface.hh" #include "all-font-metrics.hh" -#include "grob.hh" -#include "staff-symbol-referencer.hh" +#include "axis-group-interface.hh" +#include "font-interface.hh" +#include "item.hh" +#include "line-interface.hh" #include "lookup.hh" +#include "output-def.hh" +#include "pointer-group-interface.hh" +#include "spanner.hh" +#include "staff-symbol-referencer.hh" -Molecule -System_start_delimiter::staff_bracket (Grob*me,Real height) +Stencil +System_start_delimiter::staff_bracket (Grob *me, Real height) { - Real arc_height = gh_scm2double (me->get_grob_property ("arch-height")) ; - - SCM at = scm_list_n (ly_symbol2scm ("bracket"), - me->get_grob_property ("arch-angle"), - me->get_grob_property ("arch-width"), - gh_double2scm (arc_height), - gh_double2scm (height), - me->get_grob_property ("arch-thick"), - me->get_grob_property ("thickness"), - SCM_UNDEFINED); + SCM fam = scm_cons (ly_symbol2scm ("font-encoding"), + ly_symbol2scm ("fetaMusic")); -/* -TODO: sort this out. - -Another thing: -In system-start-delimiter.cc I see the line + SCM alist = scm_list_n (fam, SCM_UNDEFINED); + Font_metric *fm = select_font (me->layout (), scm_list_n (alist, SCM_UNDEFINED)); - Real h = height + 2 * arc_height; + Drul_array tips (fm->find_by_name ("brackettips.down"), + fm->find_by_name ("brackettips.up")); -But I really think that you mean + Real thickness = robust_scm2double (me->get_property ("thickness"), 0.25); - Real h = height + 2 * arc_width; + Real overlap = 0.1 * thickness; -(arc_height changes the x-axis-size of arc ; arc_width changes the -y-axis-size) -Will not fix it since I'm not sure. + Box box (Interval (0, thickness), + Interval (-1, 1) + * (height / 2 + overlap)); - */ - - Real h = height + 2 * arc_height; - Box b (Interval (0, 1.5), Interval (-h/2, h/2)); - Molecule mol (b, at); - mol.align_to (X_AXIS, CENTER); - return mol; -} + Stencil bracket = Lookup::filled_box (box); + Direction d = DOWN; + do + bracket.add_at_edge (Y_AXIS, d, tips[d], -overlap, 0.0); + while (flip (&d) != DOWN); + bracket = Stencil (box, bracket.expr ()); -void -System_start_delimiter::set_interface (Grob*me) -{ - me->set_interface (ly_symbol2scm ("system-start-delimiter-interface")); + bracket.translate_axis (-0.8, X_AXIS); + + return bracket; } -bool -System_start_delimiter::has_interface (Grob*me) +Stencil +System_start_delimiter::line_bracket (Grob *me, Real height) { - return me->has_interface (ly_symbol2scm ("system-start-delimiter-interface")); + Real thick + = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness")) + * robust_scm2double (me->get_property ("thickness"), 1); + Real w = 0.8; + + Stencil tip1 = Line_interface::make_line (thick, + Offset (0, -height/2), + Offset (w, -height/2)); + Stencil tip2 = Line_interface::make_line (thick, + Offset (0, height/2), + Offset (w, height/2)); + Stencil vline = Line_interface::make_line (thick, + Offset (0, -height/2), + Offset (0, height/2)); + + vline.add_stencil (tip1); + vline.add_stencil (tip2); + vline.translate_axis (-w, X_AXIS); + return vline; } -Molecule -System_start_delimiter::simple_bar (Grob*me,Real h) +Stencil +System_start_delimiter::simple_bar (Grob *me, Real h) { - Real w = me->paper_l ()->get_var ("stafflinethickness") * - gh_scm2double (me->get_grob_property ("thickness")); - return Lookup::filledbox (Box (Interval (0,w), Interval (-h/2, h/2))); + Real lt = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness")); + Real w = lt * robust_scm2double (me->get_property ("thickness"), 1); + return Lookup::round_filled_box (Box (Interval (0, w), Interval (-h / 2, h / 2)), + lt); } -MAKE_SCHEME_CALLBACK (System_start_delimiter,after_line_breaking,1); - +MAKE_SCHEME_CALLBACK (System_start_delimiter, print, 1); SCM -System_start_delimiter::after_line_breaking (SCM smob) +System_start_delimiter::print (SCM smob) { - Grob * me = unsmob_grob (smob); - SCM gl = me->get_grob_property ("glyph"); - - if (scm_ilength (me->get_grob_property ("elements")) <= 1 && gl == ly_symbol2scm ("bar-line")) - { - me->suicide (); - } - - return SCM_UNSPECIFIED; -} + Spanner *me = unsmob_spanner (smob); + extract_grob_set (me, "elements", elts); + Grob *common = common_refpoint_of_array (elts, me, Y_AXIS); + Interval ext; + int non_empty_count = 0; + for (vsize i = elts.size (); i--;) + { + Spanner *sp = dynamic_cast (elts[i]); -MAKE_SCHEME_CALLBACK (System_start_delimiter,brew_molecule,1); -SCM -System_start_delimiter::brew_molecule (SCM smob) -{ - Grob * me = unsmob_grob (smob); + if (sp + && sp->get_bound (LEFT) == me->get_bound (LEFT)) + { + Interval dims = sp->extent (common, Y_AXIS); + if (!dims.is_empty ()) + { + non_empty_count ++; + ext.unite (dims); + } + } + } - SCM s = me->get_grob_property ("glyph"); - if (!gh_symbol_p (s)) - return SCM_EOL; - - SCM c = me->get_grob_property ("collapse-height"); - - Real staff_space = Staff_symbol_referencer::staff_space (me); - Interval ext = ly_scm2interval (Axis_group_interface::group_extent_callback - (me->self_scm (), gh_int2scm (Y_AXIS))); - Real l = ext.length () / staff_space; - - if (ext.empty_b () - || (gh_number_p (c) && l <= gh_scm2double (c))) + 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)) { me->suicide (); - return SCM_EOL; + return SCM_UNSPECIFIED; } - Molecule m; - if (s == ly_symbol2scm ("bracket")) - m = staff_bracket (me,l); - else if (s == ly_symbol2scm ("brace")) - m = staff_brace (me,l); - else if (s == ly_symbol2scm ("bar-line")) - m = simple_bar (me,l); - + Stencil m; + if (glyph_sym == ly_symbol2scm ("bracket")) + m = staff_bracket (me, len); + else if (glyph_sym == ly_symbol2scm ("brace")) + m = staff_brace (me, len); + else if (glyph_sym == ly_symbol2scm ("bar-line")) + m = simple_bar (me, len); + else if (glyph_sym == ly_symbol2scm ("line-bracket")) + m = line_bracket (me, len); + m.translate_axis (ext.center (), Y_AXIS); return m.smobbed_copy (); } -Molecule -System_start_delimiter::staff_brace (Grob*me, Real y) +Stencil +System_start_delimiter::staff_brace (Grob *me, Real y) { Font_metric *fm = 0; - - for (int i = 0; ; i++) - { - if (!fm || y > fm->get_char (fm->count ()-1)[Y_AXIS].length ()) - { - /* We go through the style sheet to lookup the font file - name. This is better than using find_font directly, - esp. because that triggers mktextfm for non-existent - fonts. */ - SCM alist = scm_list_n (gh_cons (ly_symbol2scm ("font-family"), - ly_symbol2scm ("braces")), - gh_cons (ly_symbol2scm ("font-relative-size"), - gh_int2scm (i)), - SCM_UNDEFINED); - fm = Font_interface::get_font (me, scm_list_n (alist, SCM_UNDEFINED)); - /* Hmm, if lookup fails, we get cmr10 anyway */ - if (ly_scm2string (ly_car (fm->description_)) == "cmr10") - break; - } - else - break; - } + /* We go through the style sheet to lookup the font file + name. This is better than using find_font directly, + esp. because that triggers mktextfm for non-existent + fonts. */ + SCM fam = scm_cons (ly_symbol2scm ("font-encoding"), + ly_symbol2scm ("fetaBraces")); - int lo = 0; + SCM alist = scm_list_n (fam, SCM_UNDEFINED); + fm = select_font (me->layout (), scm_list_n (alist, SCM_UNDEFINED)); - int hi = (fm->count () - 1) >? 2; - Box b; + int + lo = 0; + int hi = max ((int) fm->count () - 1, 2); /* do a binary search for each Y, not very efficient, but passable? */ + Box b; do { int cmp = (lo + hi) / 2; - b = fm->get_char (cmp); - if (b[Y_AXIS].empty_b () || b[Y_AXIS].length () > y) + b = fm->get_indexed_char (cmp); + if (b[Y_AXIS].is_empty () || b[Y_AXIS].length () > y) hi = cmp; else lo = cmp; } while (hi - lo > 1); - - SCM at = scm_list_n (ly_symbol2scm ("char"), gh_int2scm (lo), SCM_UNDEFINED); - at = fontify_atom (fm, at); - - b = fm->get_char (lo); - b[X_AXIS] = Interval (0,0); - return Molecule (b, at); -} + Stencil stil (fm->find_by_name ("brace" + to_string (lo))); + stil.translate_axis (-b[X_AXIS].length()/2, X_AXIS); + + stil.translate_axis (-0.2, X_AXIS); + return stil; +} + +ADD_INTERFACE (System_start_delimiter, + "The brace, bracket or bar in front of the system. " + , + + /* properties */ + "collapse-height " + "style " + "thickness " + );