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_sym
, SCM_BOOL_T
);
22 Time_signature::do_brew_molecule_p () const
24 if (time_sig_type_str_
.length_i ())
26 if (time_sig_type_str_
[0]=='1')
28 Array
<int> tmparr
= args_
;
29 return new Molecule( lookup_l ()->time_signature (args_
[0], 0));
33 return new Molecule( lookup_l ()-> special_time_signature (time_sig_type_str_
,args_
[0], args_
[1]));
37 return new Molecule(lookup_l ()->time_signature (args_
[0], args_
[1]));