2 dots.cc -- implement Dots
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "molecule.hh"
11 #include "paper-def.hh"
13 #include "staff-symbol-referencer.hh"
14 #include "directional-element-interface.hh"
19 set_elt_property ("dot-count", gh_int2scm (0));
23 Dots::after_line_breaking ()
25 SCM d= get_elt_property ("dot-count");
26 if (gh_number_p (d) && gh_scm2int (d))
28 if (!directional_element (this).get ())
29 directional_element (this).set (UP);
31 Staff_symbol_referencer_interface si (this);
32 int p = int (si.position_f ());
34 si.set_position (p + directional_element (this).get ());
38 MAKE_SCHEME_SCORE_ELEMENT_CALLBACKS(Dots);
40 Dots::do_brew_molecule () const
42 Molecule mol (lookup_l ()->blank (Box (Interval (0,0),
45 SCM c = get_elt_property ("dot-count");
48 Molecule d = lookup_l ()->afm_find (String ("dots-dot"));
50 Real dw = d.extent (X_AXIS).length ();
51 d.translate_axis (-dw, X_AXIS);
54 for (int i = gh_scm2int (c); i--; )
56 d.translate_axis (2*dw,X_AXIS);