]> git.donarmstrong.com Git - lilypond.git/blob - lily/enclosing-bracket.cc
Merge branch 'master' of git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond
[lilypond.git] / lily / enclosing-bracket.cc
1 /*
2   enclosing-bracket.cc -- implement Enclosing_bracket
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
7
8 */
9
10 #include "stencil.hh"
11 #include "horizontal-bracket.hh"
12 #include "grob.hh"
13 #include "axis-group-interface.hh"
14 #include "pointer-group-interface.hh"
15
16 struct Enclosing_bracket
17 {
18   DECLARE_GROB_INTERFACE();
19   
20 public:
21   DECLARE_SCHEME_CALLBACK(print, (SCM));
22   DECLARE_SCHEME_CALLBACK(width, (SCM));
23 };
24
25
26 ADD_INTERFACE(Enclosing_bracket,
27               
28               "Brackets alongside bass figures.",
29               
30               /* props */
31               "bracket-flare "
32               "edge-height "
33               "elements "
34               "padding "
35               "shorten-pair "
36               "thickness "
37               );
38
39 /* ugh: should make bracket interface. */
40
41
42 MAKE_SCHEME_CALLBACK (Enclosing_bracket, width, 1);
43 SCM
44 Enclosing_bracket::width (SCM grob)
45 {
46   /*
47      UGH. cut & paste code.
48   */
49   Grob *me = unsmob_grob (grob);
50   extract_grob_set (me, "elements", elements);
51   if (elements.empty ())
52     {
53       me->suicide ();
54       return SCM_EOL;
55     }
56
57   Grob *common_x = common_refpoint_of_array (elements, me, X_AXIS); 
58   Interval xext = Axis_group_interface::relative_group_extent (elements, common_x, X_AXIS);
59
60   Stencil left_br = Horizontal_bracket::make_bracket (me, 10.0, Y_AXIS, LEFT);
61   Stencil right_br = Horizontal_bracket::make_bracket (me, 10.0, Y_AXIS, LEFT);
62
63
64   xext.widen (robust_scm2double (me->get_property ("padding"), 0.25));
65   left_br.translate_axis (xext[LEFT], X_AXIS);
66   right_br.translate_axis (xext[RIGHT], X_AXIS);
67
68   left_br.add_stencil (right_br);
69   left_br.translate_axis (-me->relative_coordinate (common_x, X_AXIS), X_AXIS);
70
71   return ly_interval2scm (left_br.extent (X_AXIS));
72 }
73
74 MAKE_SCHEME_CALLBACK (Enclosing_bracket, print, 1);
75 SCM
76 Enclosing_bracket::print (SCM grob)
77 {
78   Grob *me = unsmob_grob (grob);
79   extract_grob_set (me, "elements", elements);
80   if (elements.empty ())
81     {
82       me->suicide ();
83       return SCM_EOL;
84     }
85
86   Grob *common_x = common_refpoint_of_array (elements, me, X_AXIS); 
87   Interval xext = Axis_group_interface::relative_group_extent (elements, common_x, X_AXIS);
88   if (xext.is_empty ())
89     {
90       me->programming_error ("elements have no X extent.");
91       xext = Interval (0, 0);
92     }
93
94   Stencil left_br = Horizontal_bracket::make_enclosing_bracket (me, me, elements,
95                                                                 Y_AXIS, LEFT);
96   Stencil right_br = Horizontal_bracket::make_enclosing_bracket (me, me, elements,
97                                                                  Y_AXIS, RIGHT);
98
99   xext.widen (robust_scm2double (me->get_property ("padding"), 0.25));
100   left_br.translate_axis (xext[LEFT], X_AXIS);
101   right_br.translate_axis (xext[RIGHT], X_AXIS);
102   
103   left_br.add_stencil (right_br);
104   left_br.translate_axis (-me->relative_coordinate (common_x, X_AXIS), X_AXIS);
105
106   return left_br.smobbed_copy ();
107 }
108