Adds glissando stems to Lilypond.

scm/define-grobs.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2011 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 932 matching lines @@
         (style . line)
         (X-extent . #f)
         (Y-extent . #f)
         (zigzag-width . 0.75)
         (meta . ((class . Spanner)
                  (interfaces . (glissando-interface
                                 line-interface
                                 line-spanner-interface
                                 unbreakable-spanner-interface))))))
 
     (GlissandoStem ; ugh...massive code dup...

[hanwenn, 2011/07/19 12:33:45]

this is not really code, but data. You can also drop a lot of the variables
(stemlets?)  Perhaps it's worth the trouble to put the details into a separate
scheme variable.

[MikeSol, 2011/07/19 13:42:06]

Agreed.

After I get this to a stable point, I am going to make a series of comprehensive
regtests and attempt to pick these variables off one-by-one to see which ones
are actually necessary.

      . (
         (after-line-breaking . ,ly:glissando-stem::after-line-breaking)
         (beamlet-default-length . (1.1 . 1.1))
         (beamlet-max-length-proportion . (0.75 . 0.75))
         (cross-staff . ,ly:stem::calc-cross-staff)
         (default-direction . ,ly:stem::calc-default-direction)
         (details
          . (
             ;; 3.5 (or 3 measured from note head) is standard length
             ;; 32nd, 64th, 128th flagged stems should be longer
@@ skipping 1002 matching lines @@
 
         ;; We use the normal minima as minimum for the ideal lengths,
         ;; and the extreme minima as abolute minimum length.
 
         (direction . ,ly:stem::calc-direction)
         (duration-log . ,stem::calc-duration-log)
         (flag . ,ly:stem::calc-flag)
         (length . ,ly:stem::calc-length)
         (neutral-direction . ,DOWN)
         (positioning-done . ,ly:stem::calc-positioning-done)
+        (stem-begin-position . ,ly:stem::calc-stem-begin-position)
         (stem-end-position . ,ly:stem::calc-stem-end-position)
         (stem-info . ,ly:stem::calc-stem-info)
         (stencil . ,ly:stem::print)
         (thickness . 1.3)
         (X-extent . ,ly:stem::width)
         (X-offset . ,ly:stem::offset-callback)
         (Y-extent . ,ly:stem::height)
         (Y-offset . ,ly:staff-symbol-referencer::callback)
         (meta . ((class . Item)
                  (interfaces . (font-interface
@@ skipping 722 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)))))))))