2 tex-slur.cc -- implement Lookup::*slur
4 source file of the GNU LilyPond music typesetter
6 (c) 1996,1997 Han-Wen Nienhuys <hanwen@stack.nl>
13 #include "molecule.hh"
16 #include "paper-def.hh"
17 #include "string-convert.hh"
21 direction_char (Direction y_sign
)
42 Lookup::half_slur_middlepart (Real
&dx
, Direction dir
) const
47 WARN
<<_("halfslur too large") <<print_dimen (dx
)<< _("shrinking (ugh)\n");
50 int widx
= int (floor (dx
/ 4.0));
55 WARN
<< _("slur too narrow\n");
60 s
.dim_
[Y_AXIS
] = Interval (min (0, 0), max (0, 0)); // todo
61 s
.dim_
[X_AXIS
] = Interval (-dx
/2, dx
/2);
63 String f
= String ("\\hslurchar");
64 f
+= direction_char (CENTER
);
72 f
+=String ("{") + String (idx
) + "}";
74 s
.translate_axis (dx
/2, X_AXIS
);
80 The halfslurs have their center at the end pointing away from the notehead.
81 This lookup translates so that width() == [0, w]
85 Lookup::half_slur (int dy
, Real
&dx
, Direction dir
, int xpart
) const
89 return half_slur_middlepart (dx
, dir
);
95 WARN
<< _("Slur half too wide.") << print_dimen (orig_dx
) << _(" shrinking (ugh)\n");
99 widx
= int (rint (dx
/12.0));
105 WARN
<< _("slur too narrow ") << print_dimen (orig_dx
)<<"\n";
109 s
.dim_
[X_AXIS
] = Interval (0, dx
);
110 s
.dim_
[Y_AXIS
] = Interval (min (0, dy
), max (0, dy
));
113 String f
= String ("\\hslurchar");
115 f
+= direction_char (dir
);
123 idx
= widx
* 16 + hidx
;
128 f
+=String ("{") + String (idx
) + "}";
136 Lookup::ps_slur (Real dy
, Real dx
, Real ht
, Real dir
) const
138 String ps
= "\\embeddedps{\n";
140 ps
+= String_convert::double_str (dx
) + " "
141 + String_convert::double_str (dy
) + " "
142 + String_convert::double_str (ht
) + " "
143 + String_convert::double_str (dir
) +
147 slurs are rarely wider than 100pt:
148 precision of 3 yields maximum (slur spanning page)
149 error of: 1%% * 6*72pt === 0.4pt = 0.14 mm
151 String dx_str
= String_convert::precision_str (dx
, 4);
152 String dy_str
= String_convert::precision_str (dy
, 3);
153 String ht_str
= String_convert::precision_str (ht
, 3);
154 String dir_str
= String_convert::int_str ((int)dir
);
155 String name
= "feta-sleur-" + dx_str
+ "-" + dy_str
+ "-" + ht_str
+ "-" + dir_str
;
156 int i
= name
.index_i ('.');
159 *(name
.ch_l () + i
) = 'x';
160 i
= name
.index_i ('.');
163 String mf
= "\\embeddedmf{" + name
+ "}{\n";
164 mf
+= "mode_setup;\n";
165 mf
+= "staffsize\\#:="
166 + String_convert::int_str ((int)paper_l_
->get_var ("barsize"), "%d")
168 mf
+= "interline#:=staffsize#/4;\n";
169 mf
+= "stafflinethickness#:=0.1interline#;\n";
170 mf
+= "input feta-sleur;\n";
171 mf
+= "slurchar(" + dx_str
+ "," + dy_str
+ "," + ht_str
+ "," + dir_str
+ ");\n";
181 Lookup::tex_slur (int dy
, Real
&dx
, Direction dir
) const
183 assert (abs ((int)dir
) <= 1);
185 Direction y_sign
= (Direction
) sign (dy
);
187 bool large
= abs (dy
) > 8;
191 large
|= dx
>= 4*16 PT
;
194 large
|= dx
>= 4*54 PT
;
198 s
= big_slur (dy
, dx
, dir
);
202 int widx
= int (floor (dx
/4.0)); // slurs better too small..
208 WARN
<< _("slur too narrow: ") << print_dimen (orig_dx
) << "\n";
217 WARN
<<_("slur to steep: ") << dy
<< _(" shrinking (ugh)\n");
220 String f
= String ("\\slurchar") + String (direction_char (y_sign
));
225 idx
= hidx
* 16 + widx
;
233 WARN
<< _("slur too wide: ") << print_dimen (dx
) <<
234 _(" shrinking (ugh)\n");
243 f
+=String ("{") + String (idx
) + "}";
245 s
.translate_axis (dx
/2, X_AXIS
);
250 Lookup::big_slur (int dy
, Real
&dx
, Direction dir
) const
254 warning (_("big_slur too small ") + print_dimen (dx
) + _(" (stretching)"));
258 Real slur_extra
=abs (dy
) /2.0 + 2;
259 int l_dy
= int (Real (dy
)/2 + slur_extra
*dir
);
260 int r_dy
= dy
- l_dy
;
262 Real internote_f
= paper_l_
->internote_f();
263 Real left_wid
= dx
/4.0;
264 Real right_wid
= left_wid
;
266 Atom l
= half_slur (l_dy
, left_wid
, dir
, -1);
269 Atom r
= half_slur (r_dy
, right_wid
, dir
, 1);
270 Real mid_wid
= dx
- left_wid
- right_wid
;
274 Atom
a (half_slur (0, mid_wid
, dir
, 0));
275 mol
.add_at_edge (X_AXIS
, RIGHT
, a
);
276 mol
.add_at_edge (X_AXIS
, RIGHT
, r
);
278 mol
.translate_axis (l_dy
* internote_f
, Y_AXIS
);
280 s
.tex_
= mol
.TeX_string();
281 s
.dim_
= mol
.extent();
287 Lookup::slur (Real
&dy_f
, Real
&dx
, Real ht
, Direction dir
) const
291 warning (_("Negative slur/tie length: ") + print_dimen (dx
));
296 if (postscript_global_b
)
297 s
= ps_slur (dy_f
, dx
, ht
, dir
);
300 Real nh
= paper_l_
->internote_f ();
301 int dy_i
= (int) rint(dy_f
/ nh
);
303 s
= tex_slur (dy_i
, dx
, dir
);
307 s
.dim_
[X_AXIS
] = Interval (0, dx
);
308 s
.dim_
[Y_AXIS
] = Interval (0 <? dy_f
, 0 >? dy_f
);