2 dots.cc -- implement Dots
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "molecule.hh"
11 #include "paper-def.hh"
20 Dots::do_post_processing ()
24 set_elt_property ("transparent", SCM_BOOL_T);
30 if (!get_direction ())
33 int p = int (position_f ());
35 set_position (p + get_direction ());
39 Dots::do_brew_molecule_p () const
41 Molecule *out = new Molecule;
42 Molecule fill = lookup_l ()->fill (Box (Interval (0,0),
44 out->add_molecule (fill);
46 Molecule d = lookup_l ()->afm_find (String ("dots-dot"));
48 Real dw = d.dim_[X_AXIS].length ();
49 d.translate_axis (-dw, X_AXIS);
50 for (int i=dots_i_; i--; )
52 d.translate_axis (2*dw,X_AXIS);
53 out->add_molecule (d);