]> git.donarmstrong.com Git - lilypond.git/blob - lily/time-signature.cc
e882c5558287c66756e293761c04368d0331c08f
[lilypond.git] / lily / time-signature.cc
1 #include "scalar.hh"
2 #include "molecule.hh"
3 #include "time-signature.hh"
4 #include "paper-def.hh"
5 #include "lookup.hh"
6
7 Time_signature::Time_signature (Array<Scalar>a)
8   :args (a)
9 {
10   breakable_b_ = true;
11 }
12
13 Molecule*
14 Time_signature::brew_molecule_p() const
15 {
16   Atom s = lookup_l ()->time_signature (args);
17   s.translate_axis (-s.extent()[Y_AXIS].center (), Y_AXIS);
18   return new Molecule (Atom (s));
19 }
20
21
22
23 IMPLEMENT_IS_TYPE_B1(Time_signature,Item);