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 = get_elt_property ("bar-size");
  16   if (gh_number_p (size))
  17     return gh_scm2double (size);
  18   else
  19     return (lines_i () -1) * staff_line_leading_f ();
  20 }
  21