2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--2011 Jan Nieuwenhuizen <janneke@gnu.org>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
24 #include "font-interface.hh"
25 #include "line-interface.hh"
26 #include "paper-column.hh"
27 #include "output-def.hh"
28 #include "text-interface.hh"
29 #include "volta-bracket.hh"
30 #include "pointer-group-interface.hh"
31 #include "side-position-interface.hh"
32 #include "directional-element-interface.hh"
34 #include "tuplet-bracket.hh"
37 this is too complicated. Yet another version of side-positioning,
42 * Should look for system_start_delim to find left edge of staff.
45 MAKE_SCHEME_CALLBACK (Volta_bracket_interface
, print
, 1);
47 Volta_bracket_interface::print (SCM smob
)
49 Spanner
*me
= unsmob_spanner (smob
);
50 Spanner
*orig_span
= dynamic_cast<Spanner
*> (me
->original ());
51 bool broken_first_bracket
= orig_span
&& (orig_span
->broken_intos_
[0]
54 Output_def
*layout
= me
->layout ();
55 Real half_space
= 0.5;
57 Item
*bound
= dynamic_cast<Spanner
*> (me
)->get_bound (LEFT
);
60 If the volta bracket appears after a line-break, make
61 it start after the prefatory matter.
64 if (bound
->break_status_dir () == RIGHT
)
66 Paper_column
*pc
= bound
->get_column ();
67 left
= pc
->break_align_width (pc
, ly_symbol2scm ("break-alignment"))[RIGHT
]
68 // For some reason, break_align_width is relative to
69 // the x-parent of the column.
70 - bound
->relative_coordinate (pc
->get_parent (X_AXIS
), X_AXIS
);
75 the volta spanner is attached to the bar-line, which is moved
76 to the right. We don't need to compensate for the left edge.
80 modify_edge_height (me
);
84 Drul_array
<Real
> edge_height
= robust_scm2interval (me
->get_property ("edge-height"),
86 Drul_array
<Real
> flare
= robust_scm2interval (me
->get_property ("bracket-flare"),
88 Drul_array
<Real
> shorten
= robust_scm2interval (me
->get_property ("shorten-pair"),
93 scale_drul (&edge_height
, - Real (get_grob_direction (me
)));
97 start
[X_AXIS
] = me
->spanner_length () - left
- half_space
;
100 ugh, Tuplet_bracket should use Horizontal_bracket, not the other way around.
103 = Tuplet_bracket::make_bracket (me
, Y_AXIS
, start
,
104 edge_height
, empty
, flare
, shorten
);
106 if (!orig_span
|| broken_first_bracket
)
108 SCM text
= me
->get_property ("text");
109 SCM properties
= me
->get_property_alist_chain (SCM_EOL
);
110 SCM snum
= Text_interface::interpret_markup (layout
->self_scm (),
112 Stencil num
= *unsmob_stencil (snum
);
113 num
.align_to (Y_AXIS
, UP
);
114 num
.translate_axis (-0.5, Y_AXIS
);
115 total
.add_at_edge (X_AXIS
, LEFT
, num
, - num
.extent (X_AXIS
).length ()
119 total
.translate_axis (left
, X_AXIS
);
120 return total
.smobbed_copy ();
125 Volta_bracket_interface::modify_edge_height (Spanner
*me
)
127 Spanner
*orig_span
= dynamic_cast<Spanner
*> (me
->original ());
129 bool broken_first_bracket
= orig_span
&& (orig_span
->broken_intos_
[0] == (Spanner
*)me
);
130 bool broken_last_bracket
= orig_span
&& (orig_span
->broken_intos_
.back () == (Spanner
*)me
);
131 bool no_vertical_start
= orig_span
&& !broken_first_bracket
;
132 bool no_vertical_end
= orig_span
&& !broken_last_bracket
;
134 extract_grob_set (me
, "bars", bars
);
135 Grob
*endbar
= bars
.size () ? bars
.back () : 0;
136 SCM glyph
= endbar
? endbar
->get_property ("glyph-name") : SCM_EOL
;
139 if (scm_is_string (glyph
))
140 str
= ly_scm2string (glyph
);
153 if (no_vertical_end
|| no_vertical_start
)
155 Drul_array
<Real
> edge_height
= robust_scm2interval (me
->get_property ("edge-height"),
156 Interval (1.0, 1.0));
157 if (no_vertical_start
)
158 edge_height
[LEFT
] = 0.0;
161 edge_height
[RIGHT
] = 0.0;
163 me
->set_property ("edge-height", ly_interval2scm (edge_height
));
166 if (broken_last_bracket
&& no_vertical_end
&& no_vertical_start
167 && !broken_first_bracket
)
172 Volta_bracket_interface::add_bar (Grob
*me
, Item
*b
)
174 Pointer_group_interface::add_grob (me
, ly_symbol2scm ("bars"), b
);
175 add_bound_item (dynamic_cast<Spanner
*> (me
), b
);
178 ADD_INTERFACE (Volta_bracket_interface
,
179 "Volta bracket with number.",