X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fstem-tremolo.cc;h=bbc4b0b50ad8b887d9fb4ec7411aa4b7ef24ea08;hb=82731e802565546441c401a84a13b486e54eb760;hp=5ada498afdccf158f749831a380d9fced3337ba7;hpb=7ed4019033adf7db7a8f64c4eb7b7f6d0449402f;p=lilypond.git

diff --git a/lily/stem-tremolo.cc b/lily/stem-tremolo.cc
index 5ada498afd..bbc4b0b50a 100644
--- a/lily/stem-tremolo.cc
+++ b/lily/stem-tremolo.cc
@@ -50,11 +50,11 @@ Stem_tremolo::do_brew_molecule_p () const
     }
   
   Real interbeam_f = paper_l ()->interbeam_f (mult);
-  Real w = 1.5 * lookup_l ()->notehead (2, "").dim_[X_AXIS].length ();
+  Real w  = gh_scm2double (get_elt_property ("beam-width"));
   Real space = stem_l_->staff_line_leading_f ();
   Real internote_f = space/2;
   
-  Real beam_f = paper_l ()->get_var ("beam_thickness");
+  Real beam_f = gh_scm2double (get_elt_property ("beam-thickness"));
 
   int beams_i = 0;
   Real slope_f = internote_f / 4 / internote_f;	// HUH?