2 g-stem-staff-side.cc -- implement Stem_staff_side
4 source file of the GNU LilyPond music typesetter
6 (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "stem-staff-side.hh"
13 Stem_staff_side_item::Stem_staff_side_item ()
16 relative_dir_ = CENTER;
20 Stem_staff_side_item::do_substitute_element_pointer (Score_element*o,
25 stem_l_ = dynamic_cast<Stem*> (n);
30 Stem_staff_side_item::set_stem (Stem*s)
38 Stem_staff_side_item::get_default_direction () const
40 return relative_dir_ * stem_l_->dir_;
44 Stem_staff_side_item::do_pre_processing ()
46 SCM p = remove_elt_property (padding_scm_sym);
47 if (p != SCM_BOOL_F && stem_l_)
50 set_elt_property (padding_scm_sym,
51 gh_double2scm(stem_l_->staff_line_leading_f ()
52 * gh_scm2double (p)));
54 Staff_side_item::do_pre_processing ();