]> git.donarmstrong.com Git - lilypond.git/blob - lily/dots.cc
release: 0.1.22
[lilypond.git] / lily / dots.cc
1 /*
2   dots.cc -- implement Dots
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
7 */
8
9 #include "dots.hh"
10 #include "molecule.hh"
11 #include "paper-def.hh"
12 #include "lookup.hh"
13
14 Dots::Dots ()
15 {
16   no_dots_i_ =0;
17   position_i_ =0;
18 }
19
20 void
21 Dots::do_post_processing ()
22 {
23   if (!(position_i_ % 2))
24     position_i_ ++;
25   if (!no_dots_i_)
26     {
27       transparent_b_ = true;
28       set_empty(true);
29     }
30 }
31
32 Molecule* 
33 Dots::brew_molecule_p () const
34 {
35   Molecule *out = new Molecule;
36   Atom fill = paper()->lookup_l ()->fill (Box(Interval(0,0),Interval(0,0)));
37   out->add(fill);
38
39   Atom d = paper ()->lookup_l ()->dots ();
40
41   Real dw = d.dim_[X_AXIS].length();
42   d.translate_axis(-dw,X_AXIS);
43   for (int i=no_dots_i_; i--; )
44     {
45       d.translate_axis(2*dw,X_AXIS);
46       out->add (d);
47     }
48   Real inter_f = paper ()->internote_f ();
49   out->translate_axis (inter_f * position_i_, Y_AXIS);
50   return out;
51 }
52
53 IMPLEMENT_IS_TYPE_B1(Dots, Item);