Approximates cross-staff slurs in VerticalAxisGroup vertical-skylines.

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 857 matching lines @@
 
   (let ((text (ly:grob-property grob 'text)))
 
     (grob-interpret-markup grob (if (string? text)
                                     (make-tied-lyric-markup text)
                                     text))))
 
 (define-public ((grob::calc-property-by-copy prop) grob)
   (ly:event-property (event-cause grob) prop))
 
+(define-public ((grob::calc-property-by-grob-copy prop) grob)
+  (let ((cause (ly:grob-property grob 'cause)))
+    (if (grob::is-live? cause)
+        (ly:grob-property cause prop)
+        '())))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; fret boards
 
 (define-public (fret-board::calc-stencil grob)
   (grob-interpret-markup
    grob
    (make-fret-diagram-verbose-markup
     (ly:grob-property grob 'dot-placement-list))))
 
@@ skipping 148 matching lines @@
           (list)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  laissez-vibrer tie
 ;;
 ;;  needed so we can make laissez-vibrer a pure print
 ;;
 (define-public (laissez-vibrer::print grob)
  (ly:tie::print grob))