2 time-signature.cc -- implement Time_signature
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "molecule.hh"
12 #include "time-signature.hh"
13 #include "paper-def.hh"
16 Time_signature::Time_signature ()
18 set_elt_property ("breakable", SCM_BOOL_T);
22 Time_signature::do_brew_molecule_p () const
24 SCM st = get_elt_property ("style");
26 if (st != SCM_UNDEFINED)
28 String style (ly_scm2string (st));
31 Array<int> tmparr = args_;
32 return new Molecule( lookup_l ()->time_signature (args_[0], 0, paper_l ()));
36 return new Molecule( lookup_l ()-> special_time_signature (style, args_[0], args_[1], paper_l ()));
40 return new Molecule(lookup_l ()->time_signature (args_[0], args_[1],paper_l ()));