lily/bar.cc

   1 /*
   2   bar.cc -- implement Bar
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "bar.hh"
  10 #include "string.hh"
  11 #include "molecule.hh"
  12 #include "paper-def.hh"
  13 #include "lookup.hh"
  14 #include "debug.hh"
  15
  16
  17 Bar::Bar ()
  18 {
  19   set_elt_property (breakable_scm_sym, SCM_BOOL_T);
  20   type_str_ = "|";
  21 }
  22
  23 void
  24 Bar::do_print () const
  25 {
  26 #ifndef NPRINT
  27     //  DOUT << type_str_; "{[" confuse  indenter.
  28 #endif
  29 }
  30
  31 Real
  32 Bar::get_bar_size () const
  33 {
  34   return paper_l ()->get_var ("barsize");
  35 }
  36
  37
  38 Molecule*
  39 Bar::do_brew_molecule_p () const
  40 {
  41   Molecule *output = new Molecule (lookup_l ()->bar (type_str_, get_bar_size ()));
  42
  43   return output;
  44 }
  45
  46 /**
  47   Prescriptions for splitting bars.
  48   TODO: put this in SCM.
  49  */
  50 static char const *bar_breaks[][3] ={
  51   {":|", ":|:", "|:"},
  52   {"|", "|", ""},
  53   {"", "|s", "|"},
  54   {"", "|:", "|:"},
  55   {"|.", "|.", ""},
  56   {":|", ":|", ""},
  57   {"||", "||", ""},
  58   {".|.", ".|.", ""},
  59   {"", "scorebar", "scorepostbreak"},
  60   {"", "{", "{"},
  61   {"", "[", "["},
  62   {0,0,0}
  63 };
  64
  65 void
  66 Bar::do_pre_processing ()
  67 {
  68   for (int i=0; bar_breaks[i][0]; i++)
  69     {
  70       if (bar_breaks[i][1] == type_str_)
  71         {
  72           type_str_ = bar_breaks[i][break_status_dir ()+1];
  73           if (remove_elt_property (at_line_start_scm_sym)!= SCM_BOOL_F
  74               && (break_status_dir () == RIGHT) && (type_str_ == ""))
  75             {
  76               type_str_ = "|";
  77             }
  78         }
  79     }
  80 }
  81