]> git.donarmstrong.com Git - lilypond.git/blob - lily/meter.cc
release: 0.0.40
[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 }
11
12 Molecule*
13 Meter::brew_molecule_p()const
14 {
15     Symbol s = paper()->lookup_l()->meter(args);
16     return new Molecule(Atom(s));
17 }
18