Implements multiple-line non-cross-staff glissandi

scm/output-lib.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2011 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 772 matching lines @@
 ;; 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))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; glissando
+
+(define-public (glissando::before-line-breaking grob)
+  (let* ((l (glissando::internal-before-line-breaking grob LEFT))
+         (r (glissando::internal-before-line-breaking grob RIGHT))
+         (bd `((left . ,l) (right . ,r))))

[Neil Puttock, 2011/05/31 16:41:01]

This overwrites any user overrides for left-broken/right-broken.

+      (ly:grob-set-property! grob 'bound-details bd)))
+
+(define-public (glissando::internal-before-line-breaking grob dir)
+  (let* ((bound-details (ly:grob-property grob 'bound-details))
+         (dir-sym (if (eqv? dir LEFT) 'left 'right))
+         (other-sym (if (eqv? dir LEFT) 'right 'left))
+         (details (assoc-get dir-sym
+                             bound-details))
+         (other (assoc-get other-sym
+                           bound-details))
+         (extra-dy (assoc-get 'extra-dy details 0.0))
+         (bound (ly:spanner-bound grob dir))
+         (common-y (ly:grob-common-refpoint grob bound Y))
+         (y (+ (interval-center (ly:grob-extent bound common-y Y))
+               (/ (* dir extra-dy)
+                  2))))
+    (cons (cons 'Y y) details)))
+····
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; scripts
 
 (define-public (script-interface::calc-x-offset grob)
   (ly:grob-property grob 'positioning-done)
   (let* ((shift (ly:grob-property grob 'toward-stem-shift 0.0))
          (note-head-location
           (ly:self-alignment-interface::centered-on-x-parent grob))
          (note-head-grob (ly:grob-parent grob X))
          (stem-grob (ly:grob-object note-head-grob 'stem)))
 
@@ skipping 136 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))