Gets vertical skylines from grob stencils

scm/define-grobs.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--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
 ;;;; (at your option) any later version.
 ;;;;
@@ skipping 12 matching lines @@
 ;;;; WARNING: don't use anonymous functions for initialization.
 
 ;; TODO: junk the meta field in favor of something more compact?
 
 (define-public all-grob-descriptions
   `(
     (Accidental
      . (
         (alteration . ,accidental-interface::calc-alteration)
         (avoid-slur . inside)
+        (glyph-name . ,accidental-interface::glyph-name)
         (glyph-name-alist . ,standard-alteration-glyph-name-alist)
         (stencil . ,ly:accidental-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-extent . ,ly:accidental-interface::width)
         (Y-extent . ,ly:accidental-interface::height)
         (meta . ((class . Item)
                  (interfaces . (accidental-interface
                                 inline-accidental-interface
                                 font-interface))))))
 
     (AccidentalCautionary
      . (
         (alteration . ,accidental-interface::calc-alteration)
@@ skipping 344 matching lines @@
 
         (gap . 0.8)
         (neutral-direction . ,DOWN)
         (positions . ,beam::place-broken-parts-individually)
         (X-positions . ,ly:beam::calc-x-positions)
 
         ;; this is a hack to set stem lengths, if positions is set.
         (quantized-positions . ,ly:beam::set-stem-lengths)
 
         (shorten . ,ly:beam::calc-stem-shorten)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (stencil . ,ly:beam::print)
 
         (meta . ((class . Spanner)
                  (object-callbacks . ((normal-stems . ,ly:beam::calc-normal-stems)))
                  (interfaces . (beam-interface
                                 font-interface
                                 staff-symbol-referencer-interface
                                 unbreakable-spanner-interface))))))
 
     (BendAfter
@@ skipping 117 matching lines @@
         (non-musical . #t)
         (space-alist . ((cue-clef . (extra-space . 2.0))
                         (staff-bar . (extra-space . 0.7))
                         (key-cancellation . (minimum-space . 3.5))
                         (key-signature . (minimum-space . 3.5))
                         (time-signature . (minimum-space . 4.2))
                         (first-note . (minimum-fixed-space . 5.0))
                         (next-note . (extra-space . 1.0))
                         (right-edge . (extra-space . 0.5))))
         (stencil . ,ly:clef::print)
-        (vertical-skylines . ,grob::vertical-skylines-from-stencil)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (Y-offset . ,ly:staff-symbol-referencer::callback)
         (meta . ((class . Item)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:pure-from-neighbor-interface::calc-pure-relevant-grobs)))
                  (interfaces . (break-aligned-interface
                                 clef-interface
                                 font-interface
                                 pure-from-neighbor-interface
                                 staff-symbol-referencer-interface))))))
 
@@ skipping 198 matching lines @@
      . (
         (axes . (,Y))
         (cross-staff . ,ly:side-position-interface::calc-cross-staff)
         (direction . ,DOWN)
         (minimum-space . 1.2)
         (outside-staff-priority . 250)
         (padding . 0.6)
         (side-axis . ,Y)
         (slur-padding . 0.3)
         (staff-padding . 0.1)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-element-stencils)
+        (use-skylines . #t)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:axis-group-interface::height)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Spanner)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)))
                  (interfaces . (axis-group-interface
                                 dynamic-interface
                                 dynamic-line-spanner-interface
                                 side-position-interface))))))
 
     (DynamicText
      . (
 
         ;; todo.
 
         (collision-bias . -2.0)
         (collision-padding . 0.5)
         (direction . ,ly:script-interface::calc-direction)
         (extra-spacing-width . (+inf.0 . -inf.0))
         (font-encoding . fetaText)
         (font-series . bold)
         (font-shape . italic)
-        (outside-staff-priority . 250)
         (positioning-done . ,ly:script-interface::calc-positioning-done)
         (right-padding . 0.5)
         (self-alignment-X . ,CENTER)
         (self-alignment-Y . ,CENTER)
         (stencil . ,ly:text-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
         (Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
         (meta . ((class . Item)
                  (object-callbacks . ((X-colliding-grobs . ,ly:self-alignment-interface::x-colliding-grobs)))
                  (interfaces . (dynamic-interface
                                 dynamic-text-interface
                                 font-interface
                                 script-interface
                                 self-alignment-interface
                                 text-interface))))))
@@ skipping 30 matching lines @@
         (left-bound-info . ,ly:line-spanner::calc-left-bound-info-and-text)
 
         (minimum-length . 2.0)
         ;; make sure the spanner doesn't get too close to notes
         (minimum-Y-extent . (-1 . 1))
 
         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
         (springs-and-rods . ,ly:spanner::set-spacing-rods)
         (stencil . ,ly:line-spanner::print)
         (style . dashed-line)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (meta . ((class . Spanner)
                  (interfaces . (dynamic-interface
                                 dynamic-text-spanner-interface
                                 font-interface
                                 line-interface
                                 line-spanner-interface
                                 spanner-interface
                                 text-interface))))))
 
 
@@ skipping 46 matching lines @@
         (meta . ((class . Item)
                  (interfaces . (finger-interface
                                 font-interface
                                 self-alignment-interface
                                 side-position-interface
                                 text-interface
                                 text-script-interface))))))
 
     (Flag
      . (
+        (glyph-name . ,ly:flag::glyph-name)
         (stencil . ,ly:flag::print)
         (X-extent . ,ly:flag::width)
         (X-offset . ,ly:flag::calc-x-offset)
         (Y-offset . ,ly:flag::calc-y-offset)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (meta . ((class . Item)
                  (interfaces . (flag-interface
                                 font-interface))))))
 
     (FootnoteItem
      . (
         (annotation-balloon . #f)
         (annotation-line . #t)
         (automatically-numbered . ,(grob::calc-property-by-copy 'automatically-numbered))
         (break-visibility . ,inherit-y-parent-visibility)
@@ skipping 50 matching lines @@
      . (
         (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
         (bound-details . ((right . ((attach-dir .  ,LEFT)
                                     (end-on-accidental . #t)
                                     (padding . 0.5)
                                       ))
                           (left . ((attach-dir .  ,RIGHT)
                                    (padding . 0.5)
                                       ))
                           ))
+        (cross-staff . ,ly:line-spanner::calc-cross-staff)
         (gap . 0.5)
         (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
         (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints)
         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
         (simple-Y . #t)
         (stencil . ,ly:line-spanner::print)
         (style . line)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-extent . #f)
         (Y-extent . #f)
         (zigzag-width . 0.75)
         (meta . ((class . Spanner)
                  (interfaces . (glissando-interface
                                 line-interface
                                 line-spanner-interface
                                 unbreakable-spanner-interface))))))
 
     (GraceSpacing
@@ skipping 37 matching lines @@
         (broken-bound-padding . ,ly:hairpin::broken-bound-padding)
         (circled-tip . #f)
         (grow-direction . ,hairpin::calc-grow-direction)
         (height . 0.6666)
         (minimum-length . 2.0)
         (self-alignment-Y . ,CENTER)
         (springs-and-rods . ,ly:spanner::set-spacing-rods)
         (stencil . ,ly:hairpin::print)
         (thickness . 1.0)
         (to-barline . #t)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
         (meta . ((class . Spanner)
                  (interfaces . (dynamic-interface
                                 hairpin-interface
                                 line-interface
                                 self-alignment-interface
                                 spanner-interface))))))
 
     (HorizontalBracket
      . (
@@ skipping 54 matching lines @@
         (glyph-name-alist . ,cancellation-glyph-name-alist)
         (non-musical . #t)
         (space-alist . (
                         (time-signature . (extra-space . 1.25))
                         (staff-bar . (extra-space . 0.6))
                         (key-signature . (extra-space . 0.5))
                         (cue-clef . (extra-space . 0.5))
                         (right-edge . (extra-space . 0.5))
                         (first-note . (fixed-space . 2.5))))
         (stencil . ,ly:key-signature-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (extra-spacing-width . (0.0 . 1.0))
         (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-height-including-staff)
         (Y-offset . ,ly:staff-symbol-referencer::callback)
         (meta . ((class . Item)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:pure-from-neighbor-interface::calc-pure-relevant-grobs)))
                  (interfaces . (break-aligned-interface
                                 font-interface
                                 key-cancellation-interface
                                 key-signature-interface
@@ skipping 10 matching lines @@
         (non-musical . #t)
         (space-alist . (
                         (time-signature . (extra-space . 1.15))
                         (staff-bar . (extra-space . 1.1))
                         (cue-clef . (extra-space . 0.5))
                         (right-edge . (extra-space . 0.5))
                         (first-note . (fixed-space . 2.5))))
         (stencil . ,ly:key-signature-interface::print)
         (extra-spacing-width . (0.0 . 1.0))
         (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-height-including-staff)
-        (vertical-skylines . ,grob::vertical-skylines-from-stencil)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (Y-offset . ,ly:staff-symbol-referencer::callback)
         (meta . ((class . Item)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:pure-from-neighbor-interface::calc-pure-relevant-grobs)))
                  (interfaces . (break-aligned-interface
                                 font-interface
                                 key-signature-interface
                                 pure-from-neighbor-interface
                                 staff-symbol-referencer-interface))))))
 
 
    (LaissezVibrerTie
      . (
         (control-points . ,ly:semi-tie::calc-control-points)
         (details . ((ratio . 0.333)
                     (height-limit . 1.0)))
         (direction . ,ly:tie::calc-direction)
         (head-direction . ,LEFT)
         (stencil  . ,laissez-vibrer::print)
         (thickness . 1.0)
         (extra-spacing-height . (-0.5 . 0.5))
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (meta . ((class . Item)
                  (interfaces . (semi-tie-interface))))))
 
     (LaissezVibrerTieColumn
      . (
         (head-direction . ,ly:semi-tie-column::calc-head-direction)
         (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
         (X-extent . #f)
         (Y-extent . #f)
         (meta . ((class . Item)
@@ skipping 69 matching lines @@
      . (
         (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
         (dash-period . 10.0)
         (height . 0.42)
         (length . 0.66)
         (minimum-distance . 0.1)
         (minimum-length . 0.3)
         (padding . 0.07)
         (springs-and-rods . ,ly:lyric-hyphen::set-spacing-rods)
         (stencil . ,ly:lyric-hyphen::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (thickness . 1.3)
         (Y-extent . (0 . 0))
         (meta . ((class . Spanner)
                  (interfaces . (font-interface
                                 lyric-hyphen-interface
                                 lyric-interface
                                 spanner-interface))))))
 
     (LyricSpace
      . (
@@ skipping 11 matching lines @@
         (extra-spacing-width . (0.0 . 0.0))
         ;; Recede in height for purposes of note spacing,
         ;; so notes in melismata can be freely spaced above lyrics
         (extra-spacing-height . (0.2 . -0.2))
         (font-series . medium)
         (font-size . 1.0)
         (self-alignment-X . ,CENTER)
         (stencil . ,lyric-text::print)
         (text . ,(grob::calc-property-by-copy 'text))
         (word-space . 0.6)
+        (skyline-horizontal-padding . 0.1)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent)
         (meta . ((class . Item)
                  (interfaces . (font-interface
                                 lyric-syllable-interface
                                 rhythmic-grob-interface
                                 self-alignment-interface
                                 text-interface))))))
-
 
     (MeasureGrouping
      . (
         (direction . ,UP)
         (height . 2.0)
         (padding . 2)
         (side-axis . ,Y)
         (staff-padding . 3)
         (stencil . ,ly:measure-grouping::print)
         (thickness . 1)
@@ skipping 15 matching lines @@
         (meta . ((class . Spanner)
                  (interfaces . (font-interface
                                 mensural-ligature-interface))))))
 
     (MetronomeMark
      . (
         (after-line-breaking . ,ly:side-position-interface::move-to-extremal-staff)
         (break-visibility . ,end-of-line-invisible)
         (direction . ,UP)
         (extra-spacing-width . (+inf.0 . -inf.0))
+        (outside-staff-horizontal-padding . 0.12)
         (outside-staff-priority . 1000)
         (padding . 0.8)
         (side-axis . ,Y)
         (stencil . ,ly:text-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (X-offset . ,(ly:make-simple-closure
                       `(,+
                         ,(ly:make-simple-closure
                           (list ly:break-alignable-interface::self-align-callback))
                         ,(ly:make-simple-closure
                           (list ly:self-alignment-interface::x-aligned-on-self)))))
         (self-alignment-X . ,LEFT)
         (break-align-symbols . (time-signature))
         (non-break-align-symbols . (multi-measure-rest-interface))
