From: Joe Neeman <joeneeman@gmail.com>
Date: Tue, 24 Mar 2009 08:15:10 +0000 (-0700)
Subject: Tweak the accuracy for Hairpin pure-height.
X-Git-Tag: release/2.13.1-1~61^2~1^2~15
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ff82038763b741ef3c98f0ba11da0749ec170dac;p=lilypond.git

Tweak the accuracy for Hairpin pure-height.
---

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