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