4
4
source file of the GNU LilyPond music typesetter
6
(c) 1998--2004 Jan Nieuwenhuizen <janneke@gnu.org>
6
(c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
11
#include "bezier-bow.hh"
13
10
#include "bezier.hh"
19
return 2 / M_PI * atan (M_PI * x / 2);
15
return 2 / M_PI *atan (M_PI *x / 2);
25
21
return F0_1 (width * r_0 / h_inf) * h_inf;
29
33
For small w, the height should be proportional to w, for w ->
30
34
infinity, the height should rise to a limit asymptotically.
51
55
Although this might seem cand_idates to SCM-ify, it is not all clear
52
56
which parameters (ie. h_inf, r_0, F (.)) should be candidates for
53
this. At present h_inf and r_0 come from paper settings, but we did
57
this. At present h_inf and r_0 come from layout settings, but we did
54
58
no experiments for determining the best combinations of F, h_inf and
62
The indent is proportional to the height of the slur for small
63
slurs. For large slurs, this gives a certain hookiness at the end,
64
so we increase the indent.
71
(due to derivative constraints, we cannot have indent > len/3)
73
w -> inf, G(w) -> 2*h_inf
78
G(0) = 0 , G'(0) 1/3, G(infty) = 2h_inf
86
G(w) = 2 h_inf - max_fraction * q^2/ (w + q)
92
get_slur_indent_height (Real *indent, Real *height,
93
Real width, Real h_inf, Real r_0)
95
Real max_fraction = 1.0 / 3.1;
96
*height = slur_height (width, h_inf, r_0);
98
Real q = 2 * h_inf / max_fraction;
99
*indent = 2 * h_inf - sqr (q) * max_fraction / (width + q);
60
103
slur_shape (Real width, Real h_inf, Real r_0)
108
get_slur_indent_height (&indent, &height,
63
Real height = slur_height (width, h_inf, r_0);
66
112
curve.control_[0] = Offset (0, 0);
67
113
curve.control_[1] = Offset (indent, height);
68
114
curve.control_[2] = Offset (width - indent, height);
69
115
curve.control_[3] = Offset (width, 0);