Tempo and Rehearsal marks horizontal positioning; issue 3279

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

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 3348ca470df0011e8140ad15b5575254994f136a..caa7032c70b9a5879f3a4adb05f899d1b3196b9a 100644 (file)
--- 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)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;