patch::: 1.1.52.mb2

[lilypond.git] / lily / stem-engraver.cc

diff --git a/lily/stem-engraver.cc b/lily/stem-engraver.cc
index 457911bdc17366a2a08ef8bcf241bac4ec5efebb..296422cfea1d11d03fb87c75c8bfa80e3c078510 100644 (file)
--- a/lily/stem-engraver.cc
+++ b/lily/stem-engraver.cc
@@ -40,6 +40,9 @@ Stem_engraver::acknowledge_element(Score_element_info i)
 {
   if (Rhythmic_head * h = dynamic_cast<Rhythmic_head *> (i.elem_l_))
     {
+      if (h->stem_l_)
+       return;
+      
       Rhythmic_req * r = dynamic_cast <Rhythmic_req *> (i.req_l_);
       int duration_log = r->duration_.durlog_i_;      
       if (!stem_p_) 
@@ -115,6 +118,18 @@ Stem_engraver::do_pre_move_processing()
          ((Translator_group*)which)->set_property ("stemRightBeamCount", "");
        }
 
+      prop = get_property ("stemLength", 0);
+      if (prop.isnum_b ())
+       {
+         stem_p_->set_elt_property (length_scm_sym, gh_double2scm (prop.to_f ()));
+       }
+
+      prop = get_property ("stemStyle", 0);
+      if (prop.to_bool ())
+       {
+         stem_p_->set_elt_property (style_scm_sym, gh_str02scm (prop.ch_C()));
+       }
+      
       typeset_element(stem_p_);
       stem_p_ = 0;
     }