release: 1.3.88

[lilypond.git] / lily / volta-spanner.cc

diff --git a/lily/volta-spanner.cc b/lily/volta-spanner.cc
index c2d6c7511be00bbddd782b83cc6ea8a762f33fcd..e244e6ad7ca7f9259b99715e37591d32760f4588 100644 (file)
--- a/lily/volta-spanner.cc
+++ b/lily/volta-spanner.cc
@@ -64,11 +64,12 @@ Volta_spanner::brew_molecule (SCM smob)
 #endif
 
   Real staff_space = me->paper_l ()->get_var ("interline");
+  Real staff_thick = me->paper_l ()->get_var ("stafflinethickness");  
   Real half_space = staff_space / 2;
   Real left = dynamic_cast<Spanner*>(me)->get_broken_left_end_align ();
   Real w = dynamic_cast<Spanner*>(me)->spanner_length () - left - half_space;
-  Real h = me->paper_l()->get_var ("volta_spanner_height");
-  Real t = me->paper_l ()->get_var ("volta_thick");
+  Real h = staff_space * gh_scm2double (me->get_elt_property ("height"));
+  Real t = staff_thick * gh_scm2double (me->get_elt_property ("thickness"));
 
   /*
     ugh: should build from line segments.