]> git.donarmstrong.com Git - lilypond.git/blob - lily/meter.cc
release: 0.1.7
[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);