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)
81 Spanner *me = dynamic_cast<Spanner*> (me_grob);
82 SCM t = me->get_property ("text");
83 if (me->get_break_index () == 0)
84 t = me->get_property ("long-text");
87 SCM chain = Font_interface::text_font_alist_chain (me);
89 SCM scm_stencil = Text_interface::interpret_markup (me->layout ()->self_scm (), chain, t);
90 if (Stencil *p = unsmob_stencil (scm_stencil))
96 System_start_delimiter::simple_bar (Grob *me, Real h)
98 Real lt = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"));
99 Real w = lt * robust_scm2double (me->get_property ("thickness"), 1);
100 return Lookup::round_filled_box (Box (Interval (0, w), Interval (-h / 2, h / 2)),
104 MAKE_SCHEME_CALLBACK (System_start_delimiter, print, 1);
106 System_start_delimiter::print (SCM smob)
108 Spanner *me = unsmob_spanner (smob);
109 extract_grob_set (me, "elements", elts);
110 Grob *common = common_refpoint_of_array (elts, me, Y_AXIS);
113 int non_empty_count = 0;
114 for (vsize i = elts.size (); i--;)
116 Spanner *sp = dynamic_cast<Spanner *> (elts[i]);
119 && sp->get_bound (LEFT) == me->get_bound (LEFT))
121 Interval dims = sp->extent (common, Y_AXIS);
122 if (!dims.is_empty ())
130 SCM glyph_sym = me->get_property ("style");
131 Real len = ext.length ();
133 || (robust_scm2double (me->get_property ("collapse-height"), 0.0) >= ext.length ())
134 || (glyph_sym == ly_symbol2scm ("bar-line")
135 && non_empty_count <= 1))
138 return SCM_UNSPECIFIED;
142 if (glyph_sym == ly_symbol2scm ("bracket"))
143 m = staff_bracket (me, len);
144 else if (glyph_sym == ly_symbol2scm ("brace"))
145 m = staff_brace (me, len);
146 else if (glyph_sym == ly_symbol2scm ("bar-line"))
147 m = simple_bar (me, len);
148 else if (glyph_sym == ly_symbol2scm ("line-bracket"))
149 m = line_bracket (me, len);
150 else if (glyph_sym == ly_symbol2scm ("text"))
153 m.translate_axis (ext.center (), Y_AXIS);
154 return m.smobbed_copy ();
158 System_start_delimiter::staff_brace (Grob *me, Real y)
161 /* We go through the style sheet to lookup the font file
162 name. This is better than using find_font directly,
163 esp. because that triggers mktextfm for non-existent
165 SCM fam = scm_cons (ly_symbol2scm ("font-encoding"),
166 ly_symbol2scm ("fetaBraces"));
168 SCM alist = scm_list_n (fam, SCM_UNDEFINED);
169 fm = select_font (me->layout (), scm_list_n (alist, SCM_UNDEFINED));
173 int hi = max ((int) fm->count () - 1, 2);
175 /* do a binary search for each Y, not very efficient, but passable? */
179 int cmp = (lo + hi) / 2;
180 b = fm->get_indexed_char (cmp);
181 if (b[Y_AXIS].is_empty () || b[Y_AXIS].length () > y)
188 Stencil stil (fm->find_by_name ("brace" + to_string (lo)));
189 stil.translate_axis (-b[X_AXIS].length()/2, X_AXIS);
191 stil.translate_axis (-0.2, X_AXIS);
196 ADD_INTERFACE (System_start_delimiter, "system-start-delimiter-interface",
197 "The brace, bracket or bar in front of the system. "