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 set_elt_property ("transparent", SCM_BOOL_T);
29 set_extent_callback (0, X_AXIS);
30 set_extent_callback (0, Y_AXIS);
34 if (!directional_element (this).get ())
35 directional_element (this).set (UP);
37 Staff_symbol_referencer_interface si (this);
38 int p = int (si.position_f ());
40 si.set_position (p + directional_element (this).get ());
45 Dots::do_brew_molecule () const
47 Molecule mol (lookup_l ()->blank (Box (Interval (0,0),
49 Molecule d = lookup_l ()->afm_find (String ("dots-dot"));
51 Real dw = d.extent (X_AXIS).length ();
52 d.translate_axis (-dw, X_AXIS);
55 for (int i = gh_scm2int (get_elt_property ("dot-count")); i--; )
57 d.translate_axis (2*dw,X_AXIS);