X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-lib.scm;h=caa7032c70b9a5879f3a4adb05f899d1b3196b9a;hb=b6f94447415dded7c6e146b41b6139fe76cb84c4;hp=3348ca470df0011e8140ad15b5575254994f136a;hpb=80c029b079858c3278f30f6ff268ba350bf74e48;p=lilypond.git

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 3348ca470d..caa7032c70 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -854,6 +854,14 @@ and duration-log @var{log}."
    the previous calculated offset value."
   prev-offset)
 
+(define-public (outside-staff::pure-Y-offset grob start end)
+  "Initial vertical placement of items such as tempo and
+   rehearsal marks, for use in note-spacing."
+   (* (+ (ly:staff-symbol-staff-radius grob)
+         (ly:grob-property grob 'outside-staff-padding 0.0)
+         1.0)
+      (ly:grob-property grob 'direction CENTER)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;