lily/staff-symbol.cc

   1 /*
   2   staffsym.cc -- implement Staff_symbol
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8 #include "staff-symbol.hh"
   9 #include "lookup.hh"
  10 #include "dimensions.hh"
  11 #include "paper-def.hh"
  12 #include "molecule.hh"
  13 #include "debug.hh"
  14 #include "item.hh"
  15
  16
  17
  18
  19 GLUE_SCORE_ELEMENT(Staff_symbol,brew_molecule);
  20
  21 SCM
  22 Staff_symbol::member_brew_molecule () const
  23 {
  24   Score_element * common
  25     = get_bound (LEFT)->common_refpoint (get_bound (RIGHT), X_AXIS);
  26
  27   Real width =
  28     // right_shift     - left_shift
  29     + get_bound (RIGHT)->relative_coordinate (common , X_AXIS)
  30     - get_bound (LEFT)->relative_coordinate (common, X_AXIS)
  31     ;
  32
  33   Real t = paper_l ()->get_var ("stafflinethickness");
  34   int l = line_count ();
  35
  36   Real height = (l-1) * staff_space () /2;
  37   Molecule  m;
  38   for (int i=0; i < l; i++)
  39     {
  40       Molecule a =
  41         lookup_l ()->filledbox (Box (Interval (0,width),
  42                                      Interval (-t/2, t/2)));
  43
  44       a.translate_axis (height - i * staff_space (), Y_AXIS);
  45       m.add_molecule (a);
  46     }
  47
  48   return m.create_scheme();
  49 }
  50
  51 int
  52 Staff_symbol::steps_i() const
  53 {
  54   return line_count () * 2;
  55 }
  56
  57 int
  58 Staff_symbol::line_count () const
  59 {
  60   return gh_scm2int (get_elt_property ("line-count"));
  61 }
  62
  63 Real
  64 Staff_symbol::staff_space ()const
  65 {
  66   return gh_scm2double (get_elt_property ("staff-space")) *
  67     paper_l ()->get_var ("staffspace");
  68 }
  69
  70 Staff_symbol::Staff_symbol( SCM s)
  71   : Spanner (s)
  72 {
  73 }