lily/time-signature.cc

   1 /*
   2   time-signature.cc --  implement Time_signature
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1996--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "scalar.hh"
  11 #include "molecule.hh"
  12 #include "time-signature.hh"
  13 #include "paper-def.hh"
  14 #include "lookup.hh"
  15
  16 Time_signature::Time_signature ()
  17 {
  18   set_elt_property (breakable_scm_sym, SCM_BOOL_T);
  19 }
  20
  21 Molecule*
  22 Time_signature::do_brew_molecule_p () const
  23 {
  24   if (time_sig_type_str_.length_i ())
  25     {
  26       if (time_sig_type_str_[0]=='1')
  27         {
  28           Array<int> tmparr = args_;
  29           return new Molecule( lookup_l ()->time_signature (args_[0], 0, paper_l ()));
  30         }
  31       else
  32         {
  33           return new Molecule( lookup_l ()-> special_time_signature (time_sig_type_str_ ,args_[0], args_[1], paper_l ()));
  34         }
  35     }
  36   else
  37     return new Molecule(lookup_l ()->time_signature (args_[0], args_[1],paper_l ()));
  38 }
  39
  40
  41
  42