@@ skipping 71 matching lines @@
                                 self-alignment-interface
                                 side-position-interface
                                 text-interface))))))
 
 
     (NonMusicalPaperColumn
      . (
         (allow-loose-spacing . #t)
         (axes . (,X))
         (before-line-breaking . ,ly:paper-column::before-line-breaking)
+        (bound-alignment-interfaces . (break-alignment-interface))
         (full-measure-extra-space . 1.0)
         (horizontal-skylines . ,ly:separation-item::calc-skylines)
         ;;                    (stencil . ,ly:paper-column::print)
 
         (keep-inside-line . #t)
         (line-break-permission . allow)
         (non-musical . #t)
         (page-break-permission . allow)
 
         ;; debugging stuff: print column number.
@@ skipping 108 matching lines @@
         (direction . ,UP)
         (edge-height . (0 . 1.2))
         (font-shape . italic)
         (minimum-length . 1.0)
         (outside-staff-priority . 400)
         (padding . 0.5)
         (shorten-pair . (0.0 . -0.6))
         (staff-padding . 1.0)
         (stencil . ,ly:ottava-bracket::print)
         (style . dashed-line)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Spanner)
                  (interfaces . (font-interface
                                 horizontal-bracket-interface
                                 line-interface
                                 ottava-bracket-interface
                                 side-position-interface
                                 text-interface))))))
 
 
     (PaperColumn
      . (
         (allow-loose-spacing . #t)
         (axes . (,X))
         (before-line-breaking . ,ly:paper-column::before-line-breaking)
         (bound-alignment-interfaces . (note-column-interface))
         (horizontal-skylines . ,ly:separation-item::calc-skylines)
         (keep-inside-line . #t)
+        ; 0.08 comes from spacing-horizontal-skyline.ly
+        ; allows double flat of F to be nestled over dots of C
+        (skyline-vertical-padding . 0.08)
         ;; (stencil . ,ly:paper-column::print)
         (X-extent . ,ly:axis-group-interface::width)
 
         ;; debugging
         ;;                       (font-size . -6) (font-name . "sans") (Y-extent . #f)
         (meta . ((class . Paper_column)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)))
                  (interfaces . (axis-group-interface
                                 font-interface
@@ skipping 70 matching lines @@
     (PianoPedalBracket
      . (
         (bound-padding . 1.0)
         (bracket-flare . (0.5 . 0.5))
         (direction . ,DOWN)
         (edge-height . (1.0 . 1.0))
         (shorten-pair . (0.0 . 0.0))
         (stencil . ,ly:piano-pedal-bracket::print)
         (style . line)
         (thickness .  1.0)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (meta . ((class . Spanner)
                  (interfaces . (line-interface
                                 piano-pedal-bracket-interface
                                 piano-pedal-interface))))))
 
 
     (RehearsalMark
      . (
         (after-line-breaking . ,ly:side-position-interface::move-to-extremal-staff)
         (baseline-skip . 2)
         (break-align-symbols . (staff-bar clef))
         (break-visibility . ,end-of-line-invisible)
         (direction . ,UP)
         (extra-spacing-width . (+inf.0 . -inf.0))
         (font-size . 2)
         (non-musical . #t)
+        (outside-staff-horizontal-padding . 0.12)
         (outside-staff-priority . 1500)
         (padding . 0.8)
         (self-alignment-X . ,CENTER)
         (stencil . ,ly:text-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-offset . ,(ly:make-simple-closure
                       `(,+
                         ,(ly:make-simple-closure
                           (list ly:break-alignable-interface::self-align-callback))
                         ,(ly:make-simple-closure
                           (list ly:self-alignment-interface::x-aligned-on-self)))))
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Item)
                  (interfaces . (break-alignable-interface
                                 font-interface
@@ skipping 16 matching lines @@
     (RepeatTie
      . (
         (control-points . ,ly:semi-tie::calc-control-points)
         (details . ((ratio . 0.333)
                     (height-limit . 1.0)))
         (direction . ,ly:tie::calc-direction)
         (head-direction . ,RIGHT)
         (stencil  . ,ly:tie::print)
         (thickness . 1.0)
         (extra-spacing-height . (-0.5 . 0.5))
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (meta . ((class . Item)
                  (interfaces . (semi-tie-interface))))))
 
     (RepeatTieColumn
      . (
         (direction . ,ly:tie::calc-direction)
         (head-direction . ,ly:semi-tie-column::calc-head-direction)
         (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
         (X-extent . #f)
         (Y-extent . #f)
@@ skipping 32 matching lines @@
         (font-encoding . fetaMusic)
         (positioning-done . ,ly:script-interface::calc-positioning-done)
         (side-axis . ,Y)
 
         ;; padding set in script definitions.
         (slur-padding . 0.2)
         (staff-padding . 0.25)
 
         (stencil . ,ly:script-interface::print)
         (use-skylines . #t)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-offset . ,script-interface::calc-x-offset)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Item)
                  (interfaces . (font-interface
                                 script-interface
                                 side-position-interface))))))
 
     (ScriptColumn
      . (
         (before-line-breaking . ,ly:script-column::before-line-breaking)
@@ skipping 27 matching lines @@
                  (interfaces . (slur-interface))))))
 
     (SostenutoPedal
      . (
         (direction . ,RIGHT)
         (extra-spacing-width . (+inf.0 . -inf.0))
         (font-shape . italic)
         (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
         (self-alignment-X . ,CENTER)
         (stencil . ,ly:text-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
         (meta . ((class . Item)
                  (interfaces . (font-interface
                                 piano-pedal-script-interface
                                 self-alignment-interface
                                 text-interface))))))
 
     (SostenutoPedalLineSpanner
      . (
         (axes . (,Y))
         (direction . ,DOWN)
         (minimum-space . 1.0)
         (outside-staff-priority . 1000)
         (padding . 1.2)
         (side-axis . ,Y)
         (staff-padding . 1.0)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-element-stencils)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:axis-group-interface::height)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Spanner)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)))
                  (interfaces . (axis-group-interface
                                 piano-pedal-interface
                                 side-position-interface))))))
 
@@ skipping 33 matching lines @@
         (X-extent . ,ly:span-bar::width)
         (Y-extent . (+inf.0 . -inf.0))
         (meta . ((class . Item)
                  (interfaces . (bar-line-interface
                                 font-interface
                                 span-bar-interface))))))
 
     (SpanBarStub
      . (
         (X-extent . ,grob::x-parent-width)
-        (Y-extent . ,(ly:make-unpure-pure-container #f ly:axis-group-interface::pure-height))
+        (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-height)
+        (Y-extent . #f)
         (meta . ((class . Item)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:pure-from-neighbor-interface::calc-pure-relevant-grobs)))
                  (interfaces . (pure-from-neighbor-interface))))))
 
     (StaffGrouper
      . (
         (staff-staff-spacing . ((basic-distance . 9)
                                 (minimum-distance . 7)
                                 (padding . 1)
@@ skipping 158 matching lines @@
                                 text-interface
                                 text-script-interface))))))
 
     (SustainPedal
      . (
         (direction . ,RIGHT)
         (extra-spacing-width . (+inf.0 . -inf.0))
         (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
         (self-alignment-X . ,CENTER)
         (stencil . ,ly:sustain-pedal::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
         (meta . ((class . Item)
                  (interfaces . (font-interface
                                 piano-pedal-interface
                                 piano-pedal-script-interface
                                 self-alignment-interface
                                 text-interface))))))
 
     (SustainPedalLineSpanner
      . (
         (axes . (,Y))
         (direction . ,DOWN)
         (minimum-space . 1.0)
         (outside-staff-priority . 1000)
         (padding . 1.2)
         (side-axis . ,Y)
         (staff-padding . 1.2)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-element-stencils)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:axis-group-interface::height)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Spanner)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)))
                  (interfaces . (axis-group-interface
                                 piano-pedal-interface
                                 side-position-interface))))))
 
     (System
      . (
         (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
         (axes . (,X ,Y))
+        (outside-staff-placement-directive . left-to-right-polite)
         (skyline-horizontal-padding . 0.5)
         (vertical-skylines . ,ly:axis-group-interface::calc-skylines)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:system::height)
         (meta . ((class . System)
                  (object-callbacks . ((footnotes-before-line-breaking . ,ly:system::footnotes-before-line-breaking)
                                       (footnotes-after-line-breaking . ,ly:system::footnotes-after-line-breaking)
                                       (pure-relevant-grobs . ,ly:system::calc-pure-relevant-grobs)
-                                      (pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)))
+                                      (pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
+                                      (vertical-skyline-elements . ,ly:system::vertical-skyline-elements)
+                                      (vertical-alignment . ,ly:system::get-vertical-alignment)))
                  (interfaces . (axis-group-interface
                                 system-interface))))))
 
     (SystemStartBar
      . (
         (collapse-height . 5.0)
         (direction . ,LEFT)
 
         ;; ugh--hardcoded.
         (padding . -0.1)  ;; bar must cover rounded ending of staff line.
@@ skipping 85 matching lines @@
                                  staff-symbol-referencer-interface
                                  tab-note-head-interface
                                  text-interface))))))
 
     (TextScript
      . (
         (avoid-slur . around)
         (cross-staff . ,script-or-side-position-cross-staff)
         (direction . ,DOWN)
         (extra-spacing-width . (+inf.0 . -inf.0))
+        (outside-staff-horizontal-padding . 0.12)
         (outside-staff-priority . 450)
 
         ;; sync with Fingering ?
         (padding . 0.5)
 
         (script-priority . 200)
         (side-axis . ,Y)
         (slur-padding . 0.5)
         (staff-padding . 0.5)
         (stencil . ,ly:text-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         ;; todo: add X self alignment?
         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Item)
                  (interfaces . (font-interface
                                 instrument-specific-markup-interface
                                 self-alignment-interface
                                 side-position-interface
                                 text-interface
                                 text-script-interface))))))
 
     (TextSpanner
      . (
         (bound-details . ((left . ((Y . 0)
                                    (padding . 0.25)
                                    (attach-dir . ,LEFT)
                                    ))
-                          (left-broken . ((end-on-note . #t)))
+                          (left-broken . ((attach-dir . ,RIGHT)))
                           (right . ((Y . 0)
                                     (padding . 0.25)
                                     ))
                           ))
         (dash-fraction . 0.2)
         (dash-period . 3.0)
         (direction . ,UP)
         (font-shape . italic)
         (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
         (outside-staff-priority . 350)
@@ skipping 35 matching lines @@
                     (multi-tie-region-size . 3)
                     (single-tie-region-size . 4)
                     (between-length-limit . 1.0)))
 
         (direction . ,ly:tie::calc-direction)
         (font-size . -6)
         (line-thickness . 0.8)
         (neutral-direction . ,UP)
         (springs-and-rods . ,ly:spanner::set-spacing-rods)
         (stencil . ,ly:tie::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (thickness . 1.2)
         (meta . ((class . Spanner)
                  (interfaces . (tie-interface))))))
 
     (TieColumn
      . (
         (before-line-breaking . ,ly:tie-column::before-line-breaking)
         (positioning-done . ,ly:tie-column::calc-positioning-done)
         (X-extent . #f)
         (Y-extent . #f)
@@ skipping 109 matching lines @@
         (cross-staff . ,ly:tuplet-bracket::calc-cross-staff)
         (direction  . ,ly:tuplet-bracket::calc-direction)
         (edge-height . (0.7 . 0.7))
         (full-length-to-extent . #t)
         (padding . 1.1)
         (positions . ,ly:tuplet-bracket::calc-positions)
         (shorten-pair . (-0.2 . -0.2))
         (staff-padding . 0.25)
         (stencil . ,ly:tuplet-bracket::print)
         (thickness . 1.6)
-        (vertical-skylines . ,grob::vertical-skylines-from-stencil)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-positions . ,ly:tuplet-bracket::calc-x-positions)
 
         (meta . ((class . Spanner)
                  (interfaces . (line-interface
                                 tuplet-bracket-interface))))))
 
     (TupletNumber
      . (
         (avoid-slur . inside)
         (cross-staff . ,ly:tuplet-number::calc-cross-staff)
@@ skipping 11 matching lines @@
 
 
     (UnaCordaPedal
      . (
         (direction . ,RIGHT)
         (extra-spacing-width . (+inf.0 . -inf.0))
         (font-shape . italic)
         (padding . 0.0)  ;; padding relative to UnaCordaPedalLineSpanner
         (self-alignment-X . ,CENTER)
         (stencil . ,ly:text-interface::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
         (meta . ((class . Item)
                  (interfaces . (font-interface
                                 piano-pedal-script-interface
                                 self-alignment-interface
                                 text-interface))))))
 
     (UnaCordaPedalLineSpanner
      . (
         (axes . (,Y))
         (direction . ,DOWN)
         (minimum-space . 1.0)
         (outside-staff-priority . 1000)
         (padding . 1.2)
         (side-axis . ,Y)
         (staff-padding . 1.2)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-element-stencils)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:axis-group-interface::height)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Spanner)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)))
                  (interfaces . (axis-group-interface
                                 piano-pedal-interface
                                 side-position-interface))))))
 
@@ skipping 24 matching lines @@
                                 axis-group-interface))))))
 
     (VerticalAxisGroup
      . (
         (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
         (axes . (,Y))
         (default-staff-staff-spacing . ((basic-distance . 9)
                                         (minimum-distance . 8)
                                         (padding . 1)))
         (nonstaff-unrelatedstaff-spacing . ((padding . 0.5)))
+        (outside-staff-placement-directive . left-to-right-polite)
         (staff-staff-spacing . ,ly:axis-group-interface::calc-staff-staff-spacing)
         (stencil . ,ly:axis-group-interface::print)
+        (skyline-horizontal-padding . 0.1)
         (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:hara-kiri-group-spanner::y-extent)
         (Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback)
         (meta . ((class . Spanner)
                  (object-callbacks . (
                                       (X-common . ,ly:axis-group-interface::calc-x-common)
                                       (pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)))
 
                  (interfaces . (axis-group-interface
                                 hara-kiri-group-spanner-interface))))))
 
     (VoiceFollower
      . (
         (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
         (bound-details . ((right . ((attach-dir .  ,CENTER)
                                     (padding . 1.5)
                                       ))
                           (left . ((attach-dir .  ,CENTER)
                                    (padding . 1.5)
                                       ))
                           ))
+        (cross-staff . #t)
         (gap . 0.5)
         (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
         (non-musical . #t)
         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
         (stencil . ,ly:line-spanner::print)
         (style . line)
         (X-extent . #f)
         (Y-extent . #f)
         (meta . ((class . Spanner)
                  (interfaces . (line-interface
                                 line-spanner-interface))))))
 
     (VoltaBracket
      . (
         (direction . ,UP)
         (edge-height . (2.0 . 2.0)) ;; staff-space;
         (font-encoding . fetaText)
         (font-size . -4)
         (stencil . ,ly:volta-bracket-interface::print)
         (thickness . 1.6) ;; line-thickness
         (word-space . 0.6)
-        (vertical-skylines . ,grob::vertical-skylines-from-stencil)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (meta . ((class . Spanner)
                  (interfaces . (font-interface
                                 horizontal-bracket-interface
                                 line-interface
                                 side-position-interface
                                 text-interface
                                 volta-bracket-interface
                                 volta-interface))))))
 
     (VoltaBracketSpanner
      . (
         (after-line-breaking . ,ly:side-position-interface::move-to-extremal-staff)
         (axes . (,Y))
         (direction . ,UP)
         (no-alignment . #t)
         (outside-staff-priority . 600)
         (padding . 1)
         (side-axis . ,Y)
-        (vertical-skylines . ,grob::vertical-skylines-from-element-stencils)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-element-stencils)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:axis-group-interface::height)
         (Y-offset . ,ly:side-position-interface::y-aligned-side)
         (meta . ((class . Spanner)
                  (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)))
                  (interfaces . (axis-group-interface
                                 side-position-interface
                                 volta-interface))))))
 
@@ skipping 112 matching lines @@
 ;; chain_offset_callback, in which case this provides a default by simply
 ;; passing through the value from the pure callback.
 (define (pure-chain-offset-callback grob start end prev-offset) prev-offset)
 
 (define pure-conversions-alist
   `(
     (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height)
     (,ly:axis-group-interface::calc-staff-staff-spacing . ,ly:axis-group-interface::calc-pure-staff-staff-spacing)
     (,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height)
     (,ly:beam::rest-collision-callback . ,ly:beam::pure-rest-collision-callback)
+    (,ly:flag::calc-y-offset . ,ly:flag::pure-calc-y-offset)
     (,ly:grob::stencil-height . ,pure-stencil-height)
     (,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-height)
     (,ly:rest-collision::force-shift-callback-rest . ,pure-chain-offset-callback)
     (,ly:rest::height . ,ly:rest::pure-height)
     (,ly:self-alignment-interface::y-aligned-on-self . ,ly:self-alignment-interface::pure-y-aligned-on-self)
     (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)
     (,ly:slur::height . ,ly:slur::pure-height)
     (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback)
     (,ly:stem::calc-stem-begin-position . ,ly:stem::pure-calc-stem-begin-position)
     (,ly:stem::calc-stem-end-position . ,ly:stem::pure-calc-stem-end-position)
     (,stem::length . ,stem::pure-length)
     (,ly:stem::height . ,ly:stem::pure-height)
     (,ly:stem-tremolo::calc-y-offset . ,ly:stem-tremolo::pure-calc-y-offset)
     (,ly:system::height . ,ly:system::calc-pure-height)))
 
 (define pure-functions
   (list
    parenthesize-elements
    laissez-vibrer::print
-   ly:flag::calc-y-offset
    ly:rest::y-offset-callback
    ly:staff-symbol-referencer::callback
    ly:staff-symbol::height))
 
 (define-public (pure-relevant? grob)
   (let ((extent-callback (ly:grob-property-data grob 'Y-extent)))
     (not (eq? #f
               (or
                (ly:unpure-pure-container? extent-callback)
                (pair? extent-callback)
@@ skipping 26 matching lines @@
           (if (not (procedure? unpure))
               unpure
               (if (memq unpure pure-functions)
                   (apply unpure args)
                   (let ((pure (assq unpure pure-conversions-alist)))
                     (if pure
                         (apply (cdr pure)
                                (append
                                 (list (car args) start end)
                                 (cdr args))))))))))