DynamicText: reference point at middle of ex-height

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index e04b298975cde419bfc931c2fbdd34e4d84d574e..33a03139dead37a6f1e6a09d3cf57259ef466e6e 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -854,6 +854,11 @@ and duration-log @var{log}."
    the previous calculated offset value."
   prev-offset)
 
+(define-public (scale-by-font-size x)
+  (ly:make-unpure-pure-container
+    (lambda (grob)
+      (* x (magstep (ly:grob-property grob 'font-size 0))))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;