2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2002--2015 Juergen Reuter <reuter@ipd.uka.de>,
5 Pal Benko <benkop@freestart.hu>
7 LilyPond is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 LilyPond is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "mensural-ligature.hh"
23 #include "directional-element-interface.hh"
24 #include "font-interface.hh"
25 #include "international.hh"
28 #include "note-head.hh"
29 #include "output-def.hh"
30 #include "staff-symbol-referencer.hh"
36 draws one half a flexa, i.e. a portion corresponding to a single note.
37 this way coloration of the two notes building up the flexa can be
38 handled independently.
40 * TODO: divide this function into mensural and neo-mensural style.
42 * TODO: move this function to class Lookup?
51 Real staff_space = Staff_symbol_referencer::staff_space (me);
54 The thickness of the horizontal lines of the flexa shape
55 should be equal to that of the horizontal lines of the
56 neomensural brevis note head (see mf/parmesan-heads.mf).
58 Real const horizontal_line_thickness = staff_space * 0.35;
60 // URGH! vertical_line_thickness is adjustable (via thickness
61 // property), while horizontal_line_thickness is constant.
62 // Maybe both should be adjustable independently?
64 Real height = staff_space - horizontal_line_thickness;
67 = robust_scm2double (me->get_property ("flexa-interval"), 0.0);
68 Real slope = (interval / 2.0 * staff_space) / width;
70 // Compensate optical illusion regarding vertical position of left
71 // and right endings due to slope.
72 Real ypos_correction = -0.1 * staff_space * sign (slope);
73 Real slope_correction = 0.2 * staff_space * sign (slope);
74 Real corrected_slope = slope + slope_correction / width;
76 = me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter"));
77 width += 2 * blotdiameter;
79 if (solid) // colorated flexae
81 stencil = Lookup::beam (corrected_slope, width * 0.5, staff_space, blotdiameter);
85 stencil = Lookup::beam (corrected_slope, thickness, height, blotdiameter);
88 stencil.translate_axis (width * 0.5 - thickness, X_AXIS);
89 stencil.translate_axis (corrected_slope * (width * 0.5 - thickness),
94 = Lookup::beam (corrected_slope, width * 0.5, horizontal_line_thickness,
96 bottom_edge.translate_axis (-0.5 * height, Y_AXIS);
97 stencil.add_stencil (bottom_edge);
100 = Lookup::beam (corrected_slope, width * 0.5, horizontal_line_thickness,
102 top_edge.translate_axis (+0.5 * height, Y_AXIS);
103 stencil.add_stencil (top_edge);
107 stencil.translate_axis (ypos_correction, Y_AXIS);
110 stencil.translate_axis (0.5 * thickness - blotdiameter, X_AXIS);
112 stencil.translate_axis (interval / -4.0 * staff_space, Y_AXIS);
119 internal_brew_primitive (Grob *me)
121 SCM primitive_scm = me->get_property ("primitive");
122 if (scm_is_null (primitive_scm))
124 programming_error ("Mensural_ligature:"
125 " undefined primitive -> ignoring grob");
126 return Lookup::blank (Box (Interval (0, 0), Interval (0, 0)));
128 int primitive = scm_to_int (primitive_scm);
130 Real thickness = 0.0;
132 Real flexa_width = 0.0;
133 Real staff_space = Staff_symbol_referencer::staff_space (me);
135 SCM style = me->get_property ("style");
137 = scm_is_eq (style, ly_symbol2scm ("blackpetrucci"));
139 = scm_is_eq (style, ly_symbol2scm ("semipetrucci"));
141 if (primitive & MLP_ANY)
143 thickness = robust_scm2double (me->get_property ("thickness"), .13);
144 width = robust_scm2double (me->get_property ("head-width"), staff_space);
146 if (primitive & MLP_FLEXA)
147 flexa_width = robust_scm2double (me->get_property ("flexa-width"), 2.0)
151 int const note_shape = primitive & MLP_ANY;
152 int duration_log = 0;
153 Font_metric *fm = Font_interface::get_default_font (me);
154 string prefix = "noteheads.";
166 return Lookup::blank (Box (Interval (0, 0), Interval (0, 0)));
173 suffix = ::to_string (duration_log) + color
174 + (duration_log < -1 ? "lig" : "") + "mensural";
175 index = prefix + "s";
176 out = fm->find_by_name (index + "r" + suffix);
178 && !Staff_symbol_referencer::on_line
180 robust_scm2int (me->get_property ("staff-position"), 0)))
182 out = fm->find_by_name (index + suffix);
184 case MLP_FLEXA_BEGIN:
186 out = brew_flexa (me, black, flexa_width, thickness,
187 note_shape == MLP_FLEXA_BEGIN);
190 programming_error ("Mensural_ligature:"
191 " unexpected case fall-through");
192 return Lookup::blank (Box (Interval (0, 0), Interval (0, 0)));
196 we use thickness because the stem end of the glyph
197 "noteheads.sM2ligmensural" is round.
199 Real blotdiameter = thickness;
201 instead of 2.5 the length of a longa stem should be used
202 Font_interface::get_default_font (???)->find_by_name
203 ("noteheads.sM2ligmensural").extent (Y_AXIS).length () * 0.5
205 Real stem_length = 2.5 * staff_space;
207 if (primitive & MLP_STEM)
210 Real y_bottom = 0.0, y_top = stem_length;
212 if (primitive & MLP_DOWN)
218 Interval x_extent (0, thickness);
219 Interval y_extent (y_bottom, y_top);
220 Box join_box (x_extent, y_extent);
222 Stencil join = Lookup::round_filled_box (join_box, blotdiameter);
223 out.add_stencil (join);
226 if (to_boolean (me->get_property ("add-join")))
228 int join_right = scm_to_int (me->get_property ("delta-position"));
231 Real y_top = join_right * 0.5 * staff_space;
240 if the previous note is longa-shaped,
241 the joining line may hide the stem, so made it longer
242 to serve as stem as well
244 if (primitive & MLP_LONGA)
245 y_bottom -= stem_length + 0.25 * blotdiameter;
248 Interval x_extent (width - thickness, width);
249 Interval y_extent (y_bottom, y_top);
250 Box join_box (x_extent, y_extent);
251 Stencil join = Lookup::round_filled_box (join_box, blotdiameter);
253 out.add_stencil (join);
256 programming_error ("Mensural_ligature: (join_right == 0)");
259 #if 0 /* what happend with the ledger lines? */
260 int pos = Staff_symbol_referencer::get_rounded_position (me);
261 if (primitive & MLP_FLEXA)
264 add_ledger_lines (me, &out, pos, 0.5 * delta_pitch, ledger_take_space);
271 MAKE_SCHEME_CALLBACK (Mensural_ligature, brew_ligature_primitive, 1);
273 Mensural_ligature::brew_ligature_primitive (SCM smob)
275 Grob *me = unsmob<Grob> (smob);
276 return internal_brew_primitive (me).smobbed_copy ();
279 MAKE_SCHEME_CALLBACK (Mensural_ligature, print, 1);
281 Mensural_ligature::print (SCM)
286 ADD_INTERFACE (Mensural_ligature,
287 "A mensural ligature.",