lily/staff-bar.cc

   1 /*
   2   staff-bar.cc --  implement Staff_bar
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "staff-bar.hh"
  11
  12 Real
  13 Staff_bar::get_bar_size () const
  14 {
  15   SCM size_sym = get_elt_property (bar_size_scm_sym);
  16   if (size_sym != SCM_BOOL_F)
  17     return gh_scm2double (SCM_CDR(size_sym));
  18   else
  19     return (lines_i () -1) * staff_line_leading_f ();
  20 }