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 dir_str = String_convert::int_str ((int)dir);
154 String name = "feta-sleur-" + dx_str + "-" + dy_str + "-" + dir_str;
155 int i = name.index_i ('.');
158 *(name.ch_l () + i) = 'x';
159 i = name.index_i ('.');
162 String mf = "\\embeddedmf{" + name + "}{\n";
163 mf += "mode_setup;\n";
164 mf += "staffsize\\#:="
165 + String_convert::int_str ((int)paper_l_->get_var ("barsize"), "%d")
167 mf += "interline#:=staffsize#/4;\n";
168 mf += "stafflinethickness#:=0.1interline#;\n";
169 mf += "input feta-sleur;\n";
170 mf += "slurchar(" + dx_str + "," + dy_str + "," + dir_str + ");\n";
180 Lookup::tex_slur (int dy , Real &dx, Direction dir) const
182 assert (abs (dir) <= 1);
184 Direction y_sign = (Direction) sign (dy);
186 bool large = abs (dy) > 8;
190 large |= dx>= 4*16 PT;
193 large |= dx>= 4*54 PT;
197 s = big_slur (dy, dx, dir);
201 int widx = int (floor (dx/4.0)); // slurs better too small..
207 WARN << _("slur too narrow: ") << print_dimen (orig_dx) << "\n";
216 WARN<<_("slur to steep: ") << dy << _(" shrinking (ugh)\n");
219 String f = String ("\\slurchar") + String (direction_char (y_sign));
224 idx = hidx * 16 + widx;
232 WARN << _("slur too wide: ") << print_dimen (dx) <<
233 _(" shrinking (ugh)\n");
242 f+=String ("{") + String (idx) + "}";
244 s.translate_axis (dx/2, X_AXIS);
249 Lookup::big_slur (int dy , Real &dx, Direction dir) const
253 warning (_("big_slur too small ") + print_dimen (dx) + _(" (stretching)"));
257 Real slur_extra =abs (dy) /2.0 + 2;
258 int l_dy = int (Real (dy)/2 + slur_extra*dir);
259 int r_dy = dy - l_dy;
261 Real internote_f = paper_l_->internote_f();
262 Real left_wid = dx/4.0;
263 Real right_wid = left_wid;
265 Atom l = half_slur (l_dy, left_wid, dir, -1);
268 Atom r = half_slur (r_dy, right_wid, dir, 1);
269 Real mid_wid = dx - left_wid - right_wid;
273 Atom a (half_slur (0, mid_wid, dir, 0));
274 mol.add_at_edge (X_AXIS, RIGHT, a);
275 mol.add_at_edge (X_AXIS, RIGHT, r);
277 mol.translate_axis (l_dy * internote_f, Y_AXIS);
279 s.tex_ = mol.TeX_string();
280 s.dim_ = mol.extent();
286 Lookup::slur (Real &dy_f , Real &dx, Real ht, Direction dir) const
290 warning (_("Negative slur/tie length: ") + print_dimen (dx));
295 if (postscript_global_b)
296 s = ps_slur (dy_f, dx, ht, dir);
299 Real nh = paper_l_->internote_f ();
300 int dy_i = (int) rint(dy_f / nh);
302 s = tex_slur (dy_i, dx, dir);
306 s.dim_[X_AXIS] = Interval (0, dx);
307 s.dim_[Y_AXIS] = Interval (0 <? dy_f, 0 >? dy_f);