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::is_markup (t)
92 ? Text_interface::interpret_markup (me->layout ()->self_scm (), chain, t)
95 if (Stencil *p = unsmob_stencil (scm_stencil))
101 System_start_delimiter::simple_bar (Grob *me, Real h)
103 Real lt = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"));
104 Real w = lt * robust_scm2double (me->get_property ("thickness"), 1);
105 return Lookup::round_filled_box (Box (Interval (0, w), Interval (-h / 2, h / 2)),
109 MAKE_SCHEME_CALLBACK (System_start_delimiter, print, 1);
111 System_start_delimiter::print (SCM smob)
113 Spanner *me = unsmob_spanner (smob);
114 extract_grob_set (me, "elements", elts);
115 Grob *common = common_refpoint_of_array (elts, me, Y_AXIS);
118 int non_empty_count = 0;
119 for (vsize i = elts.size (); i--;)
121 Spanner *sp = dynamic_cast<Spanner *> (elts[i]);
124 && sp->get_bound (LEFT) == me->get_bound (LEFT))
126 Interval dims = sp->extent (common, Y_AXIS);
127 if (!dims.is_empty ())
135 SCM glyph_sym = me->get_property ("style");
136 Real len = ext.length ();
138 || (robust_scm2double (me->get_property ("collapse-height"), 0.0) >= ext.length ())
139 || (glyph_sym == ly_symbol2scm ("bar-line")
140 && non_empty_count <= 1))
143 return SCM_UNSPECIFIED;
147 if (glyph_sym == ly_symbol2scm ("bracket"))
148 m = staff_bracket (me, len);
149 else if (glyph_sym == ly_symbol2scm ("brace"))
150 m = staff_brace (me, len);
151 else if (glyph_sym == ly_symbol2scm ("bar-line"))
152 m = simple_bar (me, len);
153 else if (glyph_sym == ly_symbol2scm ("line-bracket"))
154 m = line_bracket (me, len);
155 else if (glyph_sym == ly_symbol2scm ("text"))
158 m.translate_axis (ext.center (), Y_AXIS);
159 return m.smobbed_copy ();
163 System_start_delimiter::staff_brace (Grob *me, Real y)
166 /* We go through the style sheet to lookup the font file
167 name. This is better than using find_font directly,
168 esp. because that triggers mktextfm for non-existent
170 SCM fam = scm_cons (ly_symbol2scm ("font-encoding"),
171 ly_symbol2scm ("fetaBraces"));
173 SCM alist = scm_list_n (fam, SCM_UNDEFINED);
174 fm = select_font (me->layout (), scm_list_n (alist, SCM_UNDEFINED));
178 int hi = max ((int) fm->count () - 1, 2);
180 /* do a binary search for each Y, not very efficient, but passable? */
184 int cmp = (lo + hi) / 2;
185 b = fm->get_indexed_char (cmp);
186 if (b[Y_AXIS].is_empty () || b[Y_AXIS].length () > y)
193 Stencil stil (fm->find_by_name ("brace" + to_string (lo)));
194 stil.translate_axis (-b[X_AXIS].length()/2, X_AXIS);
196 stil.translate_axis (-0.2, X_AXIS);
201 ADD_INTERFACE (System_start_delimiter, "system-start-delimiter-interface",
202 "The brace, bracket or bar in front of the system. "