Approximates cross-staff slurs in VerticalAxisGroup vertical-skylines.

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 15 matching lines @@
 
 (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)
+        (horizontal-skylines . ,ly:accidental-interface::horizontal-skylines)
         (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
      . (
@@ skipping 231 matching lines @@
                                 text-interface))))))
 
     (BassFigureAlignment
      . (
         (axes . (,Y))
         (padding . 0.2)
         (positioning-done . ,ly:align-interface::align-to-minimum-distances)
         (stacking-dir . ,DOWN)
         (Y-extent . ,ly:axis-group-interface::height)
         (meta . ((class . Spanner)
-                 (object-callbacks . ((full-score-pure-minimum-translations . ,ly:align-interface::full-score-pure-minimum-translations)
-                                      (pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
+                 (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 . (align-interface
                                 axis-group-interface
                                 bass-figure-alignment-interface))))))
 
     (BassFigureAlignmentPositioning
      . (
         (axes . (,Y))
         (direction . ,UP)
         (padding . 0.5)
@@ skipping 901 matching lines @@
         (meta . ((class . Item)
                  (interfaces . (semi-tie-column-interface))))))
 
     (LedgerLineSpanner
      . (
         (layer . 0)
         (length-fraction . 0.25)
         (minimum-length-fraction . 0.25)
         (springs-and-rods . ,ly:ledger-line-spanner::set-spacing-rods)
         (stencil . ,ly:ledger-line-spanner::print)
+        (vertical-skylines . ,ly:grob::vertical-skylines-from-stencil)
         (X-extent . #f)
         (Y-extent . #f)
         (meta . ((class . Spanner)
                  (interfaces . (ledger-line-spanner-interface))))))
 
     (LeftEdge
      . (
         (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
         (break-align-symbol . left-edge)
         (break-visibility . ,center-invisible)
@@ skipping 617 matching lines @@
         (ratio . 0.25)
         (spanner-id . "")
         (springs-and-rods . ,ly:spanner::set-spacing-rods)
         (stencil . ,ly:slur::print)
         (thickness . 1.2)
         (vertical-skylines . ,ly:slur::vertical-skylines)
         (Y-extent . ,ly:slur::height)
         (meta . ((class . Spanner)
                  (interfaces . (slur-interface))))))
 
+    ;; Only should be used to approximate vertical skylines
+    ;; of a cross-staff slur.
     (SlurStub
      . (
-        (avoid-slur . inside)
+        (avoid-slur . ,(grob::calc-property-by-grob-copy 'avoid-slur))
         (control-points . ,ly:slur::calc-control-points)
         (cross-staff . ,slur::if-not-cross-staff-suicide)
-        (details . ,default-slur-details)
-        (direction . ,ly:slur::direction-from-shadowed-slur)
-        (height-limit . 2.0)
-        (line-thickness . 0.8)
-        (minimum-length . 1.5)
-        (ratio . 0.25)
-        (spanner-id . "")
-        (springs-and-rods . ,ly:spanner::set-spacing-rods)
-        (stencil . ,ly:slur::print)
-        (thickness . 1.2)
+        (details . ,(grob::calc-property-by-grob-copy 'details))
+        (direction . ,(grob::calc-property-by-grob-copy 'direction))
+        (height-limit . ,(grob::calc-property-by-grob-copy 'height-limit))
+        (line-thickness . ,(grob::calc-property-by-grob-copy 'line-thickness))
+        ; Slur will take care of minimum-length, so no need to copy property
+        (ratio . ,(grob::calc-property-by-grob-copy 'ratio))
+        (spanner-id . ,(grob::calc-property-by-grob-copy 'spanner-id))
+        ; Slur will take care of springs-and-rods, so no need to copy property
+        (thickness . ,(grob::calc-property-by-grob-copy 'thickness))
         (transparent . #t)
-        (vertical-skylines . ,ly:slur::vertical-skylines)
-        (Y-extent . ,ly:slur::height)
+        (vertical-skylines . ,ly:slur::extremal-stub-vertical-skylines)
+        ; stub only influences on skylines, so no height
+        (Y-extent . #f)
         (meta . ((class . Spanner)
                  (interfaces . (cross-staff-stub-interface
-                                slur-interface
-                                slur-stub-interface))))))
+                                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)
@@ skipping 275 matching lines @@
                                       (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)
+        (skyline-horizontal-padding . 1.0)
         (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)
                                       (vertical-skyline-elements . ,ly:system::vertical-skyline-elements)
                                       (vertical-alignment . ,ly:system::get-vertical-alignment)))
@@ skipping 389 matching lines @@
 
     (VerticalAlignment
      . (
         (axes . (,Y))
         (positioning-done . ,ly:align-interface::align-to-ideal-distances)
         (stacking-dir . -1)
         (vertical-skylines . ,ly:axis-group-interface::combine-skylines)
         (X-extent . ,ly:axis-group-interface::width)
         (Y-extent . ,ly:axis-group-interface::height)
         (meta . ((class . Spanner)
-                 (object-callbacks . ((full-score-pure-minimum-translations . ,ly:align-interface::full-score-pure-minimum-translations)
-                                      (Y-common . ,ly:axis-group-interface::calc-y-common)
+                 (object-callbacks . ((Y-common . ,ly:axis-group-interface::calc-y-common)
                                       (pure-relevant-grobs . ,ly:axis-group-interface::calc-pure-relevant-grobs)
                                       (pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)))
                  (interfaces . (align-interface
                                 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:axis-group-interface::calc-skylines)
+        (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
@@ skipping 242 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))))))))))