source file of the GNU LilyPond music typesetter
- (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "bow.hh"
+#include "debug.hh"
#include "paper-def.hh"
#include "molecule.hh"
#include "lookup.hh"
+#include "bezier.hh"
+#include "main.hh"
-Bow::Bow()
+Bow::Bow ()
{
- pos_i_drul_[LEFT] = pos_i_drul_[RIGHT] = 0;
+ dy_f_drul_[LEFT] = dy_f_drul_[RIGHT] = 0.0;
dx_f_drul_[LEFT] = dx_f_drul_[RIGHT] = 0.0;
}
+Molecule*
+Bow::do_brew_molecule_p () const
+{
+ Real thick = paper_l ()->get_var ("slur_thickness");
+ Array<Offset> c = get_controls ();
+
+ Molecule a;
+
+ SCM d = get_elt_property (dashed_scm_sym);
+ if (d == SCM_BOOL_F)
+ a = lookup_l ()->slur (c, thick);
+ else
+ a = lookup_l ()->dashed_slur (c, thick, gh_scm2int (SCM_CDR(d)));
+
+ return new Molecule (a);
+}
Offset
-Bow::center() const
+Bow::center () const
{
- int dy = pos_i_drul_[RIGHT]-pos_i_drul_[LEFT];
+ Real dy = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
+ Real dx = extent(X_AXIS).length ();
- Real w = width().length ();
+ return Offset (dx / 2, dy);
+}
- return Offset (w/2,dy * paper()->internote_f ());
+/*
+ Ugh. Control points are too crude measures.
+ */
+Interval
+Bow::do_height () const
+{
+ Interval iv;
+ Array<Offset> c (get_controls());
+ for (int i=0; i < c.size (); i++)
+ {
+ Real y = c[i][Y_AXIS];
+ iv.unite (Interval (y,y));
+ }
+ return iv;
}
+Drul_array<Interval>
+Bow::curve_extent_drul () const
+{
+ Bezier_bow b (paper_l ());
+ b.set (get_encompass_offset_arr (), dir_);
+ b.calc ();
+ return b.curve_extent_drul_;
+}
-Molecule*
-Bow::brew_molecule_p() const
+Array<Offset>
+Bow::get_controls () const
{
- Molecule*output = new Molecule;
- Real w = width().length ();
-
- int dy = pos_i_drul_[RIGHT] - pos_i_drul_[LEFT];
-
- Real nw_f = paper()->note_width ();
- Real nh_f = paper()->internote_f ();
-
-
- w+= (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT]) * nw_f ;
- Real round_w = w; // slur lookup rounds the slurwidth .
-
- Symbol sl = paper()->lookup_l ()->slur (dy , round_w, dir_);
-
- Real error = w-round_w;
-
- Atom a (sl);
- a.translate (Offset ((dx_f_drul_[LEFT] + 0.5)*nw_f + error/2,
- pos_i_drul_[LEFT] * nh_f));
- output->add (a);
- return output;
+ Bezier_bow b (paper_l ());
+ b.set (get_encompass_offset_arr (), dir_);
+ b.calc ();
+ Array<Offset> controls;
+ controls.set_size (8);
+ for (int i = 0; i < 4; i++)
+ controls[i] = b.control_[i];
+ for (int i = 0; i < 4; i++)
+ controls[i + 4] = b.return_[i];
+ return controls;
}
+Array<Offset>
+Bow::get_encompass_offset_arr () const
+{
+ Array<Offset> offset_arr;
+ offset_arr.push (Offset (dx_f_drul_[LEFT], dy_f_drul_[LEFT]));
+ offset_arr.push (Offset (do_width ().length () + dx_f_drul_[RIGHT],
+ dy_f_drul_[RIGHT]));
+
+ return offset_arr;
+}
-IMPLEMENT_IS_TYPE_B1(Bow,Directional_spanner);