2 system-start-delimiter.cc -- implement System_start_delimiter
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "system-start-delimiter.hh"
10 #include "text-interface.hh"
11 #include "all-font-metrics.hh"
12 #include "axis-group-interface.hh"
13 #include "font-interface.hh"
15 #include "line-interface.hh"
17 #include "output-def.hh"
18 #include "pointer-group-interface.hh"
20 #include "staff-symbol-referencer.hh"
23 System_start_delimiter::staff_bracket (Grob *me, Real height)
25 SCM fam = scm_cons (ly_symbol2scm ("font-encoding"),
26 ly_symbol2scm ("fetaMusic"));
28 SCM alist = scm_list_n (fam, SCM_UNDEFINED);
29 Font_metric *fm = select_font (me->layout (), scm_list_n (alist, SCM_UNDEFINED));
31 Drul_array<Stencil> tips (fm->find_by_name ("brackettips.down"),
32 fm->find_by_name ("brackettips.up"));
34 Real thickness = robust_scm2double (me->get_property ("thickness"), 0.25);
36 Real overlap = 0.1 * thickness;
38 Box box (Interval (0, thickness),
40 * (height / 2 + overlap));
42 Stencil bracket = Lookup::filled_box (box);
45 bracket.add_at_edge (Y_AXIS, d, tips[d], -overlap, 0.0);
46 while (flip (&d) != DOWN);
47 bracket = Stencil (box, bracket.expr ());
49 bracket.translate_axis (-0.8, X_AXIS);
55 System_start_delimiter::line_bracket (Grob *me, Real height)
58 = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"))
59 * robust_scm2double (me->get_property ("thickness"), 1);
62 Stencil tip1 = Line_interface::make_line (thick,
63 Offset (0, -height/2),
64 Offset (w, -height/2));
65 Stencil tip2 = Line_interface::make_line (thick,
67 Offset (w, height/2));
68 Stencil vline = Line_interface::make_line (thick,
69 Offset (0, -height/2),
70 Offset (0, height/2));
72 vline.add_stencil (tip1);
73 vline.add_stencil (tip2);
74 vline.translate_axis (-w, X_AXIS);
79 System_start_delimiter::text (Grob *me_grob, Real h)
83 Spanner *me = dynamic_cast<Spanner*> (me_grob);
84 SCM t = me->get_property ("text");
85 if (me->get_break_index () == 0)
86 t = me->get_property ("long-text");
89 SCM chain = Font_interface::text_font_alist_chain (me);
91 SCM scm_stencil = Text_interface::interpret_markup (me->layout ()->self_scm (), chain, t);
92 if (Stencil *p = unsmob_stencil (scm_stencil))
98 System_start_delimiter::simple_bar (Grob *me, Real h)
100 Real lt = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"));
101 Real w = lt * robust_scm2double (me->get_property ("thickness"), 1);
102 return Lookup::round_filled_box (Box (Interval (0, w), Interval (-h / 2, h / 2)),
106 MAKE_SCHEME_CALLBACK (System_start_delimiter, print, 1);
108 System_start_delimiter::print (SCM smob)
110 Spanner *me = unsmob_spanner (smob);
111 extract_grob_set (me, "elements", elts);
112 Grob *common = common_refpoint_of_array (elts, me, Y_AXIS);
115 int non_empty_count = 0;
116 for (vsize i = elts.size (); i--;)
118 Spanner *sp = dynamic_cast<Spanner *> (elts[i]);
121 && sp->get_bound (LEFT) == me->get_bound (LEFT))
123 Interval dims = sp->extent (common, Y_AXIS);
124 if (!dims.is_empty ())
132 SCM glyph_sym = me->get_property ("style");
133 Real len = ext.length ();
135 || (robust_scm2double (me->get_property ("collapse-height"), 0.0) >= ext.length ())
136 || (glyph_sym == ly_symbol2scm ("bar-line")
137 && non_empty_count <= 1))
140 return SCM_UNSPECIFIED;
144 if (glyph_sym == ly_symbol2scm ("bracket"))
145 m = staff_bracket (me, len);
146 else if (glyph_sym == ly_symbol2scm ("brace"))
147 m = staff_brace (me, len);
148 else if (glyph_sym == ly_symbol2scm ("bar-line"))
149 m = simple_bar (me, len);
150 else if (glyph_sym == ly_symbol2scm ("line-bracket"))
151 m = line_bracket (me, len);
152 else if (glyph_sym == ly_symbol2scm ("text"))
155 m.translate_axis (ext.center (), Y_AXIS);
156 return m.smobbed_copy ();
160 System_start_delimiter::staff_brace (Grob *me, Real y)
163 /* We go through the style sheet to lookup the font file
164 name. This is better than using find_font directly,
165 esp. because that triggers mktextfm for non-existent
167 SCM fam = scm_cons (ly_symbol2scm ("font-encoding"),
168 ly_symbol2scm ("fetaBraces"));
170 SCM alist = scm_list_n (fam, SCM_UNDEFINED);
171 fm = select_font (me->layout (), scm_list_n (alist, SCM_UNDEFINED));
175 int hi = max ((int) fm->count () - 1, 2);
177 /* do a binary search for each Y, not very efficient, but passable? */
181 int cmp = (lo + hi) / 2;
182 b = fm->get_indexed_char (cmp);
183 if (b[Y_AXIS].is_empty () || b[Y_AXIS].length () > y)
190 Stencil stil (fm->find_by_name ("brace" + to_string (lo)));
191 stil.translate_axis (-b[X_AXIS].length()/2, X_AXIS);
193 stil.translate_axis (-0.2, X_AXIS);
198 ADD_INTERFACE (System_start_delimiter, "system-start-delimiter-interface",
199 "The brace, bracket or bar in front of the system. "