Caches the interior skylines of vertical axis groups and systems.

ly/music-functions-init.ly

 %%%% -*- Mode: Scheme -*-
 
 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
 %%%% Copyright (C) 2003--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %%%%                          Jan Nieuwenhuizen <janneke@gnu.org>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
 %%%% the Free Software Foundation, either version 3 of the License, or
@@ skipping 1378 matching lines @@
 will result in two groups of three tuplets, each group lasting for a
 quarter note.")
    (make-music 'TimeScaledMusic
                'element (ly:music-compress
                          music
                          (ly:make-moment (cdr ratio) (car ratio)))
                'numerator (cdr ratio)
                'denominator (car ratio)
                'duration tuplet-span))
 
+tupletOutsideStaffPriority =
+#(define-music-function (parser location priority)
+   (number?)
+   (_i "Gives @code{outside-staff-priority} to both @code{TupletNumber}
+and @code{TupletBracket}, with @code{TupletBracket} having a slightly
+lower priority so that it gets shifted first and the @code{TupletNumber}
+can calculate its position based on the @code{TupletBracket}.
+@example
+\\tupletOutsideStaffPriority #1
+@end example
+")
+   #{
+     \override TupletBracket #'outside-staff-priority = #priority
+     \override TupletNumber #'outside-staff-priority = $(+ priority 0.001)
+   #})
+
 tupletSpan =
 #(define-music-function (parser location tuplet-span)
    ((ly:duration?))
    (_i "Set @code{tupletSpannerDuration}, the length into which
 @code{\\tuplet} without an explicit @samp{tuplet-span} argument of its
 own will group its tuplets, to the duration @var{tuplet-span}.  To
 revert to the default of not subdividing the contents of a @code{\\tuplet}
 command without explicit @samp{tuplet-span}, use
 @example
 \\tupletSpan \\default
@@ skipping 114 matching lines @@
 Use this if you want to have a scheme expression evaluated
 because of its side-effects, but its value ignored."))
 
 withMusicProperty =
 #(define-music-function (parser location sym val music)
    (symbol? scheme? ly:music?)
    (_i "Set @var{sym} to @var{val} in @var{music}.")
 
    (set! (ly:music-property music sym) val)
    music)