Caches the interior skylines of vertical axis groups and systems.

scm/output-lib.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2012 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; 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
 ;;;; (at your option) any later version.
 ;;;;
@@ skipping 225 matching lines @@
 ;; side-position stuff
 
 (define-public (only-if-beamed g)
   (any (lambda (x) (ly:grob? (ly:grob-object x 'beam)))
        (ly:grob-array->list (ly:grob-object g 'side-support-elements))))
 
 (define-public side-position-interface::y-aligned-side
   (ly:make-unpure-pure-container
     ly:side-position-interface::y-aligned-side
     ly:side-position-interface::pure-y-aligned-side))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; outside-staff stuff
+
+(define-public outside-staff-interface::y-aligned-side
+  (ly:make-unpure-pure-container
+    ly:outside-staff-interface::y-aligned-side
+    ly:outside-staff-interface::pure-y-aligned-side))
+
+(define-public side-position-outside-staff-y-aligned-side
+  (ly:make-simple-closure
+    (ly:make-simple-closure
+      `(,outside-staff-interface::y-aligned-side
+         ,(ly:make-simple-closure
+            (list side-position-interface::y-aligned-side))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; self-alignment stuff
 
 (define-public self-alignment-interface::y-aligned-on-self
   (ly:make-unpure-pure-container
     ly:self-alignment-interface::y-aligned-on-self
     ly:self-alignment-interface::pure-y-aligned-on-self))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ skipping 1030 matching lines @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; volta-bracket
 
 (define-public (volta-bracket-interface::pure-height grob start end)
   (let ((edge-height (ly:grob-property grob 'edge-height)))
     (if (number-pair? edge-height)
         (let ((smaller (min (car edge-height) (cdr edge-height)))
               (larger (max (car edge-height) (cdr edge-height))))
           (interval-union '(0 . 0) (cons smaller larger)))
         '(0 . 0))))