2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2004--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
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/>.
20 #include "line-interface.hh"
22 #include "staff-symbol-referencer.hh"
24 #include "output-def.hh"
26 #include "font-interface.hh"
29 Line_interface::make_arrow (Offset begin, Offset end,
31 Real length, Real width)
33 Real angle = (end - begin).arg ();
34 vector<Offset> points;
36 points.push_back (Offset (0, 0));
37 points.push_back (Offset (-length, width));
38 points.push_back (Offset (-length, -width));
40 for (vsize i = 0; i < points.size (); i++)
41 points[i] = points[i] * complex_exp (Offset (0, angle)) + end;
43 return Lookup::round_filled_polygon (points, thick);
47 Line_interface::make_trill_line (Grob *me,
51 Offset dz = (to-from);
52 SCM alist_chain = Font_interface::text_font_alist_chain (me);
53 SCM style_alist = scm_list_n (scm_cons (ly_symbol2scm ("font-encoding"),
54 ly_symbol2scm ("fetaMusic")),
57 Font_metric *fm = select_font (me->layout (),
58 scm_cons (style_alist,
61 Stencil elt = fm->find_by_name ("scripts.trill_element");
62 elt.align_to (Y_AXIS, CENTER);
63 Real elt_len = elt.extent (X_AXIS).length ();
66 programming_error ("can't find scripts.trill_element");
74 line.add_at_edge (X_AXIS, RIGHT, elt, 0);
75 len = line.extent (X_AXIS).length ();
77 while (len + elt_len < dz.length ());
79 line.rotate (dz.arg (), Offset (LEFT, CENTER));
80 line.translate (from);
87 Line_interface::make_zigzag_line (Grob *me,
93 Real thick = Staff_symbol_referencer::line_thickness (me);
94 thick *= robust_scm2double (me->get_property ("thickness"), 1.0); // todo: staff sym referencer?
96 Real staff_space = Staff_symbol_referencer::staff_space (me);
98 Real w = robust_scm2double (me->get_property ("zigzag-width"), 1) * staff_space;
99 int count = (int) ceil (dz.length () / w);
100 w = dz.length () / count;
102 Real l = robust_scm2double (me->get_property ("zigzag-length"), 1) * w;
103 Real h = l > w / 2 ? sqrt (l * l - w * w / 4) : 0;
105 Offset rotation_factor = complex_exp (Offset (0, dz.arg ()));
108 points[0] = Offset (0, -h / 2);
109 points[1] = Offset (w / 2, h / 2);
110 points[2] = Offset (w, -h / 2);
111 for (int i = 0; i < 3; i++)
112 points[i] = complex_multiply (points[i], rotation_factor);
114 Stencil squiggle (Line_interface::make_line (thick, points[0], points[1]));
115 squiggle.add_stencil (Line_interface::make_line (thick, points[1], points[2]));
118 for (int i = 0; i < count; i++)
120 Stencil moved_squiggle (squiggle);
121 moved_squiggle.translate (from + Offset (i * w, 0) * rotation_factor);
122 total.add_stencil (moved_squiggle);
130 Line_interface::make_dashed_line (Real thick, Offset from, Offset to,
131 Real dash_period, Real dash_fraction)
133 dash_fraction = min (max (dash_fraction, 0.0), 1.0);
134 Real on = dash_fraction * dash_period + thick;
135 Real off = max (0.0, dash_period - on);
137 SCM at = scm_list_n (ly_symbol2scm ("dashed-line"),
138 scm_from_double (thick),
139 scm_from_double (on),
140 scm_from_double (off),
141 scm_from_double (to[X_AXIS] - from[X_AXIS]),
142 scm_from_double (to[Y_AXIS] - from[Y_AXIS]),
143 scm_from_double (0.0),
147 box.add_point (Offset (0, 0));
148 box.add_point (to - from);
150 box[X_AXIS].widen (thick / 2);
151 box[Y_AXIS].widen (thick / 2);
153 Stencil m = Stencil (box, at);
159 Line_interface::make_line (Real th, Offset from, Offset to)
161 SCM at = scm_list_n (ly_symbol2scm ("draw-line"),
162 scm_from_double (th),
163 scm_from_double (from[X_AXIS]),
164 scm_from_double (from[Y_AXIS]),
165 scm_from_double (to[X_AXIS]),
166 scm_from_double (to[Y_AXIS]),
170 box.add_point (from);
173 box[X_AXIS].widen (th / 2);
174 box[Y_AXIS].widen (th / 2);
176 return Stencil (box, at);
180 Line_interface::arrows (Grob *me, Offset from, Offset to,
185 if (from_arrow || to_arrow)
187 Real thick = Staff_symbol_referencer::line_thickness (me)
188 * robust_scm2double (me->get_property ("thickness"), 1);
189 Real ss = Staff_symbol_referencer::staff_space (me);
191 Real len = robust_scm2double (me->get_property ("arrow-length"), 1.3 * ss);
192 Real wid = robust_scm2double (me->get_property ("arrow-width"), 0.5 * ss);
195 a.add_stencil (make_arrow (from, to, thick, len, wid));
198 a.add_stencil (make_arrow (to, from, thick, len, wid));
205 Line_interface::line (Grob *me, Offset from, Offset to)
207 Real thick = Staff_symbol_referencer::line_thickness (me)
208 * robust_scm2double (me->get_property ("thickness"), 1);
210 SCM type = me->get_property ("style");
211 if (type == ly_symbol2scm ("zigzag"))
213 return make_zigzag_line (me, from, to);
215 else if (type == ly_symbol2scm ("trill"))
216 return make_trill_line (me, from, to);
220 if (type == ly_symbol2scm ("dashed-line") || type == ly_symbol2scm ("dotted-line"))
224 = type == ly_symbol2scm ("dotted-line")
226 : robust_scm2double (me->get_property ("dash-fraction"), 0.4);
228 fraction = min (max (fraction, 0.0), 1.0);
229 Real period = Staff_symbol_referencer::staff_space (me)
230 * robust_scm2double (me->get_property ("dash-period"), 1.0);
235 Real len = (to-from).length ();
237 int n = (int) rint ((len - period * fraction) / period);
242 TODO: figure out something intelligent for really short
245 period = ((to-from).length () - period * fraction) / n;
247 stencil = make_dashed_line (thick, from, to, period, fraction);
250 stencil = make_line (thick, from, to);
255 ADD_INTERFACE (Line_interface,
256 "Generic line objects. Any object using lines supports this."
257 " The property @code{style} can be @code{line},"
258 " @code{dashed-line}, @code{trill}, @code{dotted-line} or"
261 "For @code{dashed-line}, the length of the dashes is tuned"
262 " with @code{dash-fraction}. If the latter is set to@tie{}0, a"
263 " dotted line is produced. If @code{dash-period} is negative,"
264 " the line is made transparent.",