X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-lib.scm;h=33a03139dead37a6f1e6a09d3cf57259ef466e6e;hb=9555390b4d4bf94d9d53b48220a9746dc501ef13;hp=e04b298975cde419bfc931c2fbdd34e4d84d574e;hpb=2c0f56cc2c2b7e6d3a5f7792c006e55675c9e0d7;p=lilypond.git

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index e04b298975..33a03139de 100644
--- 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))))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;