src/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_p_->meter(args);
  16     return new Molecule(Atom(s));
  17 }
  18