From ff82038763b741ef3c98f0ba11da0749ec170dac Mon Sep 17 00:00:00 2001 From: Joe Neeman Date: Tue, 24 Mar 2009 01:15:10 -0700 Subject: [PATCH] Tweak the accuracy for Hairpin pure-height. --- lily/hairpin.cc | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lily/hairpin.cc b/lily/hairpin.cc index b20c9827e2..249c50206a 100644 --- a/lily/hairpin.cc +++ b/lily/hairpin.cc @@ -42,9 +42,14 @@ SCM Hairpin::pure_height (SCM smob, SCM, SCM) { Grob *me = unsmob_grob (smob); - Real height = robust_scm2double (me->get_property ("height"), 0.0); + Real height = robust_scm2double (me->get_property ("height"), 0.0) + * Staff_symbol_referencer::staff_space (me); - return ly_interval2scm (Interval (-height/2, height/2)); + Real thickness = robust_scm2double (me->get_property ("thickness"), 1) + * Staff_symbol_referencer::line_thickness (me); + + height += thickness / 2; + return ly_interval2scm (Interval (-height, height)); } void -- 2.39.